COMPILE SUBROUTINE TEST_OBJ_WO_LOG(Dummy)
*ROWDEF(CHARSTR)

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

WONo = '162031'

obj_WO_LogRR('Release',WONo:@RM:1)

IF Get_Status(errCode) THEN debug

RETURN
GOTO Bail

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

*END