39 lines
487 B
Plaintext
39 lines
487 B
Plaintext
COMPILE ROUTINE FIX_CONFIG(Dummy)
|
|
ROWDEF (CHARSTR)
|
|
|
|
DECLARE SUBROUTINE SEND_INFO, SEND_DYN, RList,Btree.Extract, Set_Status, Get_Status
|
|
|
|
|
|
|
|
|
|
|
|
OPEN 'CONFIG' TO ConfigTable ELSE
|
|
debug
|
|
GOTO Bail
|
|
END
|
|
|
|
|
|
|
|
|
|
READ MastSched FROM ConfigTable,'WO_MAST_SCHED' THEN
|
|
|
|
*WRITE MastSched ON ConfigTable,'WO_MAST_SCHED_ORG' THEN
|
|
|
|
DEBUG
|
|
|
|
* WRITE MastSched ON ConfigTable,'WO_MAST_SCHED' THEN
|
|
NULL
|
|
*END
|
|
|
|
*END
|
|
END
|
|
|
|
|
|
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
END
|