22 lines
372 B
Plaintext
22 lines
372 B
Plaintext
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
|
|
|