HUNTACTJ

(GIN Macro)

Defined in: MACROS RJH

Used in: SETJOBQ867, WHATRVSA867

HUNTACTJ.mac.txt

 2FB8 ...[??? HUNTACTJ SECT CENT FGN 71 DOC  
 2FL2    #     THIS MACRO FINDS AN ACT GIVEN :ITS TYPE,JOB NUMBER.   
 2G5L    #MAC  HUNTACTJ  
 2GK=          LDX   %C FX2  
 2H4W    MHUNTJ1 
 2HJG          LDX   %C FPTR(%C) 
 2J46          TXU   %C FX2  
 2JHQ          BCC      %D   
 2K3B          LDCH  0  ATYPE(%C)
 2KH2          SBN   0  %A/64
 2L2L          BNZ   0  MHUNTJ1  
 2LG=          LDX   0  JOBNO(%C)
 2L^W          SBX   0  %B   
 2MFG          BNZ   0  MHUNTJ1  
 2M^6    #NOR