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

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

**Used in:** [[george:source:ABANDON867|ABANDON867]], [[george:source:ACTPRI867|ACTPRI867]], [[george:source:ANSCOM865|ANSCOM865]], [[george:source:BCAST867|BCAST867]], [[george:source:CAPCA50|CAPCA50]], [[george:source:CHARGESC867|CHARGESC867]], [[george:source:CONNECT867|CONNECT867]], [[george:source:CONNECTA867|CONNECTA867]], [[george:source:CORESHED861|CORESHED861]], [[george:source:FINISH867|FINISH867]], [[george:source:HLSREAD867|HLSREAD867]], [[george:source:IDFENQS867|IDFENQS867]], [[george:source:JAMSWAP865|JAMSWAP865]], [[george:source:LISTNEXT867|LISTNEXT867]], [[george:source:LISTOPEN867|LISTOPEN867]], [[george:source:LISTPREP865|LISTPREP865]], [[george:source:LISTSEAR867|LISTSEAR867]], [[george:source:LOGACC863|LOGACC863]], [[george:source:OPENWORK866|OPENWORK866]], [[george:source:ORELEND860|ORELEND860]], [[george:source:PROCONTX867|PROCONTX867]], [[george:source:READFALE866|READFALE866]], [[george:source:SAVEBLOK65|SAVEBLOK65]], [[george:source:SAVEFILE860|SAVEFILE860]], [[george:source:SAVEJOB865|SAVEJOB865]], [[george:source:SCHDJOBA867|SCHDJOBA867]], [[george:source:SCHEDJOB867|SCHEDJOB867]], [[george:source:SETJOBQ867|SETJOBQ867]], [[george:source:SWAP865|SWAP865]], [[george:source:UNPLUG867|UNPLUG867]], [[george:source:UNSAVE867|UNSAVE867]], [[george:source:WORKFILE860|WORKFILE860]], [[george:source:WSJOBSA867|WSJOBSA867]], [[george:source:WTSTAT867|WTSTAT867]]

<code - FCAJO.mac.txt>
 82L4 ...[??? FCAJO SECT CENT FGN 18 DOC 
 82TW    #   
 83*G    #   
 83T6    #MAC  FCAJO                        [FIND  CPA FROM JOB BLOCK
 84#Q    [   
 84SB    #STR  %B
 85#2          MOD LDX %A AJBRING+BPTR,%B
 85RL    #STR  %B
 86?=    #SKI
 86QW          LDX   %A AJBRING+BPTR(%A) 
 87=G          SBN   %A JOBRING  
 87Q6    [   
 889Q    #STR  N,%C  
 88PB    (   
 8992    #SKI  K6ALLGEO                     [CHECK THAT BLOCK FOUND  
 89NL    (                                  [ IS OF THE RIGHT TYPE   
 8=8=          LDCH  0  ATYPE(%A)
 8=MW          SBN   0  CPAT/64  
 8?7G          BZE   0  MFCAJO1  
 8?M6          GEOERR   1,CPA?   
 8#6Q    MFCAJO1 
 8#LB    )   
 8*62    )   
 8*KL    [   
 8B5=    #NOR
</code>