EXCHOFE

(GIN Macro)
Used in: CHINTEG867, EXINONE867, NEXTUNIT867, RENAMEX867, SQOPEN867, WRITEFIP867
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