added LSL2 stored procedures

LSL2/STPROC/TEST_OBJ_SCHEDULE.txt

@@ -0,0 +1,37 @@
+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