I think the original fixed form had some superfluous code but it is so long since I gave up using data areas (or fixed form for that matter) I'm not sure.

However, your solution appears to me to be way too complicated.

This works for me - just one line (plus one to read the data area).

Dcl-Ds ADS DTAARA('ADS') ExtName('FILE') End-Ds;

In ADS;

There is no need for a second DS unless you want it. And no need to copy data from one to the other.


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

On Oct 19, 2018, at 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

It is a Data Area Data structure 'ADS' that uses the structure of the
'File'.

How do I duplicate this with Free specs?

-----------------------
This is what I came up with....

Dcl-Ds FILE_DS EXTNAME('FILE') INZ;
End-Ds;

Dcl-Ds ADS DTAARA('ADS');
DSDS like(FILE_DS);
End-Ds;

In ADS;
FILE_DS = ADS;

FILE_DS is now populated with the values with the data area data structure
'ADS'. My original question was how do I do this in Free. Now I guess,
is this right/best/cleanest way?



Shane Reeves
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: http://amzn.to/2dEadiD


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].