REPORT  Z15_044.

DATA: name(8) VALUE 'Z15_044',

                    wid TYPE i VALUE 80,

                    len TYPE i VALUE 0.

SET PF-STATUS 'SELECT'.

WRITE: 'Select a report and its list format:',

          / '-------------------------------------'.

WRITE: 'Report     ', name INPUT ON,

          / 'Line size  ', wid  INPUT ON,

          / 'Page length', len  INPUT ON.

AT USER-COMMAND.

         CASE sy-ucomm.

                   WHEN 'SELE'.

                             wid = 40.

  SUBMIT (name) LINE-SIZE wid LINE-COUNT len AND RETURN.