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

**Defined in:** [[george:source:MACROS_RJH|MACROS RJH]]

**Used in:** [[george:source:ABANDON867|ABANDON867]], [[george:source:CONNECT867|CONNECT867]], [[george:source:COOR865|COOR865]], [[george:source:ENWELL867|ENWELL867]], [[george:source:EXPRESS864|EXPRESS864]], [[george:source:HLSEVENT867|HLSEVENT867]], [[george:source:HLSREAD867|HLSREAD867]], [[george:source:JWELLONE867|JWELLONE867]], [[george:source:SAVEJOB865|SAVEJOB865]], [[george:source:SCHEDJOB867|SCHEDJOB867]], [[george:source:SCHEDULE867|SCHEDULE867]], [[george:source:UNSAVE867|UNSAVE867]], [[george:source:WSJOBSA867|WSJOBSA867]], [[george:source:WSPERIS867|WSPERIS867]]

<code - SHLSQ.mac.txt>
 22FL    #   
 22PD ...[??? SHLSQ SECT CENT FGN 71 DOC 
 22^=    #     THIS SUBFILE BELONGS TO RICHARD GRIMWADE  
 23DW    #   
 23YG    #  THESE MACROS ARE USED BY THE SAVEJOB ROUTINE 
 24D6    #   
 24XQ    #     THIS MACRO SEARCHES THE HLS QUEUE FOR A HLS QUEUE BLOCK WITH A
 25CB    #     SPECIFIED JOB NUMBER  
 25X2    #MAC  SHLSQ 
 26BL          LDN   %B BHLSQ
 26W=    SHLSQ1  LDX %B FPTR(%B) 
 27*W          TXU   %B CXHL 
 27TG          BCC      %C   
 28*6          LDX   0  HLSJONO(%B)  
 28SQ          SBX   0  %A   
 29#B          BNG   0  SHLSQ1   
 29S2          BNZ   0  %C   
 2=?L    #NOR
</code>