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
How do I duplicate this with Free specs?
This is what I came up with....
Dcl-Ds FILE_DS EXTNAME('FILE') INZ;
Dcl-Ds ADS DTAARA('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?
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,
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
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