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

**Defined in:** [[george:source:ACCESSMACROS|ACCESSMACROS]]

**Used in:** [[george:source:ABANDON867|ABANDON867]], [[george:source:ABANDONA867|ABANDONA867]], [[george:source:BMJLSLAV864|BMJLSLAV864]], [[george:source:BMSAVJOB864|BMSAVJOB864]], [[george:source:DEWELL867|DEWELL867]], [[george:source:DICTWELL867|DICTWELL867]], [[george:source:DSCNCT867|DSCNCT867]], [[george:source:ENWELL867|ENWELL867]], [[george:source:FHOBJIND860|FHOBJIND860]], [[george:source:FREEZE864|FREEZE864]], [[george:source:IFXCODES864|IFXCODES864]], [[george:source:JDWRITE867|JDWRITE867]], [[george:source:JOBLIST867|JOBLIST867]], [[george:source:JSASCAN867|JSASCAN867]], [[george:source:JWELLONE867|JWELLONE867]], [[george:source:LOGOUT867|LOGOUT867]], [[george:source:REGEN865|REGEN865]], [[george:source:SCHDJOBA867|SCHDJOBA867]], [[george:source:SCHEDULE867|SCHEDULE867]], [[george:source:SETJD867|SETJD867]], [[george:source:SETPR867|SETPR867]], [[george:source:WSJOBS867|WSJOBS867]]

<code - GETJOB.mac.txt>
 ?XL4 ...[??? GETJOB SECT FILE FGN 19 DOC
 ?XTW    #MAC  GETJOB
 ?XXD ...#UNS  JWPHASE3  
 ?X^2 ...(   
 ?Y2J ...#STR  %C
 ?Y46 ...(   
 ?Y5N ...      LDX   0  %C   
 ?Y7= ...      SMO      FX2  
 ?Y8S ...      STO   0  ACOMMUNE9
 ?Y=B ...)   
 ?Y?Y ...)   
 ?Y*G    #STR  USER,%B   
 ?YT6    #SKI
 ?^#Q    (   
 ?^SB          LDX   0  %A   
 #2#2          LDX   2  FX2  
 #2RL          LDN   1  ACOMMUNE1(2) 
 #3?=          MOVE  0  3
 #3*8 ...#UNS  JWPHASE3  
 #3C6 ...(   
 #3F4 ...#STR  %C
 #3H2 ...      DOWN     LOCATE,9 
 #3JY ...)   
 #3LW ...#STR  %C
 #3NS ...#SKI
 #3QW          DOWN     LOCATE,7 
 #4=G    )   
 #4Q6    #STR  SYSTEM,%B 
 #59Q    #SKI
 #5PB    (   
 #692    #ACC  %A
 #6NL    (   
 #78=          LDX   0  %A   
 #7MW          SMO      FX2  
 #87G          STO   0  ACOMMUNE7
 #8M6    )   
 #96Q    #ACC  %A
 #9LB    #STR
 #=62    (   
 #=KL          SMO      FX2  
 #?5=          STO   %A ACOMMUNE7
 #?JW    )   
 #?LS ...#UNS  JWPHASE3  
 #?NQ ...(   
 #?QN ...#STR  %C
 #?SL ...      DOWN     LOCATE,10
 #?WJ ...)   
 #?YG ...#STR  %C
 ##2D ...#SKI
 ##4G          DOWN     LOCATE,8 
 ##J6    )   
 #*3Q    #NOR
</code>