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

**Defined in:** [[george:source:MACROS_EWDAS|MACROS EWDAS]]

**Used in:** [[george:source:CHINTEG867|CHINTEG867]], [[george:source:EXINONE867|EXINONE867]], [[george:source:NEXTUNIT867|NEXTUNIT867]], [[george:source:RENAMEX867|RENAMEX867]], [[george:source:SQOPEN867|SQOPEN867]], [[george:source:WRITEFIP867|WRITEFIP867]]

<code - EXCHOFE.mac.txt>
 22FL    # **********************************************************************
 22^=    # *                                                                     
 23DW    # *                   EXOFILE SECURITY MACROS                           
 23YG    # *                                                                     
 24D6    # *                    EXCHOFE,SECUREX,SXTEST                           
 24XQ    # *                                                                     
 25CB    # **********************************************************************
 25X2    #   
 26BL    [???                                EXCHOFE 
 26W=    #                                   ******* 
 27*W    #MAC  EXCHOFE   
 27TG    #   
 28*6          LDX   0  EDSQ 
 28SQ          BZE   0  %D                  [J IF EXOFILE LIB NOT REQD   
 294J ...      LDN   0  FRB%A
 29#B          SMO      FX2  
 29S2          STO   0  ACOMMUNE7           [1=EXOF,2=DIR,3=ICL  
 2=?L          SMO      FX2  
 2=R=          STOZ     ACOMMUNE6           [FUNCTION INDICATOR  
 2?=W    #STR %E 
 2?QG    (   
 2#=6    #STR A,%E   
 2#PQ    #SKI
 2*9B    (   
 2*P2          LDN   0  1
 2B8L    #STR AW,%E  
 2BN=    #SKI
 2C7W    (   
 2CMG          ORX   0  GSIGN
 2D76    )   
 2DLQ          SMO      FX2  
 2F6B          STO   0  ACOMMUNE6
 2FL2    )   
 2G5L    )   
 2GK=    #STR %B 
 2H4W    #SKI
 2HJG    (   
 2J46          SMO      FX2  
 2JHQ          STOZ     ACOMMUNE8
 2K3B    )   
 2KH2    #STR %B 
 2L2L    (   
 2LG=          LDX   0  %B   
 2L^W          SMO      FX2  
 2MFG          STO   0  ACOMMUNE8           [STORAGE UNIT SERIAL NO  
 2M^6    )   
 2NDQ    #STR %C 
 2NYB    (   
 2PD2          LDX   0  %C   
 2PXL          SMO      FX2  
 2QC=          STO   0  ACOMMUNE9           [ACCESS MODES REQUIRED   
 2QWW    )   
 2RBG          DOWN     ANTIC,77 
 2RW6    #NOR
</code>