added LSL2 stored procedures

LSL2/STPROC/FIX_RDS_POINTER.txt

@@ -0,0 +1,28 @@
+COMPILE ROUTINE FIX_RDS_POINTER(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Info, Send_Dyn, obj_WO_Step, Set_Status
+DECLARE FUNCTION Get_Status, Set_Printer, obj_RDS
+
+$INSERT RDS_EQU
+
+
+debug
+
+OPEN 'RDS' TO FileIn THEN
+	READ RDSRec FROM FileIn,'200947' THEN
+		RDSRec<RDS_STATUS$> = 'A'
+		RDSRec<RDS_WO_STEP_KEY$> = '121598*1'
+		WRITE RDSRec ON FileIn,'200947' ELSE NULL
+	END
+
+END
+
+IF Get_Status(errCode) THEN DEBUG
+
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+END