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



GB,

Maybe I'm missing something, but if all the formats are identical (and
presumably the fields have the same names), why do you need multiple
structures? Why not just do a READ into a single, qualified structure?

Rory

On Fri, Jul 29, 2011 at 9:50 AM, <gevans@xxxxxxxxx> wrote:

I have a multi-format logical file where each format is identical but
created over a a single physical counterpart in 10 different company
libraries. One physical in each library. One logical file where each
logical format references a different physical library/file.
My company standards require that any input function (read, chain, etc?)
be read into a qualified data structure. Similar to below
FIM0003 IF E K Disk
FDOCS01 IF E K Disk
FDWXC010M IF E K Disk

D DOCS00R_I DS Likerec(Docs00R)
Chain RIM0003_I.DocID Docs01 Docs00R_I;

My question is this: Is there a simple way to read the existing
multi-format logicals into a singularly named structure.
I have used code similar to this:
D RWXC010_I DS Qualified
D DWXC10 Likerec(RWXC010A)
OVERLAY(RWXC010_I)
D RWXC010B_I Likerec(RWXC010B)
OVERLAY(RWXC010_I)
D RWXC010C_I Likerec(RWXC010D)
OVERLAY(RWXC010_I)
Chain Key DWXC010M RWXC010_I;
This results in doubly qualified field names RWXC010_I.DWXC10.MyField
which is both cumberson and verbose.

I have used the INFDS to determine which format was read, and where a
unique data structure is set up for each format. This results in massive
selects with redundant code for each format.
Does anyone know of a solution that will result in a singly qualified
field name? (all coding is in /Free)
GB Evans
gevans@xxxxxxxxx
--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-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.