added LSL2 stored procedures

LSL2/STPROC/CHANGE_COMPANY.txt

@@ -0,0 +1,77 @@
+COMPILE ROUTINE Change_Company(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE Send_Dyn,Send_Info
+DECLARE FUNCTION Get_Status, Set_Printer
+
+OPEN 'CONFIG' To ConfigTable THEN
+
+Select ConfigTable
+
+ConfigKeys = ''
+
+Done = 0
+LOOP
+	READNEXT ConfigKey ELSE Done = 1
+UNTIL Done
+	IF ConfigKey[1,3] = 'Org' ELSE
+		READ ConfigRec FROM ConfigTable,ConfigKey THEN
+
+			IF INDEX(ConfigRec,'ATMI',1) THEN
+				Send_Dyn(ConfigKey)
+			END
+			
+		END
+	END
+REPEAT
+
+ConfigKeyCnt = COUNT(ConfigKeys,@FM) + ( ConfigKeys NE '')
+
+OPEN 'SYSPROCS' TO ProcsTable THEN
+	SELECT ProcsTable
+	
+	Done = 0
+	LOOP
+		READNEXT @ID ELSE Done = 1
+	UNTIL Done
+		READ @RECORD FROM ProcsTable,@ID THEN
+			
+			IF INDEX(@RECORD,'ATMI',1) THEN
+				Send_Dyn(@ID)
+			END
+			
+			
+			
+		END
+	REPEAT
+END
+
+
+OPEN 'SYSREPOSEVENTS' TO ProcsTable THEN
+	SELECT ProcsTable
+	
+	Done = 0
+	LOOP
+		READNEXT @ID ELSE Done = 1
+	UNTIL Done
+		READ @RECORD FROM ProcsTable,@ID THEN
+		
+			IF INDEX(@RECORD,'ATMI',1) THEN
+				Send_Dyn(@ID)
+			END
+		END
+	REPEAT
+END
+
+
+
+IF Get_Status(errCode) THEN DEBUG
+
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+END
+
+