PARM FILE, HEAD_ITEM, FOOT_ITEM, LISTCODE=NOLIST

#  "FOOTHEAD", QUIZ: Count all various FOOT_ITEM values in FILE
#              within each HEAD_ITEM value with Heading at HEAD_ITEM
#  JFB 02/06/1997

#  SET WORKING VARIABLEs 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 !HEAD_ITEM ON !FOOT_ITEM >> TQ1

ECHO HEADING AT !HEAD_ITEM & >> TQ1
ECHO SKIP 2 & >> TQ1
ECHO "**" "!HEAD_ITEM" "=" !HEAD_ITEM "**" & >> TQ1
ECHO SKIP 1 >> TQ1

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

ECHO FINAL FOOTING & >> TQ1
ECHO SKIP 1 & >> TQ1
ECHO "===============================================" & >> TQ1
ECHO SKIP 1 & >> TQ1
ECHO COUNT AT !HEAD_ITEM PICTURE "^,^^^,^^^" & >> TQ1
ECHO "= # unique !HEAD_ITEM reported" & >> TQ1
ECHO SKIP 2 & >> 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 'FOOTHEAD' created code in temp file 'TQ1' ***
QUIZ AUTO=TQ1 LIST=!LISTCODE