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

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

**Used in:** [[george:source:ASSIGN860|ASSIGN860]], [[george:source:CIMOP867|CIMOP867]], [[george:source:GETNO865|GETNO865]], [[george:source:INCDTA865|INCDTA865]], [[george:source:IPCOND864|IPCOND864]], [[george:source:IPCONE865|IPCONE865]], [[george:source:IPCSTART864|IPCSTART864]], [[george:source:REQCART866|REQCART866]], [[george:source:SCHEDJOB867|SCHEDJOB867]]

<code - RINGACT.mac.txt>
 F4M# ...[??? RINGACT SECT CENT FGN 32 DOC   
 F4X6    #   
 F5BQ    # THIS MACRO CHAINS THE ACTIVITY BLOCK SPECIFIED IN %A IN FRONT 
 F5WB    # OF THE ACTIVITY BLOCK SPECIFIED IN %B. THE ACTIVITY RING IS UPDATED   
 F6B2    #   
 F6TL    #MAC  RINGACT   
 F7*=          STO   %A GEN5 
 F7SW          STO   %B GEN6 
 F8#G          MOD   LDN 1 ACTRING,%A
 F8S6          MOD   LDX 2 ACTRING+1,%B  
 F9?Q          RERING   1,2  
 F9RB          SMO      GEN6 
 F=?2          LDX   2  BPTR 
 F=QL          CHAIN    GEN5,2   
 F?==    #NOR
</code>