RE: Data Area Name as a Variable

Thank you, Charles. That's the 1 variation I never thought of, of course.

Arthur J. Marino
Southern Container Corporation
(631) 297 - 2276



"Wilt, Charles" <WiltC@xxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
07/10/2007 08:02 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: Data Area Name as a Variable






You need to give your DS a name....

D mydtaara ds 1024 dtaara(*var : dara_name)
D dara_name s 10a

C in mydtaara


Note as you don't have any DS subfields, you could simply define a
standalone 1024 char field for your
data area.
D mydtaara s 1024a dtaara(*var : dara_name)
D dara_name s 10a


HTH,

Charles

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
Arthur.Marino@xxxxxxxxxxxxxxxx
Sent: Tuesday, July 10, 2007 7:40 AM
To: RPG programming on the AS400 / iSeries
Subject: Data Area Name as a Variable

Forgive my ignorance, but I'm stumped. In upgrading a very
old legacy RPG program, I'd like to use a variable to hold
one of a dozen data area names (that are now hard-coded). We
are at V5R3. (Last Compiler PTF is SI17429.)

my 'D' specs:

D ds 1024 dtaara(*var : dara_name)
D dara_name s 10

The compiler likes the 'D' specs well enough, but when it
sees the 'IN'
statement, it fails saying that 'dara_name' in the IN
statement is not the name of a data area.

C in dara_name

Adding subfields under the 'ds', and every other variation
I've tried, makes no difference. I'm missing something really
basic, aren't I?
Thanks for any help.

Arthur J. Marino
Southern Container Corporation
--
This is the RPG programming on the AS400 / iSeries (RPG400-L)
mailing list To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

This e-mail transmission contains information that is intended to be
confidential and privileged. If you receive this e-mail and you are not a
named addressee you are hereby notified that you are not authorized to
read, print, retain, copy or disseminate this communication without the
consent of the sender and that doing so is prohibited and may be unlawful.
Please reply to the message immediately by informing the sender that the
message was misdirected. After replying, please delete and otherwise
erase it and any attachments from your computer system. Your assistance
in correcting this error is appreciated.