21 lines
388 B
Plaintext
21 lines
388 B
Plaintext
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
|