Cell-Current-Font
This property allows you to retrieve the font of the cell identified by the X and Y properties.
 
Example - Get the font of a cell
procedure division.
...
  modify screen-1-gr-1 x = 1y = 2
  inquire screen-1-gr-1 
          cell-current-font ws-cell-font
...