added LSL2 stored procedures

LSL2/STPROC/LOAD_CUSTOMER.txt

@@ -0,0 +1,72 @@
+COMPILE ROUTINE LOAD_CUSTOMER(Dummy)
+ROWDEF (CHARSTR)
+
+DECLARE SUBROUTINE SEND_INFO, SEND_DYN, Utility, msg
+
+$INSERT CUSTOMER_EQU
+$INSERT COMPANY_EQU
+
+
+EQU CRLF$ TO \0D0A\
+
+OPEN 'COMPANY' TO CompanyTable ELSE
+	DEBUG
+	GOTO Bail
+END
+
+OPEN 'CUSTOMER' TO CustomerTable ELSE
+	DEBUG
+	GOTO Bail
+END
+
+debug
+SELECT CustomerTable
+
+Done = 0
+LOOP
+	READNEXT CustNo ELSE Done = 1
+UNTIL Done
+	READ CompanyRec FROM CompanyTable,CustNo THEN
+		READ CustRec FROM CustomerTable,CustNo THEN
+		
+			CustRec<CUSTOMER_ENTRY_DATE$>			= CompanyRec<COMPANY_ENTRY_DATE$>
+			CustRec<CUSTOMER_ENTRY_ID$>				= CompanyRec<COMPANY_ENTRY_ID$>
+			
+			CustRec<CUSTOMER_ATTENTION$>			= CompanyRec<COMPANY_BILL_TO_ATTN$>
+			CustRec<CUSTOMER_COMPANY$>				= CompanyRec<COMPANY_BILL_TO_CO$>
+			CustRec<CUSTOMER_ADDR$>					= CompanyRec<COMPANY_BILL_TO_ADDRESS$>
+			CustRec<CUSTOMER_CITY$>					= CompanyRec<COMPANY_BILL_TO_CITY$>
+			CustRec<CUSTOMER_ST$>					= CompanyRec<COMPANY_BILL_TO_STATE$>
+			CustRec<CUSTOMER_ZIP$>					= CompanyRec<COMPANY_BILL_TO_ZIP$>
+			
+			CustRec<CUSTOMER_COUNTRY$>				= CompanyRec<COMPANY_COUNTRY$>
+			CustRec<CUSTOMER_ABBREV$>				= CompanyRec<COMPANY_ABBREV$>
+			CustRec<CUSTOMER_PHONE$>				= CompanyRec<COMPANY_PHONES$>
+			CustRec<CUSTOMER_PHONE_DESC$>			= CompanyRec<COMPANY_PHONE_TYPES$>
+			CustRec<CUSTOMER_INTL_PHONE$>			= CompanyRec<COMPANY_INTL_PHONES$>
+			CustRec<CUSTOMER_INTL_PHONE_DESC$>		= CompanyRec<COMPANY_INTL_PHONE_TYPES$>
+			CustRec<CUSTOMER_SALES_REP$>			= CompanyRec<COMPANY_SALES_REP$>
+			CustRec<CUSTOMER_CARRIER_INFO$>			= CompanyRec<COMPANY_SHIPPER_INFO$>
+			CustRec<CUSTOMER_CARRIER_ACCT$>			= CompanyRec<COMPANY_ACCOUNT_NO$>
+			CustRec<CUSTOMER_NOTE$>					= CompanyRec<COMPANY_NOTE$>
+			CustRec<CUSTOMER_TERMS$>				= CompanyRec<COMPANY_TERMS$>
+			CustRec<CUSTOMER_SHIP_EXPORT_TEMP$>		= CompanyRec<COMPANY_SHIPPING_EXPORT_TEMPLATE$>
+			CustRec<CUSTOMER_COA_FOLDER$>			= CompanyRec<COMPANY_COA_FOLDER$>
+			CustRec<CUSTOMER_VISION_CUST_NO$>		= CompanyRec<COMPANY_CUST_TO$>
+			
+			WRITE CustRec ON CustomerTable,CustNo ELSE NULL
+		
+		END
+	END
+REPEAT
+
+
+
+
+*UNLOCK All
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+END