54 lines
779 B
Plaintext
54 lines
779 B
Plaintext
COMPILE ROUTINE FIX_SYSPROC(Dummy)
|
|
ROWDEF (CHARSTR)
|
|
|
|
DECLARE SUBROUTINE SEND_INFO, SEND_DYN, RList,Btree.Extract, Set_Status, Get_Status
|
|
|
|
|
|
debug
|
|
|
|
|
|
OPEN 'SYSPROCS' TO SysprocsTable ELSE
|
|
debug
|
|
GOTO Bail
|
|
END
|
|
|
|
READ Program FROM SysprocsTable,'OBJ_REPROCESS*LSL2' ELSE
|
|
DEBUG
|
|
GOTO Bail
|
|
END
|
|
|
|
DEBUG
|
|
|
|
FOR I = 423 TO 475
|
|
Line = Program<I>
|
|
|
|
IF Line NE '' THEN
|
|
|
|
EquateVar = Line[1,'>']
|
|
|
|
EquateVar = FIELD(EquateVar,'<',2)
|
|
EquateVar = '<':EquateVar:'>'
|
|
SWAP '<>' WITH EquateVar in Line
|
|
LOOP
|
|
TestChar = Line[-1,1]
|
|
UNTIL NOT(NUM(TestChar))
|
|
Line[-1,1] = ''
|
|
REPEAT
|
|
|
|
Program<I> = Line
|
|
END
|
|
|
|
NEXT I
|
|
|
|
WRITE Program ON SysprocsTable,'OBJ_REPROCESS*LSL2' ELSE NULL
|
|
|
|
|
|
DEBUG
|
|
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
END
|