Well, I'm obviously doing something wrong. I looked at the code supplied by
Mihael and Brian, and thought I had it licked. But no joy in Mudville when
testing.
The relevant code at V7.3 is:
D EOMClose DS DtaAra(DSName)
D Contents 30a
D ap 1a Overlay(EOMClose)
D cr 1a Overlay(EOMClose:*Next)
D ar 1a Overlay(EOMClose:*Next)
D Prefix S 1a
D DSName S 21a
D FLib S 10a
rtvflib(flib);
getprefix(prefix);
DSName = %trim(flib) + '/' + prefix + '.EOM';
IN EOMClose;
When I run the test I get CPG1015 - Data area DSNAME in *LIBL not found.
Under debug the value of DSNAME = 'TSTQS36F/D.EOM ' where TSTQS36F is my
test library and D.EOM is the name of the data area. To double-check I ran
wrkobj command after canceling, and the data area, of course, showed up.
I'm sure that it is just some little thing that is sliding by me, but if
another pair of eyes can spot the issue, I would appreciate.
Thanks.
Jerry C. Adams
Experience is simply the name we give our mistakes. -Oscar Wilde
IBM i Programmer/Analyst
--
NMM&D
615-832-2730
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of
Barbara Morris
Sent: Friday, February 08, 2019 12:32 PM
To: rpg400-l@xxxxxxxxxxxxxxxxxx
Subject: Re: External Data Areas - Multiple Companies, One Program
On 2019-02-08 9:55 AM, Justin Taylor wrote:
You can use a variable for the data area, but that variable must be before
the program starts. An input parameter would work.
Another option would be to use *LIBL to determine the data area used.
But the variable only needs to be set before the program starts if it's a
data-area data structure (UDS in fixed form, DTAARA(*AUTO) in free-form).
If it's being handled with IN and OUT opcodes, the variable just has to be
set before the IN opcode.
--
Barbara
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To
subscribe, unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
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:
https://amazon.midrange.com
midrange.com
