FINDJOBQ

(GIN Macro)

Defined in: MACROS GLJ

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

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