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

**Defined in:** [[george:source:MACRO_COMPRO|MACRO COMPRO]]

**Used in:** [[george:source:ATTACHC867|ATTACHC867]], [[george:source:BLOGNAL865|BLOGNAL865]], [[george:source:BQUERY84|BQUERY84]], [[george:source:BUDGTWO84|BUDGTWO84]], [[george:source:COMPRO867|COMPRO867]], [[george:source:COMPROB867|COMPROB867]], [[george:source:CONMXA85|CONMXA85]], [[george:source:CONNECT867|CONNECT867]], [[george:source:CONNECTA867|CONNECTA867]], [[george:source:DISPCOM867|DISPCOM867]], [[george:source:LIBCOM867|LIBCOM867]], [[george:source:LOGOUT867|LOGOUT867]], [[george:source:NAMEPRIV|NAMEPRIV]], [[george:source:NEWPASSW867|NEWPASSW867]], [[george:source:OPENWAIT867|OPENWAIT867]], [[george:source:QUESCOM867|QUESCOM867]], [[george:source:RELPER867|RELPER867]], [[george:source:RETURN867|RETURN867]], [[george:source:TIME6|TIME6]], [[george:source:TRAPCHEC867|TRAPCHEC867]], [[george:source:TRAPPARA3|TRAPPARA3]]

<code - CJOBLOCK.mac.txt>
 *J*J ...[??? CJOBLOCK SECT CENT FGN 21 DOC  
 *JKB    #   
 *K52    #   
 *KJL    #MAC  CJOBLOCK  
 *L4=          FJOCA    1,FX2
 *LHW    #STR  %A,1  
 *M3G    (   
 *MH6          STO   1  %A   
 *N2Q          LDX   1  FX1  
 *NGB    )   
 *P22    #STR  %A,2  
 *PFL          LDX   2  FX2  
 *P^=    #NOR
</code>