Re: Looking for free format equivalent

Here is an example of one I have done. Hope it helps.

dcl-ds dt_ds static inz ;
pd01eh zoned(6:0) ;
pd02eh zoned(6:0) ;
pd03eh zoned(6:0) ;
pd04eh zoned(6:0) ;
pd05eh zoned(6:0) ;
pd06eh zoned(6:0) ;
pd07eh zoned(6:0) ;
pd08eh zoned(6:0) ;
pd09eh zoned(6:0) ;
pd10eh zoned(6:0) ;
pd11eh zoned(6:0) ;
pd12eh zoned(6:0) ;
pd13eh zoned(6:0) ;
dt zoned(6:0) dim(13) pos(1) ascend ;

On Thu, May 2, 2019 at 3:19 PM Greg Wilburn <
gwilburn@xxxxxxxxxxxxxxxxxxxxxxx> wrote:

In fixed format it was really easy to overlay data like this:

D ds
D RF94 1 84a Dim(14)
D RA0094 1 84a

I could easily eval a text string into RA0094 and "parse" the data into
(in this case) 14 six-character fields.
I need to use %lookup on RF94.

I'm pulling my hair out trying to do the same thing in free format.

What am I missing?
--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com