65 lines
1.2 KiB
Plaintext
65 lines
1.2 KiB
Plaintext
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
|