RE: Check object - generic? -- MIDRANGE-L

Take a look at the QUSLOBJ API (List objects). Here's a bit from the documentation:

The first 10 characters contain the object name, which may be a simple name, a generic name

You need to create a user space - no big deal - and name it in the call, as well as the object specification and the type of info you want (name list only is fastest). Let's say you have created a user space QTEMP/JRLIST. Your call could be

CALL QUSLOBJ ('JRLIST QTEMP ' 'OBJL0100' 'JRNRCV* *LIBL ' '*JRNRCV ')

The spaces matter, BTW.

There'll be a location (number of entries) that will tell you how many object names were returned - the RTVUSRSPC command can get it for you to test.

Take a look at API concepts in infocenter if you are new to this.

A primary benefit is performance, as it does not go after all the stuff that DSPOBJD does. Of course, that might not matter, if there are only a few to get.

HTH
Vern

At 02:48 PM 9/1/2004, you wrote:

RTVOBJD requires a specific name. I'm leaning toward DSPOBJD to an outfile
and retrieving the number of current records. One or more means the object
generically exists, etc.

Loyd Goodbar
Senior programmer/analyst
BorgWarner
E/TS Water Valley
662-473-5713

-----Original Message-----
From: Carel Teijgeler [mailto:coteijgeler@xxxxxxxxx]
Sent: Wednesday, September 01, 2004 11:53
To: midrange-l@xxxxxxxxxxxx
Subject: Re: Check object - generic?

Lloyd,

What about RTVOBJD into an outfile? I cannot verify at the moment, whether
it supports OBJTYPE(*ALL), but if it does, ...

Regards,
Carel Teijgeler

*********** REPLY SEPARATOR  ***********

On 31-8-04 at 13:46 Goodbar, Loyd (ETS - Water Valley) wrote:

>I'd like to generically check whether an object exists from a CL program.
>For example, I have journal receivers JRNRCV0001, JRNRCV0002, etc. I don't
>care which journal receiver is found, as long it matches JRNRCV*. Has
anyone
>implemented the equivalent of CHKOBJ OBJ(*LIBL/GEN*) OBJTYPE(*BLAH)? I
>imagine I could take a generic object name and run a DSPOBJD over it; just
>hoping someone else invented that wheel.

--
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.
--
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.