added LSL2 stored procedures
This commit is contained in:
23
LSL2/STPROC/TEST_SYSLISTS.txt
Normal file
23
LSL2/STPROC/TEST_SYSLISTS.txt
Normal file
@ -0,0 +1,23 @@
|
||||
COMPILE ROUTINE TEST_SYSLISTS(Dummy)
|
||||
ROWDEF (CHARSTR)
|
||||
|
||||
DECLARE SUBROUTINE SEND_INFO, SEND_DYN, Utility, RList, Btree.Extract, msg, ErrMsg, ClearFile
|
||||
DECLARE FUNCTION obj_Popup, Dialog_Box, obj_Install, FindWindow
|
||||
|
||||
|
||||
OPEN 'SYSLISTS' TO FileIn THEN
|
||||
|
||||
ClearFile FileIn Else
|
||||
Null
|
||||
End
|
||||
|
||||
END
|
||||
|
||||
goto Bail
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Bail:
|
||||
* * * * * * *
|
||||
|
||||
END
|
Reference in New Issue
Block a user