GETJOB

(GIN Macro)

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

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