Restriction:
- This routine is supported for native COBOL only.
- This routine is not supported when CHARSET"EBCDIC" is in effect.
Writes a string of characters to the screen, giving them all the same attribute.
Syntax:
call "CBL_WRITE_SCR_CHARS_ATTR" using screen-position
character-buffer
string-length
attribute-buffer
returning status-code
Parameters
-
screen-position
- Group predefined as
cblt-screen-position containing:
01 cblt-screen-position typedef.
03 cblte-scrp-row cblt-x1-compx. *> pic x comp-x.
03 cblte-scrp-col cblt-x1-compx. *> pic x comp-x.
-
character-buffer
- Call prototype (see
Key): pic x (n).
- Picture: pic x (n).
-
string-length
- Call prototype (see
Key): cblt-x2-compx.
- Picture: pic x (2) comp-x.
-
attribute-buffer
- Call prototype (see
Key): pic x (n).
- Picture: pic x (n).
-
status-code
- See
Library Routines - Key.
On Entry:
screen-position
|
The screen position at which to start writing. The top left corner is row 0, column 0. See
Screen Routines
|
character-buffer
|
The characters to write.
|
attribute-buffer
|
The attributes to write. Use the following table to set one or more attributes:
Windows platforms:
B"10000000"
|
BACKGROUND HIGHLIGHT
|
B"01000000"
|
BACKGROUND-COLOR (RED)
|
B"00100000"
|
BACKGROUND-COLOR (GREEN)
|
B"00010000"
|
BACKGROUND-COLOR (BLUE)
|
B"00001000"
|
FOREGROUND HIGHLIGHT
|
B"00000100"
|
FOREGROUND-COLOR (RED)
|
B"00000010"
|
FOREGROUND-COLOR (GREEN)
|
B"00000001"
|
FOREGROUND-COLOR (BLUE)
|
UNIX platforms:
B"10000000"
|
Reserved
|
B"01000000"
|
Reserved
|
B"00100000"
|
Reserved
|
B"00010000"
|
Reserved
|
B"00001000"
|
BLANK
|
B"00000100"
|
REVERSE-VIDEO
|
B"00000010"
|
UNDERLINE
|
B"00000001"
|
HIGHLIGHT
|
|
string-length
|
The length of the string to write. If this would go off the end of the screen, the write finishes at the end of the screen.
|
Comments:
The blink attribute is not supported on this COBOL system. Specifying that a character is to blink results in the character being displayed with a bright background color.