PARM FILECODE,FILESET="@"

# FILENAME: LISTCODE.XEQ - Joe Geiser
#
# DO A "LISTF,2" FOR THE SPECIFIED FILESET, THEN XEQ
# 'LISTCOD2' TO LIST FILES W/SPECIFIED FILECODE

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