PRGFILS 
.PROC,PRGFILS*I,\ 
VN      ' 3 CHARACTER VARIANT NAME             '=(*N=,,*A3),
*CALL COMPROC 
. 
*CALL     PSRLEV
  
.****   PRGFILS 
.*
.*      PURGE /VRB/ STEP FILES
.*        CALLED FROM /PRGBAT1/ 
.*
  
PURGE(I_VN/NA)
PURGE(L_VN/NA)
PURGE(S_VN/NA)
PURGE(Z_VN/NA)
REVERT.  PRGFILS. 
.*
EXIT. 
REVERT(ABORT)  PRGFILS. 
*WEOR 
