added LSL2 stored procedures

LSL2/STPROC/TEST_OBJ_WO_MAT_QA.txt

@@ -0,0 +1,47 @@
+COMPILE ROUTINE TEST_OBJ_WO_MAT_QA(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE obj_Notes, Set_Status, Send_Info,  Send_Dyn, Btree.Extract, ErrMsg, obj_WO_Mat, obj_Tables, obj_WO_Mat_QA
+DECLARE FUNCTION Get_Status,obj_WO_Log, Send_Dyn, obj_WO_Mat, obj_Tables, obj_WO_Mat_QA
+
+$INSERT PROD_SPEC_EQU
+$INSERT WO_LOG_EQUATES
+$INSERT WO_MAT_QA_EQUATES
+$INSERT SEMI_VEND_CODE_EQUATES
+$INSERT PROD_VER_EQUATES
+
+
+DEBUG
+
+WONo = 160164
+
+WOMatKeys = XLATE('WO_LOG',WONo,WO_LOG_WO_MAT_KEY$,'X')
+
+womCnt = COUNT(WOMatKeys,@VM) + (WOMatKeys NE '')
+
+FOR I = 1 TO womCnt
+
+	WOMatKey = WOMatKeys<1,I>
+	CassNo = WOMatKey[-1,'B*']
+	
+	
+	ShipDocData = obj_WO_Mat_QA('GetShipDoc',WONo:@RM:CassNo)
+	
+	debug
+	
+	IF Get_Status(errCode) THEN
+		DEBUG
+	END
+
+
+NEXT I
+
+GOTO Bail
+
+
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+END