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