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

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

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

<code - SAVECHN.mac.txt>
 2YGJ ...[??? SAVECHN SECT CENT FGN 71 DOC   
 2YQB    #   
 2^=2    #   
 2^PL    #     THIS MACRO SAVES THE ACTIVITY CHAIN FROM THE SPEC LOCKED ACT BLOCK
 329=    #     TO THE NEXT ACT BLOCK. IF THE NEXT ACT BLOCK IS AOLPT WITH SAME   
 32NW    #     JOB NO,THIS AOLPT IS LOCKED AND ITS ADDRESS PASSED IN EXEC3.  
 338G    #     OTHERWISE THE REPLY IS ZERO. INITIALLY HOWEVER THE MACRO GEOERR'S 
 33N6    #     IF SUCH AN AOLPT OCCURS   
 347Q    #   
 34MB    #MAC  SAVECHN   
 3572          LDX   0  %A   
 35LL          SMO      FX2  
 366=          STO   0  ACOM1
 36KW          DOWN  SAVEBLOK,3  
 375G    #NOR
</code>