added LSL2 stored procedures
This commit is contained in:
19
LSL2/STPROC/TEST_OBJ_ICAR.txt
Normal file
19
LSL2/STPROC/TEST_OBJ_ICAR.txt
Normal file
@ -0,0 +1,19 @@
|
||||
COMPILE ROUTINE TEST_OBJ_ICAR(Dummy)
|
||||
ROWDEF(CHARSTR)
|
||||
|
||||
DECLARE SUBROUTINE obj_Notes, Set_Status, obj_Export, ErrMsg
|
||||
DECLARE FUNCTION Get_Status, Utility, obj_ICAR
|
||||
|
||||
|
||||
debug
|
||||
|
||||
a = obj_ICAR('RespSup')
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Bail:
|
||||
* * * * * * *
|
||||
|
||||
RETURN
|
Reference in New Issue
Block a user