FCAPCA

(GIN Macro)

Defined in: MACROS GLJ

Used in: CIMOP867, COMMFILE82, COMPCHAN84, CONTXCOD60, DOMONOP867, FHOBJIND860, FREEBUFF860, INMOP867, LOADPROG865, LOGACC863, MONRESUM850, OLPODD865, OPILLS70, PLUGIN867, RUNPROG840

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