Re: RPG Indicators

["Peter Dow" <pcdow@xxxxxxxxx>]

Not to quibble Jim, but you can make the restore a little simpler:

    C        MOVE  Hold99    *IN99

or

    C        EVAL        *IN99 = Hold99

Regards,
Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax

----- Original Message -----
From: Jim Langston <jlangston@conexfreight.com>
To: <RPG400-L@midrange.com>
Sent: Monday, April 10, 2000 10:22 AM
Subject: Re: RPG Indicators


> Also, if possible, you can temporarily hold an indicator in a variable,
> use that indicator, then set it back to what it was, if it is a relatively
> short area.  An example.
>
> C    99                 MOVE  '1'    Hold99      1A
> C  N99                MOVE '0'     Hold99
> C*
> C                         READ   SOMEFILE               99
> C    99                 MOVE 'NOT FND'  ERRMSG
> C*
> C                         SETOF                                   99
> C        Hold99     IFEQ    '1'
> C                        SETON                                   99
> C                        END
>
> Mark Walter wrote:
>
> > If you use U1 through U8, be sure you save their state before
utilization
> > and restore the state when the program exits. Some 3rd party
applications
> > (MAPICS) use external indicators.
> >
> > -----Original Message-----
> > From:   Raul Jager [SMTP:raul@abc.com.py]
> > Sent:   Saturday, April 08, 2000 9:52 AM
> > To:     RPG400-L@midrange.com
> > Subject:        Re: RPG Indicators
> >
> > As an emergency, try the U1 - U8 indicators.  And reorganize your
> > program as soon as posible, before you get in the next emergency.
> >
__________________________________________________________________________
> > David Gibbs wrote:
> > >
> > > At 11:34 PM 04/07/2000 , you wrote:
> > > >I can't change the program too much for the moment, given the time.
Can
> > I
> > > >use *INKA? Is *INKA the same as *IN01? Can I use it (*INKA) instead
of
> > *IN01
> > > >for the following code? Also can I replace *IN51 with *INKB in the
RPG
> > and
> > > >DSPF?
> > >
> > > You can't use function key indicators to control screen functions ...
> > they
> > > have a tendency to be reset when screen io occurs.
> > >
> > > Perhaps you could just save the state of a few indicators (that aren't
> > used
> > > in the screen io) until after the screen io is done.
> > <snip>
> > --
> >   Raul A. Jager W.
> > Asuncion - Paraguay
> > +---
> > | This is the RPG/400 Mailing List!
> > | To submit a new message, send your mail to RPG400-L@midrange.com.
> > | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> > | To unsubscribe from this list send email to
RPG400-L-UNSUB@midrange.com.
> > | Questions should be directed to the list owner/operator:
> > david@midrange.com
> > +---
> >
> > +---
> > | This is the RPG/400 Mailing List!
> > | To submit a new message, send your mail to RPG400-L@midrange.com.
> > | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> > | To unsubscribe from this list send email to
RPG400-L-UNSUB@midrange.com.
> > | Questions should be directed to the list owner/operator:
david@midrange.com
> > +---
>
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
david@midrange.com
> +---


__________________________________________________
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.com

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---