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

**Defined in:** [[george:source:INDEX-MACROS|INDEX-MACROS]]

**Used in:** [[george:source:BMINDEX866|BMINDEX866]], [[george:source:FHOBJIND860|FHOBJIND860]], [[george:source:INSERT6|INSERT6]]

<code - BRINDEX.mac.txt>
 73B4 ...[??? BRINDEX SECT FILE FGN 9 DOC
 73KW    [   
 782G    #MAC  BRINDEX   
 783X ...[     THIS MACRO BRANCHES TO  %B UNINDEXED  
 785# ...[                             %C FOR DIRS   
 786P ...[                             %D FOR DICT  #IF %D EJ AL MISSING,ASSU-*  
 7886 ...[                             %E FOR SERIAL   #UMES ALL SAME
 789H ...[                             %F FOR INCINDEX   
 78=Y ...[                             %G FOR SYSOUT 
 78#* ...[                             %H FOR :SYSTEM.JOBLIST
 78*Q ...[                             %I FOR JOBLIST(****) FILES
 78C7 ...[     %A (LS 6BITS) CONTAINS THE KEY NUMBER 
 78DJ ...[   
 78G6    #STR %A 
 78^Q    (   
 79FB    #STR %A,0   
 79^2          LDX   0  %A   
 7=DL    )   
 7=Y=          ANDN  0  #77  
 7?CW    #STR  %D
 7?XG    (   
 7#C6          ADX   0  FX1  
 7#WQ          EXIT  0  1+0? 
 7*BB          BRN      %B   
 7*W2          BRN      %C   
 7B*L          BRN      %D   
 7BT=          BRN      %E   
 7C#W          BRN      %F   
 7CSG          BRN      %G   
 7D#6          BRN      %H   
 7DRQ          BRN      %I   
 7F?B    )   
 7FR2    #STR  %D
 7G=L    #SKI
 7GQ=    (   
 7H9W          BZE   0  %B   
 7HPG    #STR %C 
 7J96          BRN      %C   
 7JNQ    )   
 7K8B    #NOR
</code>