Re: RPG Indicators

[Jim Langston <jlangston@xxxxxxxxxxxxxxxx>]

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
+---