RE: RPG Indicators

["NGUI Fong Lon" <flngui@xxxxxxxxxxxx>]

Hi David,

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?


RPG:
| C         SCDVAL BEGSR
| C*INV2_0010
| C* ISSUE
| C         ISSRCP  IFEQ SUNISS             /ISSUE
| C         WSRCD   LOKUPTB1,X     01
| C N01             EXSR ERRRT
| C* RECEIPT
| C                 ELSE
| C         ISSRCP  IFEQ SUNRCP /RECEIPT
| C         WSRCD   LOKUPTB2,X     01
| C N01             EXSR ERRRT
| C                 ENDIF                  /RECEIPT
| C                 ENDIF                  /ISSUE
| C*
| C                 ENDSR

| C                 ERRRT BEGSR
| C*
| C                 SETON 51
| C                 MOVEL'Y' SRCDER
| C                 MOVELSUNINV RINMSG P
| C                 SETOF 01
| C*
| C                 ENDSR

DSPF:
   A  51                                   DSPATR(PC)
   A  51                                   DSPATR(RI)

Thanks a lot in advance!

-----Original Message-----
From: owner-rpg400-l@midrange.com [mailto:owner-rpg400-l@midrange.com]On
Behalf Of David Gibbs
Sent: Saturday, 8 April 2000 11:47
To: RPG400-L@midrange.com
Subject: Re: RPG Indicators


At 07:13 PM 04/07/2000 , you wrote:
>I need advice in RPG/400 here urgently. I need to use an indicator to
>control the DSPATR keyword in a RPG program. However, in this particular
>program, all the indicators (from 1 to 99) have been used up. What can I do
>about this?

Reduce your indicator usage ... use flag fields instead of indicators to
control functions.  Not only does that reduce the indicator usage, it will
probably make your program easier to understand (as long as your flag
fields are meaningfully named).

david

--
| Internet: david@midrange.com
| WWW:      http://www.midrange.com/david
|
| This message was written and delivered using 100%
| post-consumer (recycled) data bits.

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