Banner Page using Quiz - (NOT more debate on "RTFM")
Kim Williams
kim.williams@ashtech.COM
Wed, 10 Mar 99 10:39:48 -0800
(I changed the subject so people who are deleting this thread might still read
my response.)
We run MANMAN and the request was to make the Quiz banner page look like the
MANMAN banner page. Some people may say this was too much trouble to go to but
I'm going to pass it along anyway. The code is really long so I snipped some
but really doesn't take very long to run.
I prompt for distribution and set the report name (which also becomes the spool
file name) in an HP command file that runs all my quizes so that's where some of
the SYSTEMVAL stuff comes from. If anyone is interested in that command file,
let me know.
;********************************************************************
;* PROGRAM NAME: INIT001.QZPRGMS
;* DESCRIPTION : PROGRAM TO BE "USE"'D BY QUIZ TO PRINT A HEADING
;* PAGE WITH THE REQUESTOR AND REPORT NAME, DATE AND
;* TIME.
;*
;* MODIFIED BY : KAW 4/2/98
;* CHANGES FOR FAX.
;* MODIFIED BY : KAW 4/7/98
;* NEW COVER PAGE WITH EXPANDED REQSTR AND REPNAME
;* MODIFIED BY : KAW 5/1/98
;* LENGTHENED FAX FIELDS
;********************************************************************
DEFINE REQSTR CHAR*30 = GETSYSTEMVAL("OUT_OPT5") IF &
"" <> GETSYSTEMVAL("OUT_OPT5") ELSE SIGNONUSER
DEFINE REPNAME CHAR*8 = GETSYSTEMVAL("REPNAME")
DEFINE TREQSTR1 CHAR*1 = SIGNONUSER[1:1]
DEFINE TREQSTR2 CHAR*1 = SIGNONUSER[2:1]
DEFINE TREQSTR3 CHAR*1 = SIGNONUSER[3:1]
DEFINE TREQSTR4 CHAR*1 = SIGNONUSER[4:1]
DEFINE TREQSTR5 CHAR*1 = SIGNONUSER[5:1]
DEFINE TREQSTR6 CHAR*1 = SIGNONUSER[6:1]
DEFINE TREQSTR7 CHAR*1 = SIGNONUSER[7:1]
DEFINE TREQSTR8 CHAR*1 = SIGNONUSER[8:1]
DEFINE TREPNAME1 CHAR*1 = REPNAME[1:1]
DEFINE TREPNAME2 CHAR*1 = REPNAME[2:1]
DEFINE TREPNAME3 CHAR*1 = REPNAME[3:1]
DEFINE TREPNAME4 CHAR*1 = REPNAME[4:1]
DEFINE TREPNAME5 CHAR*1 = REPNAME[5:1]
DEFINE TREPNAME6 CHAR*1 = REPNAME[6:1]
DEFINE TREPNAME7 CHAR*1 = REPNAME[7:1]
DEFINE TREPNAME8 CHAR*1 = REPNAME[8:1]
DEFINE REPNAME1 CHAR*132 = &
" "+&
" . " &
IF TREPNAME1 = "" ELSE &
"AAAAAAAAAA AAAAAAAAAA AA AA AA AA AA AA AAAAAAAAAA "+&
"AAAAAAAAAA AA AA AA AA AA AA AA AA AA AA " &
IF TREPNAME1 = "A" ELSE &
"BBBBBBBBBB BBBBBBBBBB BB BB BB BB BB BB BBBBBB "+&
"BBBBBB BB BB BB BB BB BB BBBBBBBBBB BBBBBBBBBB " &
IF TREPNAME1 = "B" ELSE &
"CCCCCCCCCC CCCCCCCCCC CC CC CC CC CC "+&
"CC CC CC CC CC CCCCCCCCCC CCCCCCCCCC " &
IF TREPNAME1 = "C" ELSE &
"DDDDDDDD DDDDDDDD DD DD DD DD DD DD DD DD "+&
"DD DD DD DD DD DD DD DD DDDDDDDD DDDDDDDD " &
IF TREPNAME1 = "D" ELSE &
"EEEEEEEEEE EEEEEEEEEE EE EE EE EEEEEE "+&
"EEEEEE EE EE EE EEEEEEEEEE EEEEEEEEEE " &
IF TREPNAME1 = "E" ELSE &
"FFFFFFFFFF FFFFFFFFFF FF FF FF FFFFFF "+&
"FFFFFF FF FF FF FF FF " &
IF TREPNAME1 = "F" ELSE &
"GGGGGGGGGG GGGGGGGGGG GG GG GG GG GG GGGGG "+&
"GG GG GG GG GG GG GG GG GGGGGGGGGG GGGGGGGGGG " &
IF TREPNAME1 = "G" ELSE &
"HH HH HH HH HH HH HH HH HH HH HHHHHHHHHH "+&
"HHHHHHHHHH HH HH HH HH HH HH HH HH HH HH " &
IF TREPNAME1 = "H" ELSE &
"IIIIIIIIII IIIIIIIIII II II II II "+&
" II II II II IIIIIIIIII IIIIIIIIII " &
IF TREPNAME1 = "I" ELSE &
"JJJJJJJJJJ JJJJJJJJJJ JJ JJ JJ JJ "+&
" JJ JJ JJ JJ JJ JJJJJJ JJJJJJ " &
IF TREPNAME1 = "J" ELSE &
"KK KK KK KK KK KK KK KK KK KK KKKKKK "+&
"KKKKKK KK KK KK KK KK KK KK KK KK KK " &
IF TREPNAME1 = "K" ELSE &
"LL LL LL LL LL LL "+&
"LL LL LL LL LLLLLLLLLL LLLLLLLLLL " &
IF TREPNAME1 = "L" ELSE &
"MMMMMMMMMM MMMMMMMMMM MM MM MM MM MM MM MM MM MM MM MM MM "+&
"MM MM MM MM MM MM MM MM MM MM MM MM MM MM MM MM MM MM " &
IF TREPNAME1 = "M" ELSE &
"NN NN NNNN NN NNNN NN NN NN NN NN NN NN NN NNNN "+&
"NN NNNN NN NN NN NN NN NN NN NN NN NN " &
IF TREPNAME1 = "N" ELSE &
"OOOOOOOOOO OOOOOOOOOO OO OO OO OO OO OO OO OO "+&
"OO OO OO OO OO OO OO OO OOOOOOOOOO OOOOOOOOOO " &
IF TREPNAME1 = "O" ELSE &
"PPPPPPPPPP PPPPPPPPPP PP PP PP PP PP PP PPPPPPPPPP "+&
"PPPPPPPPPP PP PP PP PP PP " &
IF TREPNAME1 = "P" ELSE &
"QQQQQQQQQQ QQQQQQQQQQ QQ QQ QQ QQ QQ QQ QQ QQ "+&
"QQ QQ QQ QQ QQ QQ QQ QQQQQQQQQQ QQQQQQQQQQ QQ " &
IF TREPNAME1 = "Q" ELSE &
"RRRRRRRRRR RRRRRRRRRR RR RR RR RR RR RR RRRRRR "+&
"RRRRRR RR RR RR RR RR RR RR RR RR RR " &
IF TREPNAME1 = "R" ELSE &
"SSSSSSSSSS SSSSSSSSSS SS SS SS SS SS SSSSSSSSSS "+&
"SSSSSSSSSS SS SS SS SS SS SSSSSSSSSS SSSSSSSSSS " &
IF TREPNAME1 = "S" ELSE &
"TTTTTTTTTT TTTTTTTTTT TT TT TT TT "+&
" TT TT TT TT TT TT " &
IF TREPNAME1 = "T" ELSE &
"UU UU UU UU UU UU UU UU UU UU UU UU "+&
"UU UU UU UU UU UU UU UU UUUUUUUUUU UUUUUUUUUU " &
IF TREPNAME1 = "U" ELSE &
"VV VV VV VV VV VV VV VV VV VV VV VV "+&
"VV VV VV VV VV VV VV VV VVVVVV VVVVVV " &
IF TREPNAME1 = "V" ELSE &
"WW WW WW WW WW WW WW WW WW WW WW WW WW WW WW WW WW WW "+&
"WW WW WW WW WW WW WW WW WW WW WW WW WWWWWWWWWW WWWWWWWWWW " &
IF TREPNAME1 = "W" ELSE &
"XX XX XX XX XX XX XX XX XX XX XX "+&
" XX XX XX XX XX XX XX XX XX XX XX " &
IF TREPNAME1 = "X" ELSE &
"YY YY YY YY YY YY YY YY YY YY "+&
" YY YY YY YY YY YY " &
IF TREPNAME1 = "Y" ELSE &
"ZZZZZZZZZZ ZZZZZZZZZZ ZZ ZZ ZZ ZZ "+&
" ZZ ZZ ZZ ZZ ZZZZZZZZZZ ZZZZZZZZZZ " &
IF TREPNAME1 = "Z" ELSE &
" 11 111 1111 11 11 11 "+&
" 11 11 11 11 11 11 " &
IF TREPNAME1 = "1" ELSE &
" 222222 222222 22 22 22 22 22 "+&
" 22 22 22 22 2222222222 2222222222 " &
IF TREPNAME1 = "2" ELSE &
" 333333 333333 33 33 33 33 3333 "+&
" 3333 33 33 33 33 333333 333333 " &
IF TREPNAME1 = "3" ELSE &
" 44 444 4444 44 44 44 44 44 44 "+&
"4444444444 4444444444 44 44 44 44 " &
IF TREPNAME1 = "4" ELSE &
"5555555555 5555555555 55 55 55 55555555 "+&
" 55555555 55 55 55 55 55 55555555 55555555 " &
IF TREPNAME1 = "5" ELSE &
" 66666666 66666666 66 66 66 6666666666 "+&
"6666666666 66 66 66 66 66 66 666666 666666 " &
IF TREPNAME1 = "6" ELSE &
"7777777777 7777777777 77 77 77 77 "+&
" 77 77 77 77 77 77 " &
IF TREPNAME1 = "7" ELSE &
" 888888 888888 88 88 88 88 88 88 888888 "+&
" 888888 88 88 88 88 88 88 888888 888888 " &
IF TREPNAME1 = "8" ELSE &
" 999999 999999 99 99 99 99 99 99 99 99 "+&
" 99999999 99999999 99 99 99999999 99999999 " &
IF TREPNAME1 = "9" ELSE &
" 000000 000000 00 00 00 000 00 0 00 00 0 00 "+&
"00 0 00 00 0 00 000 00 00 00 000000 000000 " &
IF TREPNAME1 = "0"
<and so on for each letter of REPNAME and SIGNONUSER>
DEFINE REP-ITEM1 CHAR*274 = REPNAME1 + " . " + REQSTR1
DEFINE REP-ITEM2 CHAR*274 = REPNAME2 + " . " + REQSTR2
DEFINE REP-ITEM3 CHAR*274 = REPNAME3 + " . " + REQSTR3
DEFINE REP-ITEM4 CHAR*274 = REPNAME4 + " . " + REQSTR4
DEFINE REP-ITEM5 CHAR*274 = REPNAME5 + " . " + REQSTR5
DEFINE REP-ITEM6 CHAR*274 = REPNAME6 + " . " + REQSTR6
DEFINE REP-ITEM7 CHAR*274 = REPNAME7 + " . " + REQSTR7
DEFINE REP-ITEM8 CHAR*274 = REPNAME8 + " . " + REQSTR8
INITIAL HEADING &
TAB 001 "REPORT NAME:" REPNAME &
TAB 095 SYSDATE "," SYSTIME &
SKIP 001 &
TAB 095 "REPORT NAME:" REPNAME &
SKIP 010 &
TAB 020 "THIS REPORT BELONGS TO" &
SKIP 005 &
TAB 035 REQSTR &
SKIP 002 &
TAB 001 REP-ITEM1 WRAP 11 &
TAB 012 REP-ITEM2 WRAP 11 &
TAB 024 REP-ITEM3 WRAP 11 &
TAB 036 REP-ITEM4 WRAP 11 &
TAB 048 REP-ITEM5 WRAP 11 &
TAB 060 REP-ITEM6 WRAP 11 &
TAB 072 REP-ITEM7 WRAP 11 &
TAB 084 REP-ITEM8 WRAP 11 &
SKIP PAGE
SET PAGE NUMBER 0
This is really great for finding reports. I hope I didn't snip too much.
Kim Williams
______________________________ Reply Separator _________________________________
Subject: Banner Page using Quiz
Author: Tony Gil <TGil@20thCent.com> at internet
Date: 3/10/99 8:02 AM
Does anyone know how I can include a banner page to include a user's
name on the initial page using QUIZ?? Thanks...
-Tony Gil
Programmer Analyst
20th Century Plastics
205 South Puente Street
Brea, CA. 92821
voice: (714) 441-4500 ext. 2357
fax: (714) 441-4536
email: tgil@20thcent.com
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
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.
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
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.