Re: %size problem

[bmorris@xxxxxxxxxx]

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