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

**Defined in:** [[george:source:MACROS_GLJ|MACROS GLJ]]

**Used in:** [[george:source:ACTPRI867|ACTPRI867]], [[george:source:ATTACHC867|ATTACHC867]], [[george:source:BCAST867|BCAST867]], [[george:source:CHARGESC867|CHARGESC867]], [[george:source:COMPRO867|COMPRO867]], [[george:source:COOR865|COOR865]], [[george:source:COREALLF867|COREALLF867]], [[george:source:CORESHED861|CORESHED861]], [[george:source:DOMONOP867|DOMONOP867]], [[george:source:EVENTS864|EVENTS864]], [[george:source:FREEBUFF860|FREEBUFF860]], [[george:source:JAMSWAP865|JAMSWAP865]], [[george:source:OPENWAIT867|OPENWAIT867]], [[george:source:PERFAIL866|PERFAIL866]], [[george:source:PLUGIN867|PLUGIN867]], [[george:source:PROCONTX867|PROCONTX867]], [[george:source:REALTIME867|REALTIME867]], [[george:source:RELPER867|RELPER867]], [[george:source:RUNPROG840|RUNPROG840]], [[george:source:SCHEDOUT865|SCHEDOUT865]], [[george:source:SWAP865|SWAP865]], [[george:source:UNPLUG867|UNPLUG867]], [[george:source:WSJOBSA867|WSJOBSA867]], [[george:source:WSPERIS867|WSPERIS867]]

<code - FPCAJO.mac.txt>
 7LX4 ...[??? FPCAJO SECT CENT FGN 18 DOC
 7M6W    #   
 7MLG    #   
 7N66    #MAC  FPCAJO                       [FIND PCA FROM JOB BLOCK 
 7NKQ    [   
 7P5B    #STR  %B
 7PK2          MOD LDX %A AJBRING+FPTR,%B
 7Q4L    #STR  %B
 7QJ=    #SKI
 7R3W          LDX   %A AJBRING+FPTR(%A) 
 7RHG          SBN   %A JOBRING  
 7S36    [   
 7SGQ    #STR  N,%C  
 7T2B    (   
 7TG2    #SKI  K6ALLGEO                     [CHECK THAT BLOCK FOUND  
 7T^L    (                                  [ IS OF THE RIGHT TYPE   
 7WF=          LDCH  0  ATYPE(%A)
 7WYW          SBN   0  APET/64  
 7XDG          BZE   0  MFPCAJO1 
 7XY6          GEOERR   1,PCA?   
 7YCQ    MFPCAJO1
 7YXB    )   
 7^C2    )   
 7^WL    [   
 82B=    #NOR
</code>