On 2018-10-19 4:34 PM, SReeves@xxxxxxxxxxxxxxxxxx wrote:
**** I was writing this as a question and then figured out 'A' solution,
so rather than scrap the whole e-mail I guess I would pose the question.
Is this cleanest solution?

We have many program that use basically this in fixed format...

D ADS EUDS EXTNAME(FILE)
C *DTAARA DEFINE ADS
C UNLOCK ADS
C IN ADS


You just need to add the DTAARA keyword to your DS definition.

dcl-ds ADS extname('FILE') dtaara end-ds;

unlock ads;
in ads;


This thread ...

Replies:

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

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