call "CBL_READ_SCR_CHATTRS" using screen-position character-buffer attribute-buffer string-length returning status-code
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.
screen-position | The screen position to start reading at. The top left corner is row 0, column 0. See Screen Routines. |
string-length | The length of the string to read. |
character-buffer | The characters read from the screen. This data item must be at least as long as specified by string-length; positions in it beyond that length are unchanged. |
attribute-buffer | The attributes read from the screen. This data item must be at least as long as specified by string-length; positions in it beyond that length are unchanged. |
string-length | If the end of the screen is reached, the length read (in cells, that is, character-attribute pairs) is returned in here. |