The CBL_READ_SCR_ATTRS routine is one of a set of library routines that facilitate reading and writing attributes on the screen. This routine reads a string of attributes from the screen.
CALL "CBL_READ_SCR_ATTRS" USING SCREEN-POSITION, ATTRIBUTE-BUFFER, STRING-LENGTH RETURNING STATUS-CODE
|SCREEN-POSITION Group item|| Group item is defined as follows:
01 SCREEN-POSITION. 03 ROW-NUMBER PIC X COMP-X. 03 COLUMN-NUMBER PIC X COMP-X.
On entry, the screen position at which to start reading (the top left corner is row 0, column 0)
|ATTRIBUTE-BUFFER PIC X(N).||On exit, this data item contains the attributes read from the screen. It must be at least the length specified by STRING-LENGTH. Positions in the data item beyond that length are unchanged.|
|STRING-LENGTH PIC XX COMP-X.|| On entry, contains the length of the string to read
On exit, contains the length of the string read when the end of the screen is reached
|STATUS-CODE Any numeric type||Returns 1 if successful, or 0 if not successful|
This library routine uses SCREEN-POSITION (in row and column coordinates) to determine the location to start the read operation. STRING-LENGTH specifies the length of the string of attributes to be read, starting from SCREEN-POSITION. When the routine exits, ATTRIBUTE-BUFFER contains the string of attributes read.