|
midrange.com
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?
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
