20 lines
252 B
Plaintext
20 lines
252 B
Plaintext
COMPILE ROUTINE TEST_OBJ_TOOL(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE Set_Status
|
|
DECLARE FUNCTION Get_Status, obj_Tool
|
|
|
|
$INSERT NCR_EQU
|
|
|
|
debug
|
|
|
|
SortedKeys = obj_Tool('KeysByType')
|
|
|
|
debug
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
RETURN
|