29 lines
509 B
Plaintext
29 lines
509 B
Plaintext
COMPILE ROUTINE FIX_RDS_POINTER(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Info, Send_Dyn, obj_WO_Step, Set_Status
|
|
DECLARE FUNCTION Get_Status, Set_Printer, obj_RDS
|
|
|
|
$INSERT RDS_EQU
|
|
|
|
|
|
debug
|
|
|
|
OPEN 'RDS' TO FileIn THEN
|
|
READ RDSRec FROM FileIn,'200947' THEN
|
|
RDSRec<RDS_STATUS$> = 'A'
|
|
RDSRec<RDS_WO_STEP_KEY$> = '121598*1'
|
|
WRITE RDSRec ON FileIn,'200947' ELSE NULL
|
|
END
|
|
|
|
END
|
|
|
|
IF Get_Status(errCode) THEN DEBUG
|
|
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
END
|