× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.