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
