QUIZ Heading?

[Robert J.M. Edis]

I sent this directly to Mark last night but forgot to sent it to the list.

----------------------------------------------------------------------------
-------------
4,000

Now that's an interesting question.  I don't think you can do it in QUIZ.
It *may* be possible in QTP using an item declared as an array and
referenced using the OCCURRENCE predefined item.

One possibility might be a two pass quiz, the first creating a single record
subfile containing the input values.  The second and main quiz links to
record 0 of this subfile to retrieve the values string.  Actually the first
pass would have to be QTP in order to create just the one output line.

E.g.

$QTP
GLOBAL TEMP parm_string CHAR*80 INITIAL ""
ACCESS
I-don't-care-what-file-as-long-as-its-not-used-much-and-has-more-records-tha
n-input-values
CHOOSE x PARM (of course 'x' should be in the input table)
ITEM parm_string = parm_string + "," + x (or ASCII(x) if required)
DEFINE dummy = 1 IF SETSYSTEMVAL(input_parms,parm_string)
SUBFILE sillyfile IINCLUDE x,dummy,parm_string
GO
EXIT
$QUIZ
ACCESS the-file-I-really-want
CHOOSE x SYSTEMVALUE "input_parms"
DEFINE header_string CHAR*40 = GETSYSTEMVAL(input_string)
PAGE HEAD etc.



Blue
PowerHouse consultant
Rhode Island, USA

Disclaimer:
The opinions and ideas expressed in this message are my own and have no
relationship to my current employer, Initial Technical Staffing, its client
CCI, or any of CCI's clients.



	-----Original Message-----
	From:	STEWARTM@dteenergy.com <mailto:STEWARTM@dteenergy.com>
[SMTP:STEWARTM@dteenergy.com] <mailto:[SMTP:STEWARTM@dteenergy.com]> 
	Sent:	Thursday, April 08, 1999 5:21 PM
	To:	robert.edis@creatcomp.com <mailto:robert.edis@creatcomp.com>

	Subject:	Re: RE: QUIZ Heading?

	 
	G'day, mate!  How many Albanians is Australia taking in?  Anyway
here's the 
	deal. 
	 
	CHOOSE x parm, y parm 
	 
	DEF z CHAR*n = PACK(x + ", " + y) 
	 
	PAGE HEAD & 
	  TAB 40 z SKIP ...& 
	 
	In the case of an unlimited choose if x is 10 different values.  How
do I
	get 
	all 10 into the define. 
	 
	Mark << Message: RE: QUIZ Heading? >> 
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
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.