CCPGNPL 
.PROC,CCPGNPL*I,\ 
BL      ' 3 CHARACTER BASE LEVEL               '=(*N=,,*A3),
CL      ' 3 CHARACTER CODE LEVEL               '=(*N=,,*A3),
UNP     ' USER NAME/PACK NAME FOR CCP FILES    '=(*N=,,*A), 
*CALL COMPROC 
. 
*CALL     PSRLEV
  
.****   CCPGNPL 
.*
.*      GENERATES A NEWPL BY ADDING USER CORRECTIONS
.*      TO THE COMBINED PROGRAM LIBRARY 
.*
  
IFE(.NOT.FILE(NEWPL,AS),YESNPL) 
ATTACH(PCMB=PCMB_BL_UNP)
IFE($BL$,GETUCCP) 
IFE($BL$.NE.$CL$,NOUCCP)
ENDIF(GETUCCP)
BEGIN(ACQUIRE,INSTALL,LFN=TMPUCCP,PFN=UCCP_CL)
ENDIF(NOUCCP) 
ATTACH(UCCPCC/NA_UNP) 
IFE(FILE(UCCPCC,AS),L10001) 
REWIND(TMPUCCP,UCCPCC,ZXC)
COPYBR(UCCPCC,ZXC)
COPYEI(TMPUCCP,ZXC) 
RETURN(UCCPCC)
RENAME(TMPUCCP=ZXC) 
REWIND(TMPUCCP) 
ENDIF(L10001) 
IFE(FILE(TMPUCCP,AS),NOUCCP)
NOTE(UCCP,NR)/*LT 25000 
COPYEI(TMPUCCP,UCCP)
RETURN(TMPUCCP) 
PACK(UCCP)
UPDATE(P=PCMB,I=UCCP,N,C=0) 
RETURN(UCCP,PCMB) 
ELSE(NOUCCP)
RENAME(NEWPL=PCMB)
ENDIF(NOUCCP) 
REVERT.  CCPGNPL.  NEWPL CREATED. 
.*
ENDIF(YESNPL) 
REVERT.  CCPGNPL.  NEWPL ALREADY EXISTS.
  
EXIT. 
REVERT(ABORT)  CCPGNPL. 
*WEOR 
