Re: I am short of Indicators

[Dave Mahadevan <mahadevan@xxxxxxxx>]

Use the program to system field.  See the DDS manual.  Here is an excerpt.

Figure 3-67 shows how to specify the DSPATR keyword with P-field usage:


  
|...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
       A          R RECORD                   2DSPATR(&PFLD1)
       A            FLD1           5A     2  6DSPATR(&PFLD2)
       A            FLD2           5A     2  6DSPATR(&PFLD2)
       A            PFLD1          1A  P
       A            PFLD2          1A  P
       A

You can now pass the display attribute in the field PFLD1 to control FLD1 and 
PFLD2
to control FLD2.  For example to highlight and blink, you will set PFLD1 to 
X'2A'
and if you also want to protect the field besides highlighting and blinking you 
will
set PFLD1 to X'AA'.  You can also pass color attributes.  Please refer to the 
DDS
manual for all combinations of display attributes such as rev image, hi 
intensity,
underline, protect, blink, colors etc.   Only drawback with display attribute 
is you
cannot position cursor on the field.  You can use program to system field and
indicators together.

Rajeev Asthana wrote:

> Hi All,
>
> It happens everytime.
> My application uses almost every indicator from 01 to 99. These indiactors are
> basically used to condition various display attributes of the display files'
> fields.
> Now when I go to add a new field or add some more display attribute to an
> existing field, I find that I have already used up all the indicators, nothing
> is left.
> Then I go and put lots of Or/And conditions for the indiactors.
> But this is not a clean way.
> Can anybody tell me if there is a better way to do this?
>
> (Day dreaming : - AS/400 guys at IBM has increased Indiacator length from 2 
>to 3
> thus increasing the indicators from 001 to 999)
>
> Thanks,
> Rajeev.
>
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> * This is the RPG/400 Discussion Mailing List!  To submit a new         *
> * message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
> * from this list send email to MAJORDOMO@midrange.com and specify       *
> * 'unsubscribe RPG400-L' in the body of your message.  Questions should *
> * be directed to the list owner / operator: david@midrange.com          *
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

--
Thank You.

Regards

Dave Mahadevan.. mailto:mahadevan@fuse.net


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *