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

**Defined in:** [[george:source:COREMACROS|COREMACROS]]

**Used in:** [[george:source:IDFPER867|IDFPER867]]

<code - RINGPURG.mac.txt>
 B9*D ...[??? RINGPURG SECT CENT FGN 32 DOC  
 B9K=    # CLEAR OUT REDUNDANT RINGS BY CLEARING LOWER FIELD OF ARINGNO  
 B=4W    #MAC RINGPURG   
 B=JG          LDN   0  0
 B?46     MOD  DLA   0  ARINGNO,%A   
 B?HQ    #NOR
</code>