PRGCROS 
.PROC,PRGCROS*I,\ 
LEVEL   ' 3 CHARACTER CROSS LEVEL              '=(*N=,,*A3),
*CALL COMPROC 
. 
*CALL     PSRLEV
  
.****   PRGCROS 
.*
.*      PURGE CROSS FILES 
.*        CALLED FROM /PRGBAT1/ 
.*
  
PURGE(PCRS_LEVEL/NA)
PURGE(AASM_LEVEL/NA)
PURGE(ACYP_LEVEL/NA)
PURGE(AEDT_LEVEL/NA)
PURGE(AFMT_LEVEL/NA)
PURGE(ALIB_LEVEL/NA)
PURGE(ALNK_LEVEL/NA)
PURGE(AMAC_LEVEL/NA)
PURGE(AMAS_LEVEL/NA)
PURGE(APAS_LEVEL/NA)
PURGE(AXRF_LEVEL/NA)
REVERT.  PRGCROS. 
.*
EXIT. 
REVERT(ABORT)  PRGCROS. 
*WEOR 
