*****************************************
******ZLINES - SAP Lines          *******
******Created by Garipov S.A. 2008*******
*****************************************
*****************************************
program  zlines no standard page heading
  message-id zlines_msg.

include zlcllines.

data: r_lines type ref to z_lcl_lines.

data x type i.
data y type i.

start-of-selection.
  set pf-status 'ZLINES'.
  create object r_lines.

  "Initialization
  r_lines->initialize( ).
  r_lines->redraw( ).

at line-selection.
  "Determine x & y
  x = sy-cucol.
  y = sy-curow.
  "Handle useraction
  r_lines->useraction( exporting col = x row = y ).