PARM CNT_NRECS

# FILENAME: CNTFILE2.XEQ - Joe Geiser

SETVAR CNT_CNTR,7
SETVAR CNT_FCNT,0
INPUT CNT_REC
INPUT CNT_REC
INPUT CNT_REC
INPUT CNT_REC
INPUT CNT_REC
WHILE !CNT_CNTR < !CNT_NRECS
  INPUT CNT_REC
  SETVAR CNT_FNINE,STR("!CNT_REC",1,9)
  IF "!CNT_FNINE" <> "ACCOUNT= " AND &
     "!CNT_FNINE" <> "         " AND &
     "!CNT_FNINE" <> "FILENAME " THEN
        SETVAR CNT_FCNT,!CNT_FCNT+1
  ENDIF
  SETVAR CNT_CNTR,!CNT_CNTR+1
ENDWHILE
echo +----------------------------------
echo | # FILES IS FILESET: !CNT_FCNT
echo +----------------------------------