added LSL2 stored procedures

LSL2/STPROC/MOVE_CUST_DICT.txt

@@ -0,0 +1,64 @@
+COMPILE ROUTINE MOVE_CUST_DICT(Dummy)
+ROWDEF (CHARSTR)
+
+DECLARE SUBROUTINE SEND_INFO, SEND_DYN, Utility, msg
+
+$INSERT DICT_EQUATES
+
+EQU CRLF$ TO \0D0A\
+
+OPEN 'DICT.COMPANY' TO FileIn ELSE
+	DEBUG
+	GOTO Bail
+END
+
+OPEN 'DICT.CUSTOMER' TO FileOut ELSE
+	DEBUG
+	GOTO Bail
+END
+
+
+Fields  = 'ENTRY_DATE':@FM
+Fields := 'ENTRY_ID':@FM
+Fields := 'PHONES':@FM
+Fields := 'PHONE_TYPES':@FM
+Fields := 'INTL_PHONES':@FM
+Fields := 'INTL_PHONE_TYPES':@FM
+Fields := 'NOTE':@FM
+Fields := 'TERMS':@FM
+Fields := 'SHIPPER_INFO':@FM
+Fields := 'BILL_TO_ATTN':@FM
+Fields := 'BILL_TO_CO':@FM
+Fields := 'BILL_TO_ADDRESS':@FM
+Fields := 'BILL_TO_CITY':@FM
+Fields := 'BILL_TO_STATE':@FM
+Fields := 'BILL_TO_ZIP':@FM
+Fields := 'COUNTRY':@FM
+Fields := 'ACCOUNT_NO':@FM
+Fields := 'SALES_REP':@FM
+Fields := 'ABBREV':@FM
+Fields := 'COA_FOLDER':@FM
+Fields := 'VISION_BILL_TO':@FM
+Fields := 'SHIPPING_EXPORT_TEMPLATE'
+
+debug
+FOR I = 1 TO COUNT(Fields,@FM) + (Fields NE '')
+	FieldName = Fields<I>
+	READ DictRec FROM FileIn,FieldName THEN
+		DictRec<DICT_INDEX_FLAG$> = ''						;* pull btree flag
+		
+		WRITE DictRec ON FileOut,FieldName ELSE NUll
+
+		
+	END	;* End of DictRec Read
+NEXT I
+
+
+
+*UNLOCK All
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+END