COMPILE ROUTINE TEST_OBJ_WM_IN(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE obj_Notes, Set_Status, Send_Info,  Send_Dyn, Btree.Extract, ErrMsg, obj_WM_In
DECLARE FUNCTION Get_Status, obj_WM_In, Send_Dyn

DEBUG

Result = obj_WM_In('RebuildUnload','146017*1*5')

IF Get_Status(errCode) THEN debug

debug
GOTO Bail

* * * * * * *
Bail:
* * * * * * *

END