RE: RPG Indicators

["R. O." <otis_the_cat@xxxxxxxxxxx>]

You can also send the hex value of the display attribute to a 
program-to-system field in your display file to set the display arrtibute.  
You can define constants that can hold the hex value and move them into the 
pgm to sys field:

D  Atr1          C            CONST(X'21')

              .   .   .

               EVAL       TYPATR = Atr1
                                   (Green + RI)

In your display file:

     A            TYPATR         1A  P
     A            ATYP      R        B 13 69
     A                                      DSPATR(&TYPATR)


You can then completely avoid indicators!




>From: Jon Erickson <jerickson@800.com>
>Reply-To: RPG400-L@midrange.com
>To: "'RPG400-L@midrange.com'" <RPG400-L@midrange.com>
>Subject: RE: RPG Indicators
>Date: Fri, 7 Apr 2000 21:23:53 -0700
>
>I won't ask how, but some have defined additional 99 character element
>arrays to hold/save the *IN array.  Which of course could become a logical
>management nightmare,(pun).
>
>HTH,
>-Jon A. Erickson
>Sr. Programmer Analyst
>www.800.com
>
>-----Original Message-----
>From: NGUI Fong Lon [mailto:flngui@pc.jaring.my]
>Sent: Friday, April 07, 2000 5:14 PM
>To: RPG400-L@midrange.com
>Subject: RPG Indicators
>
>
>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?
>
>Thanks in advance.
>
>+---
>| 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
>+---

______________________________________________________
Get Your Private, Free Email at http://www.hotmail.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
+---