COMPILE ROUTINE TEST_OBJ_Schedule(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE Set_Status, Send_Info
DECLARE FUNCTION Get_Status,obj_Schedule
/*
OrderNo		= Parms[1,@RM]
WONo		= Parms[COL2()+1,@RM]
LotNo		= Parms[COL2()+1,@RM]
LotQty		= Parms[COL2()+1,@RM]
CassCnt		= Parms[COL2()+1,@RM]
CassQty		= Parms[COL2()+1,@RM]
*/


OrderNo = '1'
WONo = '1'
LotNo = 'ABC12345'
LotQty = '100'
CassCnt = '4'
CassQty = '25'

Parms = OrderNo:@RM:WONo:@RM:LotNo:@RM:LotQty:@RM:CassCnt:@RM:CassQty

debug

NewSchedNo = obj_Schedule('Create',Parms)

IF Get_Status(errCode) THEN DEBUg

GOTO Bail

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

END