Re: Query DEVD -- MIDRANGE-L

Yeah, Pat, but the trouble with this is, the DEVD name is very likely not on the same source line as that particular keyword - at least this would say that some of the desired entries exist - and for that I'd use -

like '%PRTERRMSG(*INQ)%'

and maybe use the relative record number in the SELECT statement, so he can find things quickly. Of course, just doing search in the opened source member does the same and lets him see the context.

Wish there were an easy way to unfold source lines into single lines!

Regards
Vern

Pat Landrum wrote:

Bryan,

Use RTVCFGSRC to retrieve the information into a source file. You can
then use QUERY/400 or SQL (use an ALIAS to get to the member) to get the
information you are asking for.

Command example:
RTVCFGSRC CFGD(*ALL) CFGTYPE(*DEVD) SRCFILE(MYLIB/QTXTSRC)
SRCMBR(DEVICES)
Record selection on SRCDTA. Use the selection criteria -- SRCDTA Like
'%PRTERRMSG%'.
Regards,
Pat Landrum
Senior Programmer/Analyst
Hanover County Public Schools
200 Berkley Street
Ashland, VA 23005
Email: plandrum@xxxxxxx
Phone: 804-365-4658 Fax: 804-365-4628 Never trust a computer you can't throw out a window - Steve Wozniak
Notice: This message or any accompanying documents may contain
confidential or privileged information of Hanover County Public Schools.
If you are not the intended recipient, disclosure, copying or
distribution is strictly prohibited by state and federal law. If you
received this message in error, please notify the sender as soon as
possible.
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Burns, Bryan
Sent: Wednesday, May 27, 2009 8:32 AM
To: Midrange Systems Technical Discussion
Subject: RE: Query DEVD

There's no command to an outfile that I know of. I've wanted one for
the last 10 years.

At the moment, it'd be real helpful for me to see which of our 60 to 70
*LAN 3812 device descriptions have PRTERRMSG *INQ instead of *INFO.

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of Vern Hamberg
Sent: Tuesday, May 26, 2009 4:21 PM
To: Midrange Systems Technical Discussion
Subject: Re: Query DEVD

have you run

go cmddev

This gives you a list of commands related to DEV (devices) - there might
also be a

go cmddevd

See if there is a display command there - if so, is there and OUTFILE
option - if so, so that instead of DSPOBJD. If not, look at RTVCFGSRC, I
think it is - this can be run over DEVDs, etc. It gives you the commands
for creating the DEVD - in a source file, so it is not easy to query
like a regular PF. You'd have to parse it out into the parameters and
assign each to a field in a file.

Then you might consider some API like QDCRDEVD - feed the data you get
into a PF and run your query.

HTH
Vern

Burns, Bryan wrote:

Paul, did you miss the part about not wanting the object info? :-)

Bryan
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx

[mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of Paul Nelson

Sent: Tuesday, May 26, 2009 3:19 PM
To: 'Midrange Systems Technical Discussion'
Subject: RE: Query DEVD

Do a dspobjd of the device descriptions to an outfile and run your

query

over that file.

DSPOBJD OBJ(*ALL/*ALL) OBJTYPE(*DEVD) OUTPUT(*OUTFILE)

OUTFILE(QGPL/DEVICES)

Paul Nelson
Office 512-392-2577
Cell 708-670-6978
nelsonp@xxxxxxxxxxxxx

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Burns, Bryan
Sent: Tuesday, May 26, 2009 3:10 PM
To: MIDRANGE-L@xxxxxxxxxxxx
Subject: Query DEVD

Does anyone know of a way to create a Query/400 report of device
descriptions? The devd stuff, not the objects.