Screen Attributes

[bibarnes@yahoo.com]

Put on your old S36 hats. Back then you could place a hex character in a field and change the look of teh remainder of the field. the old terminals had a key you could press to display the attribute bytes. What I would lie to be able to do is highlight or whatever certain words in a text field while leaving the rest of the field as is. It has to be done at run time. What I need is a list of the hex codes that control screen attributes. TIA Bill Barnes Performance, Inc.

[Guest.Visitor]

Bill, This isn't exactly what you asked for, but it will display the screen attribute codes. I have another that displays the entire character set via the *LDA.

 **************************************************  ************************ * CRTBNDRPG SRCFILE(&L/&F) SRCMBR(&M) PGM(&L/&M) DBGVIEW(*SOURCE) * * BNDDIR(QC2LE) * **************************************************  ************************ H OPTION(*SRCSTMT) ****************** * Convert to Hex * ****************** DCVTHC PR EXTPROC('cvthc') D PR_HexVal 4096A OPTIONS(*VARSIZE) D PR_ChrVal 2048A CONST OPTIONS(*VARSIZE) D PR_CvtLen 10I 0 VALUE ************************ * Conversion data area * ************************ D DS D Bin 1 2B 0 INZ(*ZEROS) D Char 2 2A DHex S 2A DOut S 20A C* Generate characters x'20' - x'39' and display. C 32 DO 57 Bin C CALLP CVTHC(Hex: Char: 2) C EVAL Out = Char + 'Attribute' + x'20' + C 'x''' + Hex + '''' C Out DSPLY C END C 'Done' DSPLY Char C SETON LR 

David Morris

[David Abramowitz]

On any terminal, even an attached PC, sign off, and press ALT-TEST or CTRL-TEST. This will lead you to screens that display hex attributes for monochrome, and color. The hex attributes are 5250 attributes. They have no preference whatsoever for working in native or S/36 modes. Dave

[Guest.Visitor]

Here are some screen attribute codes. I can't even remember where I got them, I think I found them buried somewhere in this or the "other" magazine's web sites, contributed by someone else... RED X'28' YLW X'32' TRQ X'30' BLU X'3A' PNK X'38' WHT X'22' HI X'22' RI X'21' UL X'24' I have used in RPG programs by doing stuff similar to (say that TXTFLD is a char(40) field in a display file): EVAL %SUBST(TXTFLD: 1:16) = 'Account Status: ' EVAL %SUBST(TXTFLD:17: 1) = X'28' EVAL %SUBST(TXTFLD:18:23) = 'Credit Hold '