scroll-Befehl

Code: Alles auswählen.

report test.

data: field(30), text(30), line type i.

start-of-selection.
  perform output.

at line-selection.
  get cursor field field value text.
  case text.
    when '10'.
      line = sy-lilli.
      perform window.
    when '0D'.
      leave to list-processing.
      perform output.
      scroll list to page 1 index line.
  endcase.

*&---------------------------------------------------------------------*
*&      Form  window
*&---------------------------------------------------------------------*
form window.
  window  starting at  15 10 ending at 110 14.
  uline (95).
  format color 1 intensified on.
  write: /     '|',
               'text text text text text',
            95 '|'.
  new-line.
  uline (95).

  new-line.
  format reset.
  write: '0D' as icon hotspot on.

endform.                                                    " test2

*&---------------------------------------------------------------------*
*&      Form  output
*&---------------------------------------------------------------------*
form output.
  sy-lsind = 0.
  do 2000 times.
    write: / '10' as icon hotspot on, sy-pagno , sy-linno .
  enddo.
endform.                    " output