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

**Defined in:** [[george:source:HUNTMACS1|HUNTMACS1]]

**Used in:** [[george:source:ACCESS867|ACCESS867]], [[george:source:CDCIPB864|CDCIPB864]], [[george:source:CHEKPRIV867|CHEKPRIV867]], [[george:source:ERASE867|ERASE867]], [[george:source:INCRCUBS860|INCRCUBS860]], [[george:source:INCRCUBX860|INCRCUBX860]], [[george:source:IPCOPENA83|IPCOPENA83]], [[george:source:IPCOPENB83|IPCOPENB83]], [[george:source:IPCPERI83|IPCPERI83]], [[george:source:MAKEFILE863|MAKEFILE863]], [[george:source:MONFIL865|MONFIL865]], [[george:source:MONFILEA864|MONFILEA864]], [[george:source:MONJRNAL850|MONJRNAL850]], [[george:source:ONLINCL864|ONLINCL864]], [[george:source:OWNERCHE84|OWNERCHE84]], [[george:source:WLA867|WLA867]]

<code - FCJOB.mac.txt>
 3*ND ...[??? FCJOB SECT CENT FGN 1 DOC  
 3*Y=    #   
 3BCW    #MAC  FCJOB 
 3BXG    [   
 3CC6    [ FINDS CURRENT JOB BLOCK FROM A SUBSET OF PCA CPA OLPA ACTIVITIES  
 3CWQ    [ DEFINED BY %C %D %E   
 3DBB    [ %A MODIFIER TO POINT TO JOB BLOCK; %B PNTR TO CURRENT ACTY;IF ABSENT  
 3DW2    [ ASSUMED = %A ;%C=PCA OR ABSENT ;%D=CPA OR ABSENT ;%E=OLPA OR ABSENT   
 3F*L    [   
 3FT=    #STR  %B
 3G#W          LDX   %A %B   
 3GSG    #STR  %C
 3H#6    (   
 3HRQ    #STR  %D%E  
 3J?B    (   
 3JR2    #OPT  MFCJOB10=APET/64  
 3K=L          LDCH  0  ATYPE(%A)
 3KQ=          SBN   0  MFCJOB10 
 3L9W          BZE   0  MFCJOB3  
 3LPG    )   
 3M96    )   
 3MNQ    #STR  %D
 3N8B    (   
 3NN2    #STR  %E
 3P7L    (   
 3PM=    #STR  %C
 3Q6W    #SKI
 3QLG          LDCH  0  ATYPE(%A)
 3R66    #OPT  MFCJOB10=0
 3RKQ          SBADN    0,CPAT/64-MFCJOB10   
 3S5B          BNZ   0  MFCJOB2  
 3SK2    )   
 3T4L          FJOCA    %A,,N
 3TJ=    #STR  %C%E  
 3W3W          BRN      MFCJOB4  
 3WHG    MFCJOB2 
 3X36    )   
 3XGQ    #STR  %E
 3Y2B    (   
 3YG2    MFCJOB6 
 3Y^L          FINDACTFB %A,,APET,,,BPTR 
 3^F=          LDX   0  JOBRING+BPTR(%A) 
 3^YW          BZE   0  MFCJOB6             [IF TP PCA NOT ON JOBRING,PUC PCA IS 
 42DG    )   
 42Y6    #STR  %C%E  
 43CQ    (   
 43XB    MFCJOB3 
 44C2          FJOPCA   %A,,N
 44WL    )   
 45B=    #FRE  MFCJOB10  
 45TW    MFCJOB4 
 46*G    #SKI  K6ALLGEO  
 46T6    (   
 47#Q          LDCH  0  ATYPE(%A)
 47SB          SBN   0  JOBQE/64 
 48#2          BZE   0  MFCJOB5  
 48RL          GEOERR   1,JBBLOCK?   
 49?=    MFCJOB5 
 49QW    )   
 4==G    #NOR
</code>