|
midrange.com
Hans,
>>Bob: Have you tried coding something like this:
----------------------------------------------------------
D fieldx s 80a
D fieldx1 s +1 like(fieldx)
D myarray s 1a dim(%size(fieldx1))
/free
dsply myarray(81);
*inlr = *on;
/end-free
----------------------------------------------------------
>>In this program, "myarray" gets declared as 1A DIM(81).
YES, but what about this?
D fieldx s 10a
D fieldy S 15a
D myarray s 1a dim(%size(fieldx) + %Size(Fieldy)
* 10)
Bob
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.
