added LSL2 stored procedures
This commit is contained in:
38
LSL2/STPROC/FIX_CONFIG.txt
Normal file
38
LSL2/STPROC/FIX_CONFIG.txt
Normal file
@ -0,0 +1,38 @@
|
||||
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
|
Reference in New Issue
Block a user