Re: RPG400-L Digest, Vol 10, Issue 501

Rory;
I would love to do a read into a single qualified data structure however:
The problem with this is that the compiler requires a uniquely named data
structure for each format. Even when all formats are identical in all ways
but name.

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.