CCPPURG 
.PROC,CCPPURG*I,\ 
V1      ' VARIANT NAME                         '=(*N=,*S3/AD),
V2      ' VARIANT NAME                         '=(*N=,*S3/AD),
V3      ' VARIANT NAME                         '=(*N=,*S3/AD),
V4      ' VARIANT NAME                         '=(*N=,*S3/AD),
V5      ' VARIANT NAME                         '=(*N=,*S3/AD),
V6      ' VARIANT NAME                         '=(*N=,*S3/AD),
V7      ' VARIANT NAME                         '=(*N=,*S3/AD),
V8      ' VARIANT NAME                         '=(*N=,*S3/AD),
V9      ' VARIANT NAME                         '=(*N=,*S3/AD),
V10     ' VARIANT NAME                         '=(*N=,*S3/AD),
*CALL COMIA 
*CALL COMTOB
*CALL COMPROC 
. 
*CALL     PSRLEV
  
.*****  CCPPURG - PURGE FILES CREATED BY CCP/CROSS INSTALLATION 
.*                PROCEDURES. 
  
.***    PARAMETERS
.*
.*      V1-V10   NAMES OF VARIANTS FOR WHICH FILES ARE TO BE PURGED.
.*
  
.*
.*  START JOB VIA CCPPROC.
.*
BEGIN(SUBPROC,INSTALL,CCPPUR,G,,,IA,TOBLD,NONE,JOBTYPE=CCP) 
REVERT.  CCPPURG. 
EXIT. 
REVERT(ABORT)  CCPPURG. 
.DATA,ZZZPROC.
.PROC,CCPPURG.
.*
.*  PURGE CCP FILES.  V3.6
.*
BEGIN(PRGBAT1,INSTALL,#V1=V1,#V2=V2,#V3=V3,#V4=V4,#V5=V5, 
               #V6=V6,#V7=V7,#V8=V8,#V9=V9,#V10=V10)
REVERT.  CCPPURG COMPLETE.
EXIT. 
REVERT(ABORT)  CCPPURG ERRORS.
*WEOR 
