PARM FILE, ITEM, LISTCODE=NOLIST

#  "FOOTAT", QUIZ: Count all various ITEM values in FILE
#  JFB 02/06/1997

#  SET WORKING VARIABLE TO BLANKS

SETVAR _CSTAT," "
SETVAR _CSTATX," "
SETVAR _SSTAT," "
SETVAR _SSTATX," "

ECHO ACCESS !FILE > TQ1

#  PROVIDE OPPORTUNITY TO ENTER A CHOOSE STATEMENT

ECHO
INPUT _CSTATX;PROMPT="Want to specify CHOOSE ? (Y/N)->";WAIT=3
IF _CSTATX = "Y"
  INPUT _CSTAT;PROMPT="Enter CHOOSE statement or CR->";WAIT=90
  ECHO !_CSTAT >> TQ1
ENDIF

#  PROVIDE OPPORTUNITY TO ENTER A SELECT STATEMENT

ECHO
INPUT _SSTATX;PROMPT="Want to specify SELECT ? (Y/N)->";WAIT=3
IF _SSTATX = "Y"
  INPUT _SSTAT;PROMPT="Enter SELECT statement or CR->";WAIT=90
  ECHO !_SSTAT >> TQ1
ENDIF

ECHO SORT ON !ITEM >> TQ1

ECHO FOOTING AT !ITEM & >> TQ1
ECHO COUNT RESET AT !ITEM PICTURE "^,^^^,^^^" !ITEM >> TQ1

ECHO FINAL FOOTING & >> TQ1
ECHO SKIP 1 & >> TQ1
ECHO "===============================================" & >> TQ1
ECHO SKIP 1 & >> TQ1
ECHO COUNT PICTURE "^,^^^,^^^" & >> TQ1
ECHO "= # records reported.  (Report limit = 500,000)" >> TQ1

ECHO SET REPORT LIMIT 500000 >> TQ1
ECHO SET PAGE LENGTH 0 >> TQ1
ECHO SET NOSTATISTICS >> TQ1

ECHO GO >> TQ1
ECHO EXIT >> TQ1

#  CLEANUP OUR VARIABLES

DELETEVAR _CSTAT
DELETEVAR _CSTATX
DELETEVAR _SSTAT
DELETEVAR _SSTATX

ECHO
ECHO *** Now using 'FOOTAT' created code in temp file 'TQ1'... ***
QUIZ AUTO=TQ1 LIST=!LISTCODE