COMPILE ROUTINE FIX_CUST_EPI_PART(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Infom, obj_Order, obj_WO_Log, RList, RList, ErrMsg
DECLARE SUBROUTIne obj_WO_Step, Set_Status, Send_Info
DECLARE FUNCTION Get_Status, Set_Printer

$INSERT CUST_EPI_PART_EQUATES
$INSERT COMPANY_EQU
$INSERT PROD_SPEC_EQU
$INSERT EPI_PART_EQUATES

OPEN 'CUST_EPI_PART' TO CEPTable  ELSE
	DEBUG
	GOTO Bail
END



SELECT CEPTable


DEBUG

RecCnt = 0
Done = 0
LOOP
	READNEXT CEPKey ELSE Done = 1
UNTIL Done
	
	CustNo = CEPKey[1,'*']
	EpiPn	= CEPKey[COL2()+1,'*']
	
	DefBagInst = 'Tape/PE Bag/TriLam Alum'
	
		READ CEPRec FROM CEPTAble,CEPKey Then						;* Find all the CUST_NO keys for the CUST_NO entered 
		
			IF CEPRec<CUST_EPI_PART_SHIP_BAG_REQ$> NE DefBagInst THEN
		
			CEPRec<CUST_EPI_PART_SHIP_BAG_REQ$>	= DefBagInst
			
			*WRITE CEPRec ON CEPTable,CEPKey THEN					;* Remove the remark when ready to actually write to the CUSTNO record.
				Send_Dyn(CEPKey)
			*END													;* Remove the remark when ready to actually write to the CUSTNO record.
		
			
			
		END															;* End of record read									

	END																;* End of check for customer no								
	
REPEAT

GOTO Bail



* * * * * * *
Bail:
* * * * * * *



END
