56 lines
1.1 KiB
Plaintext
56 lines
1.1 KiB
Plaintext
COMPILE ROUTINE FIX_REACT_STATUS(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Info
|
|
DECLARE FUNCTION Get_Status, Set_Printer
|
|
|
|
$INSERT OIPRINT_EQUATES
|
|
|
|
$INSERT REACT_STATUS_EQUATES
|
|
|
|
|
|
OPEN 'REACT_STATUS' To FileIn ELSE GOTO Bail
|
|
|
|
SELECT FileIn
|
|
DEBUG
|
|
|
|
ActiveReacts = '24,27,29,30,32,33,34,40,42,48,50,52,54,58,63'
|
|
CONVERT ',' TO @VM IN ActiveReacts
|
|
|
|
Done = 0
|
|
RecCnt = 0
|
|
LOOP
|
|
READNEXT RecKey ELSE Done = 1
|
|
UNTIL Done
|
|
RecCnt += 1
|
|
Send_Info(RecCnt)
|
|
LOCATE RecKey IN ActiveReacts USING @VM SETTING Pos THEN
|
|
|
|
READ Record FROM FileIn,RecKey THEN
|
|
ReactorType = XLATE('REACT_STATUS',RecKey,'REACT_TYPE_DESC','X')
|
|
IF ReactorType NE 'EPP' THEN
|
|
Record<REACT_STATUS_LOAD_CASS_ID$> = Record<REACT_STATUS_LOAD_CASS_ID$>[-1,'B':@VM]
|
|
Record<REACT_STATUS_LOAD_DTM$> = Record<REACT_STATUS_LOAD_DTM$>[-1,'B':@VM]
|
|
*WRITE Record ON FileIn,RecKey THEN
|
|
Send_Dyn(RecKey:' ':Record<REACT_STATUS_LOAD_CASS_ID$>:' ':OCONV(Record<REACT_STATUS_LOAD_DTM$>,'DT4/HS'))
|
|
*END
|
|
END
|
|
END
|
|
END
|
|
REPEAT
|
|
|
|
GOTO Bail
|
|
|
|
|
|
|
|
|
|
|
|
IF Get_Status(errCode) THEN DEBUG
|
|
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
|