Re: Summary view of arbitrary number ofidentically-named-and-formatted physical files in separate libraries -- MIDRANGE-L

If the number of physical files is known and constant, you can use a logical file, listing all the files in PFILE. Use the K-spec and badabing!

If not known but a list is buildable, I suggest a QMQRY with a substitution variable for the library and file names. Get the list by whatever means, loop through it, running STRQMQRY for each file with outfile *add for each (clear the outfile first, then use *ADD for all). The outfile could be an empty dupe of the others, with the same key, maybe. The statement in the QMQRY could be

select * from &LIBRARY/&FILE

and the command could be

strqmqry qmqrylib/qmqrynam output(*outfile) outfile(qtemp/outfile) outmbr(*first *add) setvar((library &ODLBNM) (file &ODOBNM))

The CL variables given assume an outfile from DSPOBJD. But maybe you'd use DSPFD *ALLUSR/yourfile type(*RCDFMT)

Vern

At 09:14 AM 9/22/2004, you wrote:

Chuck Lewis wrote:

> Maybe I am missing what you want here, but how about:
> WRKOBJ OBJ(*ALL/"your file name") OBJTYPE(*FILE)  ?
> Or  were you wanting more detail than that ? You could use that and get it
> to a file, then read the file and do a DSPFD, etc. from there...)

No, I'm not the slightest bit interested in a list of filenames; the
idea is to have every record from all of these
identically-named-and-formatted files appear in what looks, to RPG, like
a single file, keyed on the same field as the physical. Preferably with
a way to tell which library's physical any given record came from.

--
James H. H. Lampert
Professional Dilettante
http://www.hb.quik.com/jamesl
http://members.hostedscripts.com/antispam.html
http://www.thehungersite.com

Help America's Passenger Trains. http://www.saveamtrak.org

Read My Lips: No More Atrocities!

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