20 lines
260 B
Plaintext
20 lines
260 B
Plaintext
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
|