Re: Looking for free format equivalent

[Dexter Thompson <dexter.thompson@xxxxxxxxx>]

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