added LSL2 stored procedures

LSL2/STPROC/FIX_SLIST.txt

@@ -0,0 +1,83 @@
+COMPILE ROUTINE FIX_SLIST(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Info
+DECLARE FUNCTION Get_Status, Set_Printer
+
+$INSERT OIPRINT_EQUATES
+
+EQU PI$LEFT		TO 1
+EQU PI$TOP		TO 2
+EQU PI$RIGHT	TO 3
+EQU PI$BOTTOM	TO 4
+EQU PI$WIDTH	TO 5
+EQU PI$HEIGHT	TO 6
+EQU PI$SIZE		TO 7
+
+DEBUG
+
+$INSERT rpt_cfg_equ
+
+
+ConfigKeys  = "INVOICE001_SRPTCFG":@FM
+ConfigKeys := "INVOICE002_SRPTCFG":@FM
+
+ConfigKeys := "INVOICE004_SRPTCFG":@FM
+ConfigKeys := "INVOICE005_SRPTCFG":@FM
+
+ConfigKeys := "AC001_SRPTCFG":@FM
+
+ConfigKeys := "ORDER001_SRPTCFG":@FM
+ConfigKeys := "ORDER002_SRPTCFG":@FM
+
+ConfigKeys := "WO_LOG001_SRPTCFG":@FM
+
+ConfigKeys := "COC001_SRPTCFG":@FM
+
+ConfigKeys := "REACTOR_LOG002_SRPTCFG":@FM
+ConfigKeys := "CAR001_SRPTCFG":@FM
+
+ConfigKeys := "SCHED001_SRPTCFG":@FM
+ConfigKeys := "SCHED002_SRPTCFG":@FM
+ConfigKeys := "SCHED003_SRPTCFG"
+
+
+OPEN 'CONFIG' TO ConfigTable ELSE
+	Send_Dyn('Unable to Open CONFIG Table for updates')
+	GOTO BAIL
+END
+
+OPEN 'IDIOT' TO FileIn ELSE
+	Send_Dyn('Unable to Open IDIOT Table for updates')
+	GOTO Bail
+END
+
+SELECT FileIn
+debug
+Done = 0
+LOOP
+	READNEXT ConfigKey ELSE Done = 1
+UNTIL Done
+
+	READ GoodConfigRec FROM FileIn,ConfigKey THEN
+		
+		WRITE GoodConfigRec ON ConfigTable,ConfigKey THEN 
+			Send_Dyn(ConfigKey:' Restored')
+		END
+	END
+	
+REPEAT
+
+
+
+IF Get_Status(errCode) THEN DEBUG
+
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+
+*stat = Set_Printer("TERM",1)
+
+RETURN