INHFTDVX ;DGH,FRW,JSH,JPD; 16 Feb 96 10:04; GIS Formatter background controller
Source file <INHFTDVX.m>
Package | Total | Call Graph |
---|---|---|
IHS Generic Interface System | 4 | $$PRIO^INHB1 ENF^INHE ERROR^INHF $$ERRMSG^INHU1 |
Uncategorized | 2 | SETDT^UTDT $$REPLACE^UTIL |
Kernel | 1 | (AUDCHK,AUDSTP,ITIME,TTSTP,TTSTRT)^XUSAUD |
Name | Comments | DBIA/ICR reference |
---|---|---|
INRHB(INBPN,MESS,SRVR,UPDT) | ;Update background process file
; Input: ; INBPN-Background process ien ; MESS-Text ; SRVR-Server # ; LAST- 1 Update 3rd piece to $H, 0 leave 3rd piece |
|
WAIT() | ;max wait time before shutting down
; Return 0 to shut down 1 to not shut down |
|
HALT | ;Halt process
|
|
NEXTDA(PRIO,DTTM,NOD) | ;Get next transaction off queue
|
|
REQUE | ;Look for queue entries that were "in process" at prior shut-down
|
|
BACK(INTSK,INHSRVMO) | ;Background program entry point
|
|
JL | ;Loop through jobs at priority PRIO
|
|
NEWSRV(INJCODE) | ;Attempt to start a new server
|
|
SETENV | ;Set up environment
|
|
SRVR(INBPN,INHSRVR) | ; Format Controller background process - server
|
|
ERROR | ;Error module for server
|
|
RUN() | ;should process continue to run
|
|
TMLOOP | ;Main loop to process transactions
|
|
LOOP | ;Main loop to process transactions
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("AVJ" | INHFTDVX+24 |
^%ZOSF("PRIORITY" | SRVR+25, BACK+6 |
^%ZOSF("SIGNOFF" | RUN+4 |
^%ZOSF("TRAP" | SRVR+19, ERROR+1, BACK+4 |
^DIJUSV( | HALT+3! |
^INLHFTSK - [#4000.1] | REQUE+3, REQUE+4, ERROR+6, BACK+5, BACK+7, BACK+8, BACK+13, BACK+14, BACK+15, JL+21! |
^INLHFTSK("AH" | REQUE+5, REQUE+6*, LOOP+5, LOOP+8, LOOP+11!, LOOP+12 |
^INLHFTSK("B" | JL+21! |
^INLHFTSK("COUNT" | INHFTDVX+23* |
^INRHB("RUN" | INHFTDVX+23*, TMLOOP+3, TMLOOP+4, TMLOOP+5*, NEWSRV+12, NEWSRV+15*, NEWSRV+16, NEWSRV+18, RUN+3, RUN+4! , SRVR+16, SRVR+20*, HALT+1!, HALT+2, LOOP+2*, INRHB+7*, INRHB+8* |
^INRHSITE(1 | INHFTDVX+24, INHFTDVX+25, INHFTDVX+26, RUN+3, SRVR+27, SRVR+28, BACK+6, BACK+11 |
^INRHT - [#4000] | BACK+16, JL+6, JL+8 |
^INRHT("AC" | BACK+16 |
^INTHOS(1 | INHFTDVX+27, SRVR+17, ERROR+2, BACK+4 |
^INTHPC - [#4004] | SRVR+23, JL+10 |
^INTHU - [#4001] | JL+15*, JL+16*, JL+17* |
^UTILITY("INDA" | JL+11!*, JL+15, JL+18! |
Name | Line Occurrences |
---|---|
$$NEXTDA | TMLOOP+7, LOOP+6, NEXTDA+20 |
$$RUN | INHFTDVX+29, TMLOOP+10, NEWSRV+21, SRVR+18, SRVR+31 |
$$WAIT | SRVR+31 |
BACK | LOOP+14 |
HALT | ERROR+8 |
INRHB | TMLOOP+2, TMLOOP+9, NEWSRV+20, LOOP+1, LOOP+9 |
JL | BACK+18, BACK+19 |
LOOP | SRVR+31 |
NEWSRV | TMLOOP+10 |
REQUE | INHFTDVX+28 |
SETENV | SRVR+21 |
TMLOOP | INHFTDVX+29 |
Name | Field # of Occurrence |
---|---|
^( | BACK+16, INRHB+7*, INRHB+8* |
^("SIGNOFF" | RUN+4 |
^(0 | REQUE+4, JL+6 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | ERROR+6*, ERROR+7 |
BP | BACK+1~, BACK+2*, BACK+3 |
CNT | REQUE+2~, REQUE+3*, REQUE+5* |
DA | LOOP+6*, LOOP+7, LOOP+11, LOOP+14, NEXTDA+6!, NEXTDA+8*, NEXTDA+18*, NEXTDA+20*, NEXTDA+21, ERROR+4 , ERROR+6 |
DAY | NEXTDA+6~, NEXTDA+8*, NEXTDA+18 |
>> DEST | JL+6*, JL+12 |
DTTM | TMLOOP+7, LOOP+6, LOOP+11, NEXTDA~, NEXTDA+13*, NEXTDA+15, NEXTDA+20 |
DUZ | HALT+3, SETENV+1*, BACK+8*, JL+23 |
DUZ(0 | SETENV+1* |
DUZ(2 | BACK+9* |
>> ER | JL+8*, JL+22 |
>> ERROR | JL+23 |
>> ERROR(1 | JL+8* |
>> I | BACK+16* |
>> IN | TMLOOP+7*, TMLOOP+9 |
INA | JL+3~, JL+4*, JL+23 |
INA("DMISID" | JL+16 |
INA("MSGTYPE" | JL+17 |
>> INAVJ | INHFTDVX+24*, NEWSRV+14 |
INBPN | INHFTDVX+23, TMLOOP+2, TMLOOP+3, TMLOOP+4, TMLOOP+5, TMLOOP+9, NEWSRV+12, NEWSRV+15, NEWSRV+16, NEWSRV+18 , NEWSRV+20, RUN+3, SRVR~, SRVR+16, SRVR+18, SRVR+20, SRVR+23, HALT+1, HALT+2, LOOP+1 , LOOP+2, LOOP+9, BACK+2, BACK+3~*, JL+10, INRHB~, INRHB+7, INRHB+8 |
INCREF | NEXTDA+6~, NEXTDA+13*, NEXTDA+17 |
INDA | JL+3~, JL+4*, JL+11, JL+23 |
INDIPA | BACK+4~, BACK+13*, JL+4 |
>> INFSHNG | INHFTDVX+26*, NEWSRV+21 |
INHANG | INHFTDVX+25*, TMLOOP+9, NEWSRV+17, SRVR+27*, SRVR+30, LOOP+5, LOOP+10, WAIT+2, BACK+1~ |
INHER | SRVR+19!, ERROR+3, ERROR+7 |
INHER(1 | ERROR+3* |
INHER(2 | ERROR+4* |
INHMWAIT | SRVR+28*, SRVR+29, WAIT+3, BACK+1~ |
INHSRVMO | INHFTDVX+24*, BACK~ |
INHSRVR | NEWSRV+10~, NEWSRV+12*, NEWSRV+15, NEWSRV+16, NEWSRV+18, SRVR~, SRVR+16, SRVR+18, SRVR+20, SRVR+24 , HALT+1, HALT+2, LOOP+1, LOOP+2, LOOP+4, LOOP+9, BACK+2, BACK+3~*, JL+10 |
INHWAIT | SRVR+30*, LOOP+13*, WAIT+2*, WAIT+3, BACK+1~ |
INIDA | BACK+4~, BACK+8*, BACK+14*, JL+4 |
INJ | BACK+4~, BACK+17 |
INJ( | BACK+16*, BACK+18, JL+1 |
INJCODE | NEWSRV~, NEWSRV+17 |
INLK | NEWSRV+10~, NEWSRV+11*, NEWSRV+13*, NEWSRV+19 |
INPNAME | SRVR+23~*, SRVR+24, LOOP+4 |
>> INSHTDN | SRVR+29*, WAIT+2, WAIT+3 |
>> INSHTDN1 | SRVR+30*, WAIT+2*, WAIT+3 |
>> INTNAME | JL+6*, JL+10 |
INTSK | BACK~, BACK+5, BACK+7, BACK+8, BACK+13, BACK+14, BACK+15, JL+8, JL+21 |
>> INTT | BACK+8*, BACK+16, JL+21 |
INV | JL+5! |
IO | SETENV+1* |
>> JOB(1 | INHFTDVX+27*, TMLOOP+10 |
MESS | INRHB~, INRHB+7, INRHB+8 |
MODE | INHFTDVX+24*, NEWSRV+12, SRVR+30*, BACK+1~ |
>> N | TMLOOP+7* |
>> ND | NEXTDA+15*, NEXTDA+18 |
NOD | NEXTDA~, NEXTDA+9*, NEXTDA+10*, NEXTDA+11, NEXTDA+13, NEXTDA+18, NEXTDA+19*, NEXTDA+20 |
>> NT | NEXTDA+15*, NEXTDA+18 |
PRIO | TMLOOP+7, REQUE+2~, REQUE+4*, REQUE+5, REQUE+6, LOOP+6, LOOP+11, NEXTDA~, NEXTDA+13*, NEXTDA+17 , NEXTDA+19, NEXTDA+20, BACK+18*, BACK+19*, JL+1 |
>> SCR | JL+6*, JL+8, JL+12, JL+13 |
SRVR | INRHB~, INRHB+7 |
SV | BACK+1~, BACK+2*, BACK+3 |
TIME | REQUE+2~, REQUE+4*, REQUE+5, REQUE+6, NEXTDA+6~, NEXTDA+8*, NEXTDA+18 |
>> TRT | JL+1*, JL+6, JL+8, JL+12, JL+23 |
TSK | REQUE+2~, REQUE+3*, REQUE+4, REQUE+5, REQUE+6 |
U | INHFTDVX+24, INHFTDVX+25, INHFTDVX+26, REQUE+4, SRVR+23, SRVR+27, SRVR+28, SETENV+1*, ERROR+7, BACK+5* , BACK+6, BACK+8, BACK+9, BACK+16, JL+6, JL+8, JL+10, INRHB+7, INRHB+8 |
UIF | JL+5!, JL+14, JL+15, JL+16, JL+17 |
UPDT | INRHB~, INRHB+6*, INRHB+7, INRHB+8 |
X | NEWSRV+21*, SRVR+19*, ERROR+1*, BACK+4*~, BACK+6*, BACK+8*, BACK+9 |
>> XUAUDIT | SRVR+24, HALT+5, LOOP+4, JL+10, JL+20 |
Y | NEWSRV+10~, NEWSRV+14 |
>> Z | JL+12*, JL+14 |