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

**Defined in:** [[george:source:MACRO_COMPRO|MACRO COMPRO]]

**Used in:** [[george:source:EDITET7|EDITET7]], [[george:source:EDITOR867|EDITOR867]], [[george:source:EDITORA865|EDITORA865]], [[george:source:SETPC867|SETPC867]], [[george:source:SETPRAMA867|SETPRAMA867]]

<code - ALASHUNT.mac.txt>
 BDMS ...[??? ALASHUNT SECT CENT FGN 21 DOC  
 BDXL    [     THE FOLLOWING MACRO IS TO SEARCH FOR THE CPB/CALAS BLOCK  
 BFC=    [     AT COMMAND PROCESSOR LEVEL ONE
 BFWW    #   
 BGBG    #MAC  ALASHUNT  
 BGW6          MHUNTW   %A,CPB,CALAS 
 BH*Q    MALAS1  
 BHTB          LDEX  %B CPBCPLEV(%A) 
 BJ*2          ERN   %B 1
 BJSL          BZE   %B MALAS2   
 BK#=          HUNT2    %A,CPB,CALAS 
 BKRW          BRN      MALAS1   
 BL?G    MALAS2  
 BLR6    #NOR
</code>