39 lines
675 B
Plaintext
39 lines
675 B
Plaintext
COMPILE ROUTINE TEST_OBJ_RDS(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE obj_Notes, Set_Status, Send_Info, obj_RDS, Send_Dyn, Btree.Extract, Print_ErrMsg
|
|
DECLARE FUNCTION Get_Status,obj_RDS, Send_Dyn, obj_RDS_Test
|
|
|
|
$INSERT RDS_EQU
|
|
|
|
debug
|
|
|
|
obj_RDS('Delete',"684416")
|
|
|
|
|
|
GOTO Bail
|
|
|
|
Parms = '143277':@RM ;* WO No
|
|
Parms := '1':@RM ;* WO Step
|
|
Parms := '1':@RM ;* Last Step
|
|
Parms := '':@RM ;* CassNo
|
|
Parms := '12345':@RM ;* QuoteNo
|
|
Parms := '54321' ;* Order No
|
|
|
|
TWProd = obj_RDS('Create',Parms)
|
|
TWProd = obj_RDS('Create',Parms)
|
|
|
|
|
|
IF Get_Status(errCode) THEN Print_ErrMsg(errCode)
|
|
|
|
debug
|
|
|
|
|
|
GOTO Bail
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
END
|