PARM FILESET="@"

# FILENAME: CNTFILES.XEQ - Joe Geiser

FILE FLIST=FLIST;REC=-79,,F,ASCII;DISC=5000;DEV=DISC;NOCCTL
LISTF !FILESET,2;*FLIST
FILE IN=FLIST;REC=-79
CONTINUE
RUN CI.PUB.SYS;INFO="CNTFILE2.XEQ ![FINFO("FLIST",19)]" ;&
  PARM=2;STDIN=*IN
PURGE FLIST,TEMP
DELETEVAR CNT_@