× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Actually,

You've got 99 for RPG itself, and 99 for each display or printer file....

So if you had 1 display and two printer files, you could be using up to 396
indicators!!!

But please don't ;-)

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 2:28 PM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: Indicators -- not needed anymore???
> 
> 
> So in fact you can now double your indicators?
> 
> 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
> 
> 
> 
> 
> CWilt@xxxxxxxxxxxx 
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 30/11/2004 03:25 PM
> Please respond to
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> 
> 
> To
> rpg400-l@xxxxxxxxxxxx
> cc
> 
> Subject
> RE: Indicators -- not needed anymore???
> 
> 
> 
> 
> 
> 
> 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.
> > 
> --
> 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.
> 

As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.