FCATP

(GIN Macro)

Defined in: MACROS GLJ

Used in:

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