added LSL2 stored procedures

LSL2/STPROC/TEST_OBJ_WO_WFR.txt

@@ -0,0 +1,36 @@
+COMPILE ROUTINE TEST_OBJ_WO_WFR(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE obj_WO_Wfr, Set_Status, ErrMsg
+DECLARE FUNCTION Get_Status, obj_WO_Wfr
+
+$INSERT PART_EQUATES
+
+
+Set_Status(0)
+
+debug
+
+
+WfrID = '141549*1*9'
+Event = 'NCR'
+
+obj_WO_Wfr('RemEvent',WfrID:@RM:Event)
+
+DEBUG
+
+
+IF Get_Status(errCode) THEN
+	ErrMsg(errCode)
+END
+
+GOTO Bail
+
+
+
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+RETURN