CURRENT_COLUMN

     Returns an integer identifying the current column of the cursor on the
     screen.  This does not reflect any movement of the current position
     that has occurred within a procedure in which CURRENT_COLUMN is used
     unless the built-in UPDATE (window) precedes it.

  Syntax

     integer := CURRENT_COLUMN

  Examples

     1.  my_cur_col := CURRENT_COLUMN;

         Stores in the variable MY_CUR_COL the integer for the column
         position of the cursor on the screen.

     2.  MESSAGE (STR (CURRENT_COLUMN));

         Combines three TPU built-ins:  CURRENT_COLUMN returns the
         integer for the current column position; STR converts the integer
         to a string; and MESSAGE writes this string to the message buffer.

  Related topics

     CURRENT_OFFSET   CURRENT_ROW   UPDATE