78 lines
1.1 KiB
Plaintext
78 lines
1.1 KiB
Plaintext
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
|
|
|
|
|