Re: RPG Indicators -- RPG400-L

If things are urgent, you can get a much faster answer by playing "Ask the
Computer!"  In other words, try it. You'll find that you cannot use KA to
condition fields in a DSPF, in fact you get a message telling you that it
must be an indicator 01-99. Now in your RPG, try to seton KB. You get a
message that "Resulting-Indicators KA-KN, KP-KY are valid for the SETOF
only". It's a lot faster than posting to this list and waiting for someone
to reply.

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

----- Original Message -----
From: NGUI Fong Lon <flngui@pc.jaring.my>
To: <RPG400-L@midrange.com>
Sent: Friday, April 07, 2000 9:34 PM
Subject: RE: RPG Indicators


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


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