added LSL2 stored procedures

LSL2/STPROC/TEST_OBJ_WM_OUT.txt

@@ -0,0 +1,44 @@
+COMPILE ROUTINE TEST_OBJ_WM_OUT(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE obj_Notes, Set_Status, Send_Info,  Send_Dyn, Btree.Extract, ErrMsg, obj_WM_In, obj_WM_Out, obj_WO_Mat, obj_Tables
+
+DECLARE FUNCTION Get_Status, obj_WM_Out, Send_Dyn, obj_Tables
+
+$INSERT WO_LOG_EQUATES
+
+
+DEBUG
+
+WONo = '155215'
+WOStep = 1
+NewCassNos = 1:@VM:2:@VM:3:@VM:4:@VM:5
+OutQty = 5
+
+/*
+otParms = 'WO_LOG':@RM:WONo
+WOLogRec = obj_Tables('ReadRec',otParms)
+
+DEBUG
+
+CassCnt = COUNT(NewCassNos,@VM) + (NewCassNos NE '')
+
+FOR I = 1 TO CassCnt
+	NewCassNo = NewCassNos<1,I>
+	WOLogRec<WO_LOG_WO_MAT_KEY$,-1> = WONo:'*':NewCassNo
+NEXT I
+
+
+
+*/
+
+obj_WM_Out('Create',WONo:@RM:WOStep:@RM:NewCassNos:@RM:OutQty)
+
+debug
+GOTO Bail
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+END