|
>Date: Tue, 09 Jan 2001 15:28:39 -0800 >From: Jim Langston <jimlangston@conexfreight.com> > ... >I am using in a copy source a data structure called RNF_Data. > >D RNF_Data DS >D NetType 1A Inz( *Loval ) > ... >D NetNumber 10U 0 Inz( 0 ) >D 95A Inz( *LoVal ) > >I tried, in my RPG module, to do this, but to no avail: >D Data DS Like(RNF_Data) >which wouldn't even let me type that in (Like not allowed on DS line) > >how can I do what I want to do without having to declare this same structure >twice? I do not want RNF_Data to be a public variable. I want to have 2, >or more, different structures with the same structure type. Neither will >be visible to the other (one in my module, one in my program). Jim, what you want will probably be supported in the next release after V4R5. I say "probably" because nothing is certain until it's announced yet. You will probably be able to code something like this: D RNF_Data DS Qualified D NetType 1A Inz( *Loval ) ... D NetNumber 10U 0 Inz( 0 ) D 95A Inz( *LoVal ) D Data DS LikeDS(RNF_Data) Currently, all you can do is create a physical file with the layout you want, and use externally-described data structures. Barbara Morris +--- | This is the RPG/400 Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +---
As an Amazon Associate we earn from qualifying purchases.
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.