Eric,
I would and have done it this way:
d showarea ds inz
d showar01 n
d showar02 n
d showar03 n
d showar04 n
d showar05 n
d showar06 n
d showar07 n
d showar08 n
d showar09 n
d showar10 n
d showar11 n
d showar12 n
d showar13 n
d showar14 n
d showar15 n
d showar n dim(15) overlay(showarea)
A lot less typing.
Thanks,
Marvin
No trees were killed in the sending of this message, but a large number of electrons were terribly inconvenienced, traumatized, triggered, and crying for their safe spaces.
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Eric Hill
Sent: Thursday, July 13, 2017 7:32 AM
To: RPG programming on the IBM i (AS/400 and iSeries) <rpg400-l@xxxxxxxxxxxx>
Subject: RE: Named Indicators in an Array
Answered my own question with a quick and dirty test. Yes you can. Here is old school DS that seems to work:
If there is a better way, please let me know!
Thanks!!!!
Eric Hill
Integrated Corporate Solutions
NOTICE:
This message may contain privileged or otherwise confidential information. If you are not the intended recipient, please immediately advise the sender by reply e-mail and delete the message and any attachments without using, copying or disclosing the contents.
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Eric Hill
Sent: Thursday, July 13, 2017 9:20 AM
To: RPG programming on the IBM i (AS/400 and iSeries) <rpg400-l@xxxxxxxxxxxx>
Subject: Named Indicators in an Array
Never tried this before so I need a little assistance.
I have a screen that has 15 fields that load into array. Length=40, DIM=15. I have display/hide named indicators in my display file. Like SHOWTEXT01, SHOWTEXT02, etc. Can I put those indicators into an array via a data structure so I can say SHOWTEXT(X) = *ON within a loop? I'm not sure this can be done.
Thanks!!!
Eric Hill
Integrated Corporate Solutions
ehill@xxxxxxxxxxxxx<mailto:ehill@xxxxxxxxxxxxx>
256-760-8239
NOTICE:
This message may contain privileged or otherwise confidential information.
If you are not the intended recipient, please immediately advise the sender by reply e-mail and delete the message and any attachments without using, copying or disclosing the contents.
--
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:
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.
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 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:
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.
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
Notice: This e-mail transmission may contain information that is proprietary, privileged and/or confidential and is intended exclusively for the person(s) to whom it is addressed. This message may also contain Protected Health Information (PHI) and must be treated confidentially and handled in accordance with HIPAA and other federal and state privacy laws. Any use, copying, retention or disclosure by any person other than the intended recipient or the intended recipient's designees is strictly prohibited. If you are not the intended recipient or their designee, please notify the sender immediately and delete this e-mail (and any accompanying attachments).
midrange.com
