added LSL2 stored procedures

LSL2/STPROC/FIX_BANG_RDS.txt

@@ -0,0 +1,35 @@
+COMPILE ROUTINE FIX_BANG_RDS(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Info, Send_Dyn, obj_WO_Step, Set_Status, Btree.Extract, obj_RDS, RList, ErrMsg
+DECLARE FUNCTION Get_Status, Set_Printer, obj_RDS, ErrMsg
+
+$INSERT RDS_EQU
+$INSERT WO_LOG_EQU
+$INSERT ORDER_EQU
+$INSERT PROD_SPEC_EQU
+
+EQU TARGET_ACTIVELIST$ TO 5
+
+OPEN '!RDS' TO FileIn ELSE
+	debug
+	GOTO Bail
+END
+
+
+SELECT FileIn
+
+READ BangRec FROM FileIn,'!RDS' THEN
+	DEBUG
+
+	CALL CLEAR_TABLE('!RDS')
+	
+	WRITE BangRec ON FileIn,'!RDS' ELSE NULL
+END
+
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+END