74 lines
1.4 KiB
Plaintext
74 lines
1.4 KiB
Plaintext
COMPILE ROUTINE MOVE_MAKEUP(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE Send_Dyn,Send_Info
|
|
DECLARE FUNCTION Get_Status
|
|
|
|
$INSERT RDS_MAKEUP_EQU
|
|
$INSERT RDS_EQU
|
|
|
|
|
|
OPEN 'RDS_MAKEUP' TO MakeupTable ELSE
|
|
Send_Dyn('Unable to open "RDS_MAKEUP" table for conversion')
|
|
GOTO Bail
|
|
END
|
|
|
|
SELECT RDSMakeupTable
|
|
|
|
RecCnt = 0
|
|
|
|
Done = 0
|
|
|
|
LOOP
|
|
READNEXT RDSNo ELSE Done = 1
|
|
UNTIL Done
|
|
READ MakekupRec FROM TableIn,SSKey THEN
|
|
RDSNo = SSKey[1,'*']
|
|
Stage = SSKey[COL2()+1,'*']
|
|
|
|
RDSRec = XLATE('RDS',RDSNo,'','X')
|
|
|
|
WOStepKey = RDSRec<RDS_WO_STEP_KEY$>
|
|
WONo = WOStepKey[1,'*']
|
|
WOStep = WOStepKey[COL2()+1,'*']
|
|
|
|
CassNo = XLATE('RDS',RDSNo,'CASS_NO','X')
|
|
|
|
SurfScanRec = SSRec
|
|
SurfScanRec<SURFACE_SCAN_SCAN_DTM$> = SSRec<1>
|
|
SurfScanRec<SURFACE_SCAN_RDS_NO$> = RDSNo
|
|
|
|
|
|
|
|
BEGIN CASE
|
|
CASE WONo = '' ; WriteFlag = 0
|
|
CASE WOStep = '' ; WriteFlag = 0
|
|
CASE CassNo = '' ; WriteFlag = 0
|
|
CASE Stage = '' ; WriteFlag = 0
|
|
CASE 1 ; WriteFlag = 1
|
|
END CASE
|
|
|
|
|
|
IF WriteFlag THEN
|
|
|
|
SurfScanKey = WONo:'*':WOStep:'*':CassNo:'*':Stage
|
|
READ Dummy FROM TableOut,SurfScanKey ELSE
|
|
WRITE SurfScanRec ON TableOut,SurfScanKey THEN
|
|
Send_Dyn(RecCnt)
|
|
END
|
|
END
|
|
END
|
|
|
|
END ;* End of RDS record read
|
|
|
|
REPEAT
|
|
|
|
IF Get_Status(errCode) THEN DEBUG
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
END
|
|
|