Re: %size problem

[Paul Tuohy <tuohyp@xxxxxxxxxxxxx>]

Patrick, my sincere apologies for my earlier post (below). It is a load of 
drivel
and thank you Barbara for not chastising me severely - I should know better. I
really should stop and think as opposed to replying from the hip.

Barbara, of course, put her finger on it. Thr problem is with the externally 
defined
field. You should simply define an externally defined data structure for the
relevant file and the %size will work.

Crawling back under my rock :-)

Paul Tuohy.

Paul Tuohy wrote:

> Patrick, try using %Len instead of %Size.
>
> %Size gives you the number of bytes occupied by a field - which would not
> neccessarily be  known at compile time.
>
> %Len gives you the defined length of the field, so you should be able to use 
>it.
>
> HTH
>
> Paul Tuohy
>
> Patrick Conner wrote:
>
> >     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?
> >
> > I tried using Item itself, but I received the same error.
> > Item is defined in a work file that is used as input and
> > output: F WorkFile IF A...
> > +---
>
> +---
> | 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
+---