PARM PURGESET

# FILENAME: GRPPURGE.XEQ - Joe Geiser

ECHO ********** FILESET TO BE PURGED **********
LISTF !PURGESET
INPUT GP_YESNO,"Okay to purge above files (YES/NO)?"
IF "!GP_YESNO" = "YES" or "!GP_YESNO" = "yes" THEN
  FILE FLIST=FLIST;REC=-79,,F,ASCII;DISC=1000;NOCCTL
  LISTF !PURGESET,1;*FLIST
  FILE IN=FLIST
  CONTINUE
  RUN CI.PUB.SYS;INFO="GRPPURG2.XEQ &
    ![FINFO("FLIST",19)]";PARM=2;STDIN=*IN
  PURGE FLIST,TEMP
ENDIF
DELETEVAR GP@