FCAPCA [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: FCAPCA)}}
====== FCAPCA ======
(GIN Macro)

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

**Used in:** [[george:source:CIMOP867|CIMOP867]], [[george:source:COMMFILE82|COMMFILE82]], [[george:source:COMPCHAN84|COMPCHAN84]], [[george:source:CONTXCOD60|CONTXCOD60]], [[george:source:DOMONOP867|DOMONOP867]], [[george:source:FHOBJIND860|FHOBJIND860]], [[george:source:FREEBUFF860|FREEBUFF860]], [[george:source:INMOP867|INMOP867]], [[george:source:LOADPROG865|LOADPROG865]], [[george:source:LOGACC863|LOGACC863]], [[george:source:MONRESUM850|MONRESUM850]], [[george:source:OLPODD865|OLPODD865]], [[george:source:OPILLS70|OPILLS70]], [[george:source:PLUGIN867|PLUGIN867]], [[george:source:RUNPROG840|RUNPROG840]]

<code - FCAPCA.mac.txt>
 6HQ4 ...[??? FCAPCA SECT CENT FGN 18 DOC
 6H^W    #   
 6JFG    #   
 6J^6    #MAC  FCAPCA                       [FIND CPA FROM PCA   
 6KDQ    [   
 6KYB    #STR  %B
 6LD2          MOD LDX %A JOBRING+FPTR,%B
 6LXL    #STR  %B
 6MC=    #SKI
 6MWW          LDX   %A JOBRING+FPTR(%A) 
 6NBG          SBN   %A JOBRING  
 6NW6    [   
 6P*Q    #STR  N,%C  
 6PTB    (   
 6Q*2    #SKI  K6ALLGEO                     [CHECK THAT THE BLOCK FOUND  
 6QSL    (                                  [ IS OF THE RIGHT TYPE   
 6R#=          LDCH  0  ATYPE(%A)
 6RRW          SBN   0  CPAT/64  
 6S?G          BZE   0  MFCAPCA1 
 6SR6          GEOERR   1,CPA?   
 6T=Q    MFCAPCA1
 6TQB    )   
 6W=2    )   
 6WPL    [   
 6X9=    #NOR
</code>