The CBL_GET_CSR_POS routine is one of a set of library routines that facilitate reading and writing attributes on the screen. This routine returns the cursor position.
CALL "CBL_GET_CSR_POS" USING SCREEN-POSITION 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 exit, contains the screen position of the cursor. The top left corner is row 0, column 0. |
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 position of the cursor on the screen.