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

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

**Used in:** 

<code - FCATP.mac.txt>
 8M6# ...[??? FCATP SECT CENT FGN 18 DOC 
 8MB6    #   
 8MTQ    #     THIS MACRO LOCATES THE CPA FROM THE TP.PCA WHETHER IT IS  
 8N*B    #     ON THE JOB RING OR NOT.IT WORKS IF THE PROG IS NOT RCTP   
 8NT2    #   
 8P#L    #MAC  FCATP 
 8PS=    #STR  %B
 8Q?W          LDX   %A %B   
 8QRG          LDX   0  JOBRING+BPTR(%A) 
 8R?6          BNZ   0  MFCATP              [J IF PCA NOT ON JOB RING
 8RQQ          FINDPUC  %A,%A               [IF IT IS NOT THEN THE PUC.PCA MUST B
 8S=B    MFCATP  
 8SQ2          FCAPCA   %A,,%C   
 8T9L    #NOR
</code>