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



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.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

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.