Re: Alternatives to DDS Screen Indicators

[Buck Calabro/commsoft<mcalabro@xxxxxxxxxxxx>]

On 02/04/99 04:41:39 PM "Rob Ward"  wrote:

>I have an application that is using all available indicators on the screen
>DDS for Non-Disp, Hidden, Etc.  I want to get rid of the indicators and 
try
>to change just the screen attribute byte on each field needing changed. 
Can
>anyone point me in the right direction on if and how I can do this?

You are a brave man indeed.
Possibly the easiest (hah!) solution is to change all your fields to 
character and make them one longer than they are now.  Put the attribute 
byte in the leading position and let the normal end character act as the 
closing attribute byte; i.e.

change 
A            WDATA         10A  O 14  4

to
A            WDATA         11A  O 14  3

and when you run your RPG program, place an attribute byte in column 1 of 
WDATA:
C                     MOVELX'21'     WDATA
C                     MOVE DDATA     WDATA

Here's a short list of attribute bytes and their meaning:
X'21'   RI
X'22'   HI/WHITE
X'23'   HI/RI
X'24'   UL
X'25'   UL/RI
X'26'   UL/HI
X'27'   ND
X'28'   BL/RED
X'29'   BL/RI
X'2A'   BL/HI
X'2B'   BL/HI/RI
X'2C'   BL/UL
X'2D'   BL/UL/RI
X'2E'   BL/UL/HI
X'2F'   ND
X'30'   CS/TRQ
X'31'   CS/RI
X'32'   CS/YEL
X'33'   CS/HI/RI
X'34'   CS/UL
X'35'   CS/UL/RI
X'36'   CS/UL/HI
X'37'   ND
X'38'   PINK
X'39'   CS/BL/RI
X'3A'   BLUE
X'3B'   CS/BL/HI/RI
X'3C'   CS/BL/UL
X'3D'   CS/BL/UL/RI
X'3E'   CS/BL/UL/HI
X'3F'   ND

This, of course, won't work too well with input capable fields.

If you want to go the whole nine yards, you'll have to get very familiar 
with the 5250 data stream and create USRDFN files.  The alternatives may be 
UIM or the dynamic screen APIs.

You are a brave man indeed.

Buck Calabro
CommSoft, Albany, NY
mailto:mcalabro@commsoft.net
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---