Re: RPG Indicators

[Bryan Yates <srprog3@xxxxxxxxxxxxxxx>]

István Rudas wrote:
> 
> Shishir,
> 
> sorry, but did not find the hex-equivalent of DSPATR(ND) you asked.
nondisplay is X'27'

> 
> DSPATR(PC)  is forbidden: The Program-System-field is not allowed for: MDT,
> OID, PC and SP.
> (found in: DDS Reference SC42-2060-01, chapt.4 -  is maybe the nbr for the
> GERMAN translation? - don't know).
> 
> Instead of PC I use the binary field from INFDS for row and line evaluation
> and setting.
Postition cursor can be emulated without indicators by defining hidden 
fields in the dds record:

A             $$ROW                      3S    0H
A             $$CLMN                    3S    0H
A             $$POS1                      6S    0H

You  must also specify the record keyword CSRLOC:

A               R MAIN
A                                                                  
CSRLOC($$ROW       $$CLMN)


Row and Column should be obvious.  $$POS1  should be initialized with a 
6 byte row and column value:
                                       Z-ADD005016           $$POS1
                                                   (ROW 5, COLUMN 16)
Then when you want to postion the cursor to that field simply
                                       MOVEL$$POS1        $$ROW
                                       MOVE  $$POS1         $$CLMN
and voila! there it is.


This avoids having to use indicators at all to position the cursor, but 
has the obvious maintenance drawback if you ever move a field that you 
are positioning to.

Bryan Yates
Sr. Programmer/Analyst
Information Services
Collin County Government
McKinney, County of Collin, Texas, USA

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