HUNTACTJ [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: HUNTACTJ)}}
====== HUNTACTJ ======
(GIN Macro)

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

**Used in:** [[george:source:SETJOBQ867|SETJOBQ867]], [[george:source:WHATRVSA867|WHATRVSA867]]

<code - 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
</code>