60 lines
1.3 KiB
Plaintext
60 lines
1.3 KiB
Plaintext
COMPILE ROUTINE FIX_WO_WFR(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE Send_Dyn,Send_Info, obj_WO_Log, Set_Status, obj_WO_Step, obj_WO_Wfr
|
|
DECLARE FUNCTION Get_Status, Set_Printer, obj_WO_Step
|
|
|
|
$INSERT WO_STEP_EQUATES
|
|
$INSERT WO_WFR_EQUATES
|
|
$INSERT PROD_SPEC_EQU
|
|
$INSERT WO_LOG_EQU
|
|
$INSERT RDS_EQU
|
|
$INSERT RLIST_EQUATES
|
|
|
|
@USER4 = @USERNAME
|
|
|
|
WfrId = '163138*10*14'
|
|
CurrDTM = "1/23/2017 09:00:00"
|
|
RunLoc = '103575.1.'
|
|
CurrSlot = '163138*10*14'
|
|
ToolID = 'R69'
|
|
Scribe = 'RNU2R243'
|
|
|
|
owwParms = WfrID:@RM ;* WfrID
|
|
owwParms := CurrDTM:@RM ;* EventDtm
|
|
owwParms := @USER4:@RM ;* EventBy
|
|
owwParms := 'LOAD':@RM ;* Event
|
|
owwParms := '':@RM ;* New Slot ID
|
|
owwParms := RunLoc:@RM ;* RPZ (RDSNo*Pocket*Zone)
|
|
owwParms := '':@RM ;* NCRNo
|
|
owwParms := '':@RM ;* TWUse ID
|
|
owwParms := CurrSlot:@RM ;* Current Slot ID
|
|
owwParms := ToolID:@RM ;* New ToolID
|
|
owwParms := '':@RM ;* Curr Tool ID
|
|
owwParms := '':@RM ;* NewInvLoc
|
|
owwParms := '':@RM ;* CurrInvLoc
|
|
owwParms := 'I':@RM ;* Wfr Side
|
|
owwParms := '':@RM ;* NewCarrLocs
|
|
owwParms := '':@RM ;* CurrCarrLocs
|
|
owwParms := Scribe ;* Scribe ;* Added 9/7/2016 JCH
|
|
|
|
*obj_WO_Wfr('AddEvent',owwParms)
|
|
|
|
|
|
|
|
|
|
|
|
GOTO Bail
|
|
|
|
|
|
|
|
|
|
IF Get_Status(errCode) THEN DEBUG
|
|
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
END
|