56 lines
942 B
Plaintext
56 lines
942 B
Plaintext
COMPILE ROUTINE Fix_SAP_Comm(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Info
|
|
DECLARE FUNCTION Get_Status, Set_Printer, obj_WO_Mat
|
|
|
|
|
|
$INSERT WO_MAT_EQUATES
|
|
|
|
OPEN 'SAP_COMM' TO FileIn ELSE
|
|
DEBUG
|
|
GOTO Bail
|
|
END
|
|
|
|
SELECT FileIn
|
|
|
|
DEBUG
|
|
|
|
Done = 0
|
|
LOOP
|
|
READNEXT Seq ELSE Done = 1
|
|
UNTIL Done
|
|
READ SapRec FROM FileIn,Seq THEN
|
|
IF SapRec<1> = 'CASS_COMP' THEN
|
|
|
|
WONo = SAPRec<3>
|
|
CassNo = SAPRec<4>
|
|
|
|
WOMatRec = XLATE('WO_MAT',WONo:'*':CassNo,'','X')
|
|
|
|
IF WOMatRec<WO_MAT_MAKEUP_BOX$> THEN
|
|
DELETE FileIn,Seq THEN
|
|
Send_Dyn(Seq:' ':WONo:'*':CassNo:' removed')
|
|
END
|
|
END ELSE
|
|
|
|
WfrCnt = obj_WO_Mat('CurrWaferCnt',WONo:'*':CassNo:@RM:WOMatRec:@RM:1)
|
|
SapRec<5> = WfrCnt
|
|
|
|
WRITE SapRec ON FileIn,Seq THEN
|
|
Send_Dyn(WONo:'*':CassNo:' ':WfrCnt)
|
|
END
|
|
END
|
|
|
|
END
|
|
END
|
|
REPEAT
|
|
|
|
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
END
|