Re: Indicator Redux

["Michael Ryan" <michaelrtr@xxxxxxxxx>]

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.