Re: %size problem

[Patrick W Conner <PWConner@xxxxxxxxxxx>]

Thanks. I thought it was because Item wasn't defined, yet. But I saw some
examples doing exactly this. Didn't think of the version differences.

bmorris@ca.ibm.com wrote:

> >Date: Tue, 22 May 2001 09:12:50 -0400
> >From: "Patrick Conner" <pwconner@charter.net>
> >
> >    575  ** #Item is defined to use the size of item when
> >defining the array
> >    576 D#Item       S            Like(Item)
> >    577 D#ItemScan   S      1A    Dim(%size(#Item))
> > ======>                               aaaaa
> > *RNF3320 20 a      015000  The keyword parameter is not
> >                            defined; keyword is ignored.
> >
> >What gives?
>
> Patrick, until V5R1, the parameter for DIM has to be
> known at the time the DIM is encountered.  In your case,
> you have "item" coming from an externally-described file,
> but the I specs are done too late, after the D specs.  You
> could try coding an externally described data structure to
> get an explicit definition for "item".
>
> Fmyfile  if    e          disk
> D           e ds              extname(myfile)
> D #item       s               like(item)
> D #itemScan   s            1a dim(%size(#Item))
>
> In V5R1, the rules for DIM were changed to allow forward
> referencing of the dimension.
>
> If you're doing a MOVEA from #item to #itemScan so you can
> do string operations on the array, you might consider doing
> some combination of string operations directly on #item, instead.
> (%subst, %scan, %replace ...)
>
> 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
> +---

+---
| 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
+---