EDZBAT1 
.PROC,EDZBAT1*I,\ 
VN1     ' VARIANT TO BE EDITED                 '=(*N=,,*A), 
VN2     ' EDITED VARIANT'S NEW NAME            '=(*N=,,*A), 
CRL     ' 3 CHARACTER CROSS LEVEL              '=(*N=,,*A3),
BL      ' 3 CHARACTER BASE LEVEL               '=(*N=,,*A3),
CL      ' 3 CHARACTER CODE LEVEL               '=(*N=,,*A3),
UNC     ' USER NAME/PACK NAME FOR CROSS FILES  '=(*N=,,*A), 
*IF,DEF,63CSET
CSET    ' CHARACTER SET                        '=(*N=63), 
*ELSE 
CSET    ' CHARACTER SET                        '=(*N=64), 
*ENDIF
*CALL COMPROC 
. 
*CALL     PSRLEV
  
.****   EDZBAT1 
.*
.*      PROCEDURE TO EDIT A CCP VARIANT LOAD MODULE 
.*
  
BEGIN(SETAJTL,INSTALL)
ATTACH(ABSOLMP=Z_VN1_BL)
ATTACH(SYMTAB=S_VN1_BL) 
ATTACH(MPEDIT=AEDT_CRL_UNC) 
BEGIN(ACQUIRE,INSTALL,LFN=EDITINP,PFN=UEDZ_CL)
PURGE(Z_VN2_CL/NA)
DEFINE(ZAPMP=Z_VN2_CL)
RFL(77000)
MPEDIT(D=EDITINP,R=OUTPUT,X=1,#CSET=CSET) 
RFL(0)
WRITEF(ZAPMP) 
RETURN(MPEDIT,EDITINP,ABSOLMP,ZAPMP)
PURGE(S_VN2_CL/NA)
DEFINE(SYM=S_VN2_CL)
REWIND(SYMTAB)
COPYEI(SYMTAB,SYM)
RETURN(SYMTAB,SYM)
REVERT.  EDZBAT1. 
.*
EXIT. 
RFL(0)
REVERT(ABORT)  EDZBAT1. 
*WEOR 
