CBL_WRITE_SCR_N_ATTR

Writes a specified attribute to a string of positions on the screen.

Restriction: This routine is supported for native COBOL only.

Syntax:

call "CBL_WRITE_SCR_N_ATTR"  using     screen-position
                                      attribute-buffer
                                      fill-length
                            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.

attribute-buffer

Call prototype (see Key): pic x1-compx

Picture: pic x.

fill-length

Call prototype (see Key): pic x2-compx

Picture: pic x (2) comp-x.

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

attribute-buffer

The attribute(s) 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 number of screen positions to write the attribute to. If this would go off the end of the screen, the write finishes at the end of the screen.

On Exit:

None

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.