Command files and QUIZ.
John Backus
john@beechglen.com
Fri, 19 Jun 1998 15:24:59 -0500
I have found these to be useful, perhaps some of you will agree.
John Backus
Beechglen Development, Inc (www.beechglen.com)
:print footat;page=0
PARM FILE, ITEM, LISTCODE=NOLIST
COMMENT "FOOTAT", QUIZ: Count all various ITEM values in FILE
COMMENT JFB 02/06/1997
COMMENT SET WORKING VARIABLE TO BLANKS
COMMENT
SETVAR _CSTAT," "
SETVAR _CSTATX," "
SETVAR _SSTAT," "
SETVAR _SSTATX," "
ECHO ACCESS !FILE > TQ1
COMMENT
COMMENT PROVIDE OPPORTUNITY TO ENTER A CHOOSE STATEMENT
COMMENT
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
COMMENT
COMMENT PROVIDE OPPORTUNITY TO ENTER A SELECT STATEMENT
COMMENT
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 REPORT >> TQ1
ECHO FOOT AT !ITEM COUNT RESET AT !ITEM PIC "^,^^^,^^^" !ITEM >> TQ1
ECHO FIN FOO SKI 1 & >> TQ1
ECHO "===============================================" SKI 1 & >> TQ1
ECHO COUNT "= # records reported. (Rep limit = 500,000)" >> TQ1
ECHO SET REP LIM 500000 >> TQ1
ECHO SET PAG LEN 0 >> TQ1
ECHO SET NOSTATISTICS >> TQ1
ECHO GO >> TQ1
ECHO EXIT >> TQ1
COMMENT
COMMENT CLEANUP OUR VARIABLES
COMMENT
DELETEVAR _CSTAT
DELETEVAR _CSTATX
DELETEVAR _SSTAT
DELETEVAR _SSTATX
ECHO *** Now using 'FOOTAT' created code in temp file 'TQ1'... ***
QUIZ "AUTO=TQ1 !LISTCODE"
:print foothead;page=0
PARM FILE, HITEM, FITEM, LISTCODE=NOLIST
COMMENT "FOOTHEAD", QUIZ: Count all various FITEM values in FILE
COMMENT within each HITEM value with Heading at HITEM
COMMENT JFB 02/06/1997
COMMENT SET WORKING VARIABLEs TO BLANKS
COMMENT
SETVAR _CSTAT," "
SETVAR _CSTATX," "
SETVAR _SSTAT," "
SETVAR _SSTATX," "
ECHO ACCESS !FILE > TQ1
COMMENT
COMMENT PROVIDE OPPORTUNITY TO ENTER A CHOOSE STATEMENT
COMMENT
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
COMMENT
COMMENT PROVIDE OPPORTUNITY TO ENTER A SELECT STATEMENT
COMMENT
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 !HITEM ON !FITEM >> TQ1
ECHO REPORT >> TQ1
ECHO HEAD AT !HITEM SKI 2 "**" "!HITEM" "=" !HITEM "**" SKI 1 >> TQ1
ECHO FOO AT !FITEM COU RESET AT !FITEM PIC "^,^^^,^^^" !FITEM >> TQ1
ECHO FIN FOO SKI 1 & >> TQ1
ECHO "===============================================" SKI 1 & >> TQ1
ECHO COU AT !HITEM "= # unique !HITEM reported" & >> TQ1
ECHO SKI 2 COUNT "= # records reported. (Rep limit = 500,000)" >> TQ1
ECHO SET REP LIM 500000 >> TQ1
ECHO SET PAG LEN 0 >> TQ1
ECHO SET NOSTATISTICS >> TQ1
ECHO GO >> TQ1
ECHO EXIT >> TQ1
COMMENT
COMMENT CLEANUP OUR VARIABLES
COMMENT
DELETEVAR _CSTAT
DELETEVAR _CSTATX
DELETEVAR _SSTAT
DELETEVAR _SSTATX
ECHO *** Now using 'FOOTHEAD' created code in temp file 'TQ1'... ***
QUIZ "AUTO=TQ1 !LISTCODE"
:print foothead;page=0
PARM FILE, HITEM, FITEM, LISTCODE=NOLIST
COMMENT "FOOTHEAD", QUIZ: Count all various FITEM values in FILE
COMMENT within each HITEM value with Heading at HITEM
COMMENT JFB 02/06/1997
COMMENT SET WORKING VARIABLEs TO BLANKS
COMMENT
SETVAR _CSTAT," "
SETVAR _CSTATX," "
SETVAR _SSTAT," "
SETVAR _SSTATX," "
ECHO ACCESS !FILE > TQ1
COMMENT
COMMENT PROVIDE OPPORTUNITY TO ENTER A CHOOSE STATEMENT
COMMENT
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
COMMENT
COMMENT PROVIDE OPPORTUNITY TO ENTER A SELECT STATEMENT
COMMENT
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 !HITEM ON !FITEM >> TQ1
ECHO REPORT >> TQ1
ECHO HEAD AT !HITEM SKI 2 "**" "!HITEM" "=" !HITEM "**" SKI 1 >> TQ1
ECHO FOO AT !FITEM COU RESET AT !FITEM PIC "^,^^^,^^^" !FITEM >> TQ1
ECHO FIN FOO SKI 1 & >> TQ1
ECHO "===============================================" SKI 1 & >> TQ1
ECHO COU AT !HITEM "= # unique !HITEM reported" & >> TQ1
ECHO SKI 2 COUNT "= # records reported. (Rep limit = 500,000)" >> TQ1
ECHO SET REP LIM 500000 >> TQ1
ECHO SET PAG LEN 0 >> TQ1
ECHO SET NOSTATISTICS >> TQ1
ECHO GO >> TQ1
ECHO EXIT >> TQ1
COMMENT
COMMENT CLEANUP OUR VARIABLES
COMMENT
DELETEVAR _CSTAT
DELETEVAR _CSTATX
DELETEVAR _SSTAT
DELETEVAR _SSTATX
ECHO *** Now using 'FOOTHEAD' created code in temp file 'TQ1'... ***
QUIZ "AUTO=TQ1 !LISTCODE"
<SEVEN> RELEASED.BACKUS:
<SEVEN> RELEASED.BACKUS:
<SEVEN> RELEASED.BACKUS:print footfin;page=0
PARM FILE, ITEM, LISTCODE=NOLIST
COMMENT "FOOTFIN", QUIZ: Count total # unique ITEM values in FILE
COMMENT JFB 02/06/1997
COMMENT SET WORKING VARIABLE TO BLANKS
COMMENT
SETVAR _CSTAT," "
SETVAR _CSTATX," "
SETVAR _SSTAT," "
SETVAR _SSTATX," "
ECHO ACCESS !FILE > TQ1
COMMENT
COMMENT PROVIDE OPPORTUNITY TO ENTER A CHOOSE STATEMENT
COMMENT
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
COMMENT
COMMENT PROVIDE OPPORTUNITY TO ENTER A SELECT STATEMENT
COMMENT
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 REP >> TQ1
ECHO FIN FOO SKI 1 & >> TQ1
ECHO "===============================================" SKI 1 & >> TQ1
ECHO COUNT AT !ITEM 'unique' '!ITEM' 'exist in' '!FILE' & >> TQ1
ECHO SKI 2 COUNT "= # records reported. (Rep limit = 500,000)" >> TQ1
ECHO SET REP LIM 500000 >> TQ1
ECHO SET PAG LEN 0 >> TQ1
ECHO SET NOSTATISTICS NOHEAD >> TQ1
ECHO GO >> TQ1
ECHO EXIT >> TQ1
COMMENT
COMMENT CLEANUP OUR VARIABLES
COMMENT
DELETEVAR _CSTAT
DELETEVAR _CSTATX
DELETEVAR _SSTAT
DELETEVAR _SSTATX
ECHO *** Now using 'FOOTFIN' created code in temp file 'TQ1'... ***
QUIZ "AUTO=TQ1 !LISTCODE"
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
powerh-l@lists.swau.edu is gatewayed one-way to bit.listserv.powerh-l
This list is closed, thus to post to the list, you must be a subscriber.