A PARM value when no records are selected
David Morrison - Corporate
dmorrison@mcbrideelectric.com
Thu, 27 Jun 2002 15:27:25 -0700
Leonard,
Here's my idea. I'm running on an AS/400, so I don't know for certain if
you can do this or not on your system.
In pass one, DEFINE a PARM field and output it to a field in a one-record
file (update the record). We use something called "local data area" on the
AS/400, but you could create a new file in your data dictionary for this
purpose. Use a one-record file (the same on or a different one) as the
input file, so the program will run quickly.
In pass two, do your regular processing. You'll need to link to the output
file from the first pass, to get the PARM value. Output to your subfile as
you currently do.
After pass two is done, check the number of records in the subfile from pass
2. If it's zero, run a different (minimal) version of the report, as pass
3. The primary file in the ACCESS statement of this report is the one that
always has a single record. If the number of records is NOT zero, run your
regular report program for pass 3.
Not elegant, but hopefully effective.
David Morrison
-----Original Message-----
From: Leonard_Berkowitz@harvardpilgrim.org
[mailto:Leonard_Berkowitz@harvardpilgrim.org]
Sent: Thursday, June 27, 2002 1:27 PM
To: powerh-l@lists.swau.edu
Subject: A PARM value when no records are selected
HP3000, PowerHouse 8.19C
I need to have QUIZ write out the value of a PARM in the PAGE HEADING of a
report even if no records are selected. Here is the scenario:
Pass one reads the dataset and extracts all entries that match the PARM
that the user has entered. The value of the PARM as well as the relevant
fields from the selected entries are written to a subfile.
Pass two reads the subfile and since the subfile is empty, the NOREPORT
statement becomes operative, but the value of the PARM does not show in the
PAGE HEADING.
Is there a way to accomplish this?
Thanks.
--
Leonard S. Berkowitz
Perot Health Care Systems
(Harvard Pilgrim Health Care account)
voice: 617-509-1212
fax: 617-509-1955
pager: 781-226-2431
= = = = = = = = = = = = = = = = = = = = = = = = = = = =
Mailing list: powerh-l@lists.swau.edu
Subscribe: "subscribe" in message body to powerh-l-request@lists.swau.edu
Unsubscribe: "unsubscribe" in message body to
powerh-l-request@lists.swau.edu
http://lists.swau.edu/mailman/listinfo/powerh-l
This list is closed, thus to post to the list you must be a subscriber.