RE: Another Query Manager Question

[Jerry Adams <Jerry@xxxxxxxxxxxxxxx>]

Good idea about the DCR, although I decided to enter a Requirement via COMMON/iSociety.

Jerry C. Adams
IBM System i Programmer/Analyst
B&W Wholesale
office: 615-995-7024
email:  jerry@xxxxxxxxxxxxxxx


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Simon Coulter
Sent: Wednesday, June 04, 2008 6:36 PM
To: Midrange Systems Technical Discussion
Subject: Re: Another Query Manager Question


On 05/06/2008, at 1:02 AM, Jerry Adams wrote:

> Thanks, Simon.  I should have been clearer as regards my objective,
> which is to be able to quickly review profile settings on a
> listing, rather than going through each profile individually.  But,
> alas, 'tis not to be it seems.

Never occurred to me at the time that someone might want to print (or
outfile) the QM profile information and I guess it hasn't occurred to
anyone since then (12+ years) or perhaps there is no funding for such?

A DCR is your long-term option.

QM stores this information in the *INTPRF object associated with a
*USRPRF. This is just an index (x'0ec4'). Dump the object and search
for SQL4QM. You'll see a number of entries. You could use the
Independent Index MI instructions to retrieve the information and
output it in a format you can use. You will need to set system-state
on your program to access the *INTPRF object.

:aside.
I wrote a PL/MI macro to handle the profile options. I called it
HOOVER and you would call it with HOOVER(*SUCK usrprf options) to get
entries from the profile and HOOVER(*BLOW usrprf options) to put
entries in the profile. I had to change the name and the control
values to something more innocuous--didn't make it past the
overlords. Spoilt all my fun!
:easide.

Regards,
Simon Coulter.
--------------------------------------------------------------------
    FlyByNight Software         OS/400, i5/OS Technical Specialists

    http://www.flybynight.com.au/
    Phone: +61 2 6657 8251   Mobile: +61 0411 091 400        /"\
    Fax:   +61 2 6657 8251                                   \ /
                                                              X
                  ASCII Ribbon campaign against HTML E-Mail  / \
--------------------------------------------------------------------



--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.