Without the DIM you are passing one element of the array.
If the parm needs to be an array, then it will also need DIM.


DCL-PI GETARRAY ;

oABCXYZ LIKED( ABCDS ) DIM(100);

END-PI ;

An alternative if you don't want to require DIM on the Parm, put the array inside another DS.


DCL-DS ABCDS QUALIFIED;

ABC PACKED(3) ;

XYZ CHAR(3) ;

END-DS



DCL-DS LMNOPDS QUALIFIED;

SIZE INT(10);

ABC LIKEDS(ABCDS) DIM(100);

END-DS;



DCL-PI GETSOMETING;

LMNOP LIKEDS(LMNOPDS);

END-PI;



--
Chris Hiebert
Senior Programmer/Analyst
Disclaimer: Any views or opinions presented are solely those of the author and do not necessarily represent those of the company.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2026 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.