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