PARM FILESET="@"

# FILENAME: LISTCMD.XEQ - Joe Geiser
#
# DO A "LISTF,2" FOR COMMAND FILES WITH FILECODE = 1

FILE FLIST=FLIST;REC=-79,,F,ASCII;DEV=DISC;NOCCTL;disc=5000
LISTF !FILESET,2;*FLIST
FILE IN=FLIST;REC=-79
IF "!FILESET"="@" THEN
 ECHO *************** COMMAND FILES IN !HPGROUP.!HPACCOUNT &
 *******************
ELSE
 ECHO *************** COMMAND FILES IN !FILESET &
 *************************
ENDIF
CONTINUE
RUN CI.PUB.SYS;INFO="LISTCMD2.XEQ ![FINFO("FLIST",19)]";&
  PARM=2;STDIN=*IN
PURGE FLIST,TEMP
DELETEVAR LC@