RE: RPG Indicators

Along the same train of thought, you could also create a 100 byte ararry and
just move the whole *in arrary into the array, and then copy it back when
your done with your operation...

just a thought.
tim

> -----Original Message-----
> From: Jim Langston [SMTP:jlangston@conexfreight.com]
> Sent: Monday, April 10, 2000 10:23 AM
> To:   RPG400-L@midrange.com
> 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
> +---
+---
| 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
+---