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.