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

**Defined in:** [[george:source:MACROS_HL|MACROS HL]]

**Used in:** [[george:source:UNSAVE867|UNSAVE867]]

<code - CHJOBLOCK.mac.txt>
 2^^D ...[??? CHJOBLOC SECT CENT FGN 5 DOC   
 329=    #   
 32NW    #              CHJOBLOCK MACRO  
 338G    #              SEARCHES DOWN JOB QUEUE AND CHAINS JOB BLOCK IN JOB  
 33N6    #              NUMBER ORDER.FINALLY UPDATES FIRST BLOCK IN QUEUE
 347Q    #   
 34MB    #MAC           CHJOBLOCK
 3572          LDX   1  %A   
 35LL          LDN   2  BJOBQ
 366=    MCHJOBLOCK1 
 36KW          LDX   2  FPTR(2)  
 375G          TXU   2  CXJO 
 37K6          BCC      MCHJOBLOCK2  
 384Q          LDX   0  JOBNUM(2)
 38JB          TXL   0  JOBNUM(1)           [J WHILE JOB 
 3942          BCS      MCHJOBLOCK1         [NUMBER GREATER THAN QUEUE   
 39HL    #SKIP K6CHJOB>5-5   
 3=3=    (   
 3=GW          TXU   0  JOBNUM(1)
 3?2G          BCS      MCHJOBLOCK2  
 3?G6          GEOERR   0,CHJOBLOK   
 3?^Q    )   
 3#FB    MCHJOBLOCK2 
 3#^2          LDX   2  BPTR(2)  
 3*DL          CHAIN    1,2  
 3*Y=    #NOR
</code>