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

[bill.reger@xxxxxxxxxxxxx]

Bob and Hans,

Next?????

After those last two examples, I need to get two aspirins and maybe go get
some elbow exercise after work ....

Bill




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.





--
"NOTICE:  The information contained in this electronic mail transmission is
intended by Convergys Corporation for the use of the named individual or
entity to which it is directed and may contain information that is
privileged or otherwise confidential.  If you have received this electronic
mail transmission in error, please delete it from your system without
copying or forwarding it, and notify the sender of the error by reply email
or by telephone (collect), so that the sender's address records can be
corrected."