added LSL2 stored procedures

LSL2/STPROC/TEST_OBJ_WO_LOG.txt

@@ -0,0 +1,20 @@
+COMPILE SUBROUTINE TEST_OBJ_WO_LOG(Dummy)
+*ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE obj_Notes, Set_Status, Send_Info,  Send_Dyn, Btree.Extract, ErrMsg, obj_WO_Log, obj_WO_LogRR
+DECLARE FUNCTION Get_Status,obj_WO_Log, Send_Dyn
+
+WONo = '162031'
+
+obj_WO_LogRR('Release',WONo:@RM:1)
+
+IF Get_Status(errCode) THEN debug
+
+RETURN
+GOTO Bail
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+*END