CCPEDIT 
.PROC,CCPEDIT*I,\ 
OLD     ' VAR NAME OF LOAD MODULE TO EDIT      '=(*S3/AD),
NEW     ' VAR NAME OF NEW (EDITED) LOAD MODULE '=(*S3/AD),
*CALL COMIA 
*CALL COMTOB
*CALL COMPROC 
. 
*CALL     PSRLEV
  
.*****  CCPEDIT - EDIT CCP LOAD MODULE FILE.
  
.***    PARAMETERS
.*
.*      OLD      VARIANT NAME OF LOAD MODULE TO EDIT. 
.*      NEW      VARIANT NAME OF NEW (EDITED) LOAD MODULE.
.*
  
.*
.*  START JOB VIA CCPPROC.
.*
BEGIN(SUBPROC,INSTALL,CCPEDI,T,,,IA,TOBLD,NONE,JOBTYPE=CCP) 
REVERT.  CCPEDIT. 
EXIT. 
REVERT(ABORT)  CCPEDIT. 
.DATA,ZZZPROC.
.PROC,CCPEDIT.
.*
.*  EDIT LOAD MODULE FILE.  V3.6
.*
BEGIN(EDZBAT1,INSTALL,VN1=OLD,VN2=NEW)
REVERT.  CCPEDIT COMPLETE.
EXIT. 
REVERT(ABORT)  CCPEDIT ERRORS.
*WEOR 
