{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: DICTJOB)}}
====== DICTJOB ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_RM59B|MACROS RM59B]]

**Used in:** [[george:source:BEXTSJ84|BEXTSJ84]], [[george:source:CHTAB|CHTAB]], [[george:source:CONNECTA867|CONNECTA867]], [[george:source:ERASE867|ERASE867]], [[george:source:HLSEMS864|HLSEMS864]], [[george:source:INITJOB867|INITJOB867]], [[george:source:INKS|INKS]], [[george:source:LOGOUT867|LOGOUT867]]

<code - DICTJOB.mac.txt>
 38JB ...[??? DICTJOB SECT FILE FGN 6 DOC
 3=3=    #MAC  DICTJOB   
 3=77 ...[     DICTJOB MACRO KEEPS A COUNT OF JOBS RUNNING IN A USER & DOES OTHER
 3=?4 ...[     ENTRY POINTS: 1-JOB,ETC.  2-ENDJOB,ETC.   3-ERASE 
 3=B^ ...[     DICTJOB  3  IS THE SAME AS JOBQCHEC (WHICH WAS ALREADY IN USE)
 3=GW    #STR  %A,5  
 3?2G    #SKI
 3?G6    (   
 3?^Q          LDX   0  %B   
 3#FB          SMO      FX2  
 3#^2          STO   0  ACOMMUNE1
 3*DL    )   
 3*Y=          DOWN     DICTJOB,%A   
 3BCW    #NOR
</code>