FINDJOBQ [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: FINDJOBQ)}}
====== FINDJOBQ ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_GLJ|MACROS GLJ]]

**Used in:** [[george:source:ACTPRI867|ACTPRI867]], [[george:source:ANSCOM865|ANSCOM865]], [[george:source:BCAST867|BCAST867]], [[george:source:CHARGESC867|CHARGESC867]], [[george:source:CONIPB8|CONIPB8]], [[george:source:CONNECTA867|CONNECTA867]], [[george:source:COREALLF867|COREALLF867]], [[george:source:CORESHED861|CORESHED861]], [[george:source:EVENTS864|EVENTS864]], [[george:source:HLSEVENT867|HLSEVENT867]], [[george:source:HLSREAD867|HLSREAD867]], [[george:source:JWELLONE867|JWELLONE867]], [[george:source:LLSMESS867|LLSMESS867]], [[george:source:LOGACC863|LOGACC863]], [[george:source:READFALE866|READFALE866]], [[george:source:SCHDJOBA867|SCHDJOBA867]], [[george:source:SCHEDOUT865|SCHEDOUT865]], [[george:source:STRATEGY865|STRATEGY865]], [[george:source:UNJAMMER866|UNJAMMER866]], [[george:source:WSJOBSA867|WSJOBSA867]], [[george:source:WTSTAT867|WTSTAT867]]

<code - FINDJOBQ.mac.txt>
 22FL ...[??? FINDJOBQ SECT CENT FGN 18 DOC  
 2G5L    #   
 2GK=    #     MACROS FOR GEORGE 3   
 2H4W    #   
 2HJG    #   
 2J46    #     HERE IS A QUICK JOBLOCK MACRO 
 2JHQ    #           %A = ADDRESS ON EXIT
 2K3B    #           %B = JOB NUMBER 
 2KH2    #           %C = LABEL IF NOT FOUND 
 2L2L    #MAC  FINDJOBQ  
 2LG=    #STR  %B,0  
 2L^W          LDX   0  %B   
 2MFG          LDN   %A BJOBQ
 2M^6    M1FJQ LDX   %A FPTR(%A) 
 2NDQ          BXE   %A CXJO,%C  
 2NYB          BXU   0  JOBNUM(%A),M1FJQ 
 2PD2    #NOR
</code>