RE: Indicators -- not needed anymore???

[CWilt@xxxxxxxxxxxx]

Correct,

When you specify INDDS, the named data structure is used for the display
file indicator buffer.

The RPG indicator *IN67 still exists but is not used by the display file.

Charles Wilt
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
 

> -----Original Message-----
> From: RPower@xxxxxxxxxx [mailto:RPower@xxxxxxxxxx]
> Sent: Tuesday, November 30, 2004 1:46 PM
> To: RPG programming on the AS400 / iSeries
> Subject: Re: Indicators -- not needed anymore???
> 
> 
> So do you mean that if you seton 67, that allowCf06 is not changed?
> 
> Ron Power
> Programmer
> Information Services
> City Of St. John's, NL
> P.O. Box 908
> St. John's, NL
> A1C 5M2
> Tel: 709-576-8132
> Email: rpower@xxxxxxxxxx
> Website: http://www.stjohns.ca/
> ______________________________________________________________
> _____________
> Success is going from failure to failure without a loss of 
> enthusiasm. - 
> Sir Winston Churchill
> 
> 
> 
> 
> Barbara Morris <bmorris@xxxxxxxxxx> 
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 30/11/2004 03:10 PM
> Please respond to
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> 
> 
> To
> rpg400-l@xxxxxxxxxxxx
> cc
> 
> Subject
> Re: Indicators -- not needed anymore???
> 
> 
> 
> 
> 
> 
> Andy Hautamaki wrote:
> > 
> > Nobody is mentioning this one so maybe you can do this without an 
> indicator
> > and I'm just missing the obvious.........
> > 
> > On a display file you want to enable and disable a command 
> key........
> > 
> > 67                                  CF06
> > 
> 
> You can use an INDDS in your RPG program for this:
> 
> A                                      INDARA 
> A          R REC 
> A                                      CA03(03) 
> A  67                                  CF06(06) 
> A            FLD            1A     2  2 
> A  67                             23  2'F3=Exit F6=Shazzam!'
> A N67                             23  2'F3=Exit' 
> 
> Fjunkdsp   cf   e             workstn indds(dspInds) 
> D dspinds         ds 
> D   ca06                          n   overlay(dspinds : 3) 
> D   cf06                          n   overlay(dspinds : 6) 
> D   allowCf06                     n   overlay(dspinds : 67) 
>  ****** (Makes no difference if you seton *IN67)
> C******             eval      *in67 = *on
> C                   eval      allowCf06 = *off 
> C                   exfmt     rec 
> C     cf06          dsply
> C 
> C                   eval      allowCf06 = *on 
> C                   exfmt     rec 
> C     cf06          dsply
> C                   return 
> 
> output (if I hit F6 when it says I can):
> DSPLY  0
> DSPLY  1
> 
> --
> 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.
>