RE: It's That Time Again! The 2002 RPG Enhancement Poll

["Bob Cozzi" <cozzi@xxxxxxxxx>]

So, see how easy it would be to implement this stuff?
So you could lower the projectet costs. <vbg>

Bob

-----Original Message-----
From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]
On Behalf Of Hans Boldt
Sent: Friday, August 23, 2002 2:37 PM
To: rpg400-l@midrange.com
Subject: Re: It's That Time Again! The 2002 RPG Enhancement Poll


Bob Cozzi wrote:
> YES, but what about this?
>
> D fieldx          s             10a
> D fieldy          S             15a
> D myarray         s              1a   dim(%size(fieldx) +
%Size(Fieldy)
> * 10)
>
> Bob

---------------------------------------------------------
H dftactgrp(*no)
D fieldx          s             10a
D fieldy          s             15a
D fieldxy         ds                  based(p) qualified
D   x                                 like(fieldx)
D   y                                 like(fieldy)
D myarray         s              1a   dim(%size(fieldxy))
  /free
     *inlr = *on;
  /end-free
----------------------------------------------------------

Next?





_______________________________________________
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.