REPORT demo_programm_submit_line NO STANDARD PAGE HEADING.

DATA: name TYPE sy-title VALUE 'DEMO_PROGRAM_READ_TABLES_1',
              wid TYPE i VALUE 80,
              len TYPE i VALUE 0.

SET PF-STATUS 'SELECT'.

WRITE: 'Select a report and its list format:',
     / '-------------------------------------'.
SKIP.

WRITE: 'Report     ', name INPUT ON,
     / 'Line size  ', wid  INPUT ON,
     / 'Page length', len  INPUT ON.

AT USER-COMMAND.

  CASE sy-ucomm.
    WHEN 'SELE'.
      READ LINE: 4 FIELD VALUE name,
                 5 FIELD VALUE wid,
                 6 FIELD VALUE len.
      SUBMIT (name) LINE-SIZE wid LINE-COUNT len AND RETURN.
  ENDCASE.