RE: Moving array elements to a file

["Bob Cozzi \(RPGIV\)" <cozzi@xxxxxxxxx>]

I think the original post was requested the least coding possible.
Enter 366 Input spec's is not very helpful, but you are right, it does
work.

Bob Cozzi
cozzi@rpgiv.com
Visit the new on-line iSeries Forums at: http://www.rpgiv.com/forum

> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]
On
> Behalf Of Peter Dow
> Sent: Monday, December 17, 2001 4:27 PM
> To: rpg400-l@midrange.com
> Subject: Re: Moving array elements to a file
>
> Hi Bob,
>
> I'm not sure what you meant by "There is no way to map them directly
into an
> array...", but you can certainly do the following:
>
> IFILENAME
> I              QTY001                      QTY(1)
> I              QTY002                      QTY(2)
> ...
> I              QTY366                      QTY(366)
>
> Not that I would recommend that in this case; both your based method
and the
> overlay method mentioned by Joel Fritz would mean a whole lot less
coding.
> I just wanted to point out another way, which works well in some
cases.
>
> Regards,
> Peter Dow
> Dow Software Services, Inc.
> 909 425-0194 voice
> 909 425-0196 fax
>
>
>
> ----- Original Message -----
> From: "Bob Cozzi (RPGIV)" <cozzi@rpgiv.com>
> Sent: Monday, December 17, 2001 12:44 PM
> Subject: RE: Moving array elements to a file
>
>
> >  There is no way to map them directly into an array named QTY. :(
> >  You have to do a data structure
>
>
>
> _________________________________________________________
> Do You Yahoo!?
> Get your free @yahoo.com address at http://mail.yahoo.com
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.