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