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

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

**Used in:** [[george:source:CAPCA50|CAPCA50]], [[george:source:CORESHED861|CORESHED861]], [[george:source:EVENTS864|EVENTS864]], [[george:source:GIVE867|GIVE867]], [[george:source:GIVEA867|GIVEA867]], [[george:source:INMOP867|INMOP867]], [[george:source:MEXTSJ70|MEXTSJ70]], [[george:source:MONRESUM850|MONRESUM850]], [[george:source:OPCA867|OPCA867]], [[george:source:PERFAIL866|PERFAIL866]], [[george:source:PLUGIN867|PLUGIN867]], [[george:source:PROGISH850|PROGISH850]], [[george:source:REQESLIP861|REQESLIP861]], [[george:source:SWAP865|SWAP865]], [[george:source:TPINS861|TPINS861]], [[george:source:UNPLUG867|UNPLUG867]]

<code - FJOPCA.mac.txt>
 7?84 ...[??? FJOPCA SECT CENT FGN 18 DOC
 7?CW    #   
 7?XG    #   
 7#C6    #MAC  FJOPCA                       [FIND JOB BLOCK FROM PCA 
 7#WQ    [   
 7*BB    #STR  %B
 7*W2          MOD LDX %A JOBRING+BPTR,%B
 7B*L    #STR  %B
 7BT=    #SKI
 7C#W          LDX   %A JOBRING+BPTR(%A) 
 7CSG          SBN   %A AJBRING  
 7D#6    [   
 7DRQ    #STR  N,%C  
 7F?B    (   
 7FR2    #SKI  K6ALLGEO                     [CHECK THAT BLOCK FOUND  
 7G=L    (                                  [ IS OF THE RIGHT TYPE   
 7GQ=          LDCH  0  ATYPE(%A)
 7H9W          SBN   0  JOBQE/64 
 7HPG          BZE   0  MFJOPCA1 
 7J96          GEOERR   1,JBBLOCK?   
 7JNQ    MFJOPCA1
 7K8B    )   
 7KN2    )   
 7L7L    [   
 7LM=    #NOR
</code>