PRGBAT1 
.PROC,PRGBAT1*I,\ 
CRL     ' 3 CHARACTER CROSS LEVEL              '=(*N=,,*A3),
CL      ' 3 CHARACTER CODE LEVEL               '=(*N=,,*A3),
V1      ' 3 CHARACTER VARIANT NAME             '=(*N=,,*A3),
V2      ' 3 CHARACTER VARIANT NAME             '=(*N=,,*A3),
V3      ' 3 CHARACTER VARIANT NAME             '=(*N=,,*A3),
V4      ' 3 CHARACTER VARIANT NAME             '=(*N=,,*A3),
V5      ' 3 CHARACTER VARIANT NAME             '=(*N=,,*A3),
V6      ' 3 CHARACTER VARIANT NAME             '=(*N=,,*A3),
V7      ' 3 CHARACTER VARIANT NAME             '=(*N=,,*A3),
V8      ' 3 CHARACTER VARIANT NAME             '=(*N=,,*A3),
V9      ' 3 CHARACTER VARIANT NAME             '=(*N=,,*A3),
V10     ' 3 CHARACTER VARIANT NAME             '=(*N=,,*A3),
*CALL COMPROC 
. 
*CALL     PSRLEV
  
.****   PRGBAT1 
.*
.*      PURGE INSTALLATION FILES
.*
  
BEGIN(SETAJTL,INSTALL)
.*
.*  CROSS DEFAULT 
.*
BEGIN(PRGCROS,INSTALL)
.*
.*  CROSS /CRL/ 
.*
IFE($CRL$,NO) 
BEGIN(PRGCROS,INSTALL,LEVEL=CRL)
ENDIF(NO) 
.*
.*  CROSS /CL/
.*
IFE($CL$,NO)
BEGIN(PRGCROS,INSTALL,LEVEL=CL) 
ENDIF(NO) 
.*
.*  FILES OTHER THAN GENERATED BY /VRB/ 
.*
PURGE(PCCP/NA)
PURGE(PBST/NA)
PURGE(PDGN/NA)
PURGE(PREM/NA)
PURGE(PCMB/NA)
PURGE(AEXP/NA)
PURGE(AALK/NA)
PURGE(LIMC/NA)
PURGE(BCMB/NA)
PURGE(LFCA/NA)
PURGE(LFWB/NA)
PURGE(ZMUX/NA)
PURGE(SMUX/NA)
PURGE(ZSAM/NA)
PURGE(LSAM/NA)
.*
.*  FILES GENERATED BY /VRB/
.*
IFE($V1$,NO)
BEGIN(PRGFILS,INSTALL,VN=V1)
ENDIF(NO) 
IFE($V2$,NO)
BEGIN(PRGFILS,INSTALL,VN=V2)
ENDIF(NO) 
IFE($V3$,NO)
BEGIN(PRGFILS,INSTALL,VN=V3)
ENDIF(NO) 
IFE($V4$,NO)
BEGIN(PRGFILS,INSTALL,VN=V4)
ENDIF(NO) 
IFE($V5$,NO)
BEGIN(PRGFILS,INSTALL,VN=V5)
ENDIF(NO) 
IFE($V6$,NO)
BEGIN(PRGFILS,INSTALL,VN=V6)
ENDIF(NO) 
IFE($V7$,NO)
BEGIN(PRGFILS,INSTALL,VN=V7)
ENDIF(NO) 
IFE($V8$,NO)
BEGIN(PRGFILS,INSTALL,VN=V8)
ENDIF(NO) 
IFE($V9$,NO)
BEGIN(PRGFILS,INSTALL,VN=V9)
ENDIF(NO) 
IFE($V10$,NO) 
BEGIN(PRGFILS,INSTALL,VN=V10) 
ENDIF(NO) 
REVERT.  PRGBAT1. 
.*
EXIT. 
REVERT(ABORT)  PRGBAT1. 
*WEOR 
