RE: Indicator Redux

Because on my display file, I am using "27" as a conditioning indicator.
When I test it in debug, it doesn't come on, but ExcludeSys is *ON.
Therefore, the action that I am attempting to do on the display file
isn't happening. 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Michael Ryan
Sent: Wednesday, December 06, 2006 10:24 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Indicator Redux

Why are you using a *IN array?

On 12/6/06, Turnidge, Dave <DTurnidge@xxxxxxxxxxxxxxxxxxxx> wrote:

BOTH, but also the indicators that are CONDITIONING indicators... I do

have the INDARA and data structure. However, it isn't affecting the 
*IN indicators and array.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Michael Ryan
Sent: Wednesday, December 06, 2006 10:17 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Indicator Redux

You mean for a display file or printer file? If so, you need the 
INDARA keyword in your file, and a data structure in your program.

Like this...

FWCS110D   CF   E             WorkStn IndDS(WCS110DS)
F                                     SFile(WCS110D1:D1RRN)

  * Workstation indicator data structure.
D WCS110DS        DS
D  Exit                   3      3N
D  SortByName             5      5N
D  SortByAcct             6      6N
D  SortByDate             7      7N
D  NameSearch            17     17N
D  AcctSearch            18     18N
D  DateSearch            19     19N
D  Previous              12     12N
D  SflDsp                30     30N
D  SflDspCtl             31     31N
D  SflClr                32     32N
D  RollUp                40     40N
D  RollDown              41     41N

Then you can test if exit is on (the user pressed it). Or you can set 
an indicator on like SflClr (Clear subfile).



On 12/6/06, Turnidge, Dave <DTurnidge@xxxxxxxxxxxxxxxxxxxx> wrote:

I have looked through the archives having to do with Indicator 
Arrays,

and am confused. It appears that there are two arrays(?): one for 
display file indicators, and one for RPG indicators.

When I started on my current project I was told that I didn't need 
to use the "pointer method" to define my indicators, but now I am 
running

into a problem. I have set up variable "ExcludeSys" for position 27 
in

my indicator data structure. However, when I turn ExcludeSys *ON,
*IN27 is not *ON, and, I WANT it to be on.

Please help me understand the difference (if there is one) and/or 
how to be able to use a variable name and have the action continue 
on to the indicator. Also, if there is a page in a Redbook (or 
equivalent) that explains this from IBM's "easy to understand" 
viewpoint <G> a link would be nice...

Thank you,

Dave

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