Verzweigungslisten im Dynpro aufrufen

Code: Alles auswählen.

report  zkas_ilist.

data: wa_sflight type sflight.
data: wa_sbook type sbook.
data: wa_scustom type scustom.

start-of-selection.
  write: / sy-lsind.

  select * from sflight into wa_sflight.
    write: / wa_sflight-carrid,
             wa_sflight-connid,
             wa_sflight-fldate,
             wa_sflight-planetype.
    hide: wa_sflight-carrid,
          wa_sflight-connid,
          wa_sflight-fldate.
  endselect.

at line-selection.

  case sy-lsind.

    when 1.

      write: / sy-lsind.

      select * from sbook into wa_sbook
        where carrid = wa_sflight-carrid
          and connid = wa_sflight-connid
          and fldate = wa_sflight-fldate.

        write: / wa_sbook-carrid,
                 wa_sbook-connid,
                 wa_sbook-fldate,
                 wa_sbook-bookid,
                 wa_sbook-customid.
        hide: wa_sbook-customid.

      endselect.

    when 2.

      write: / sy-lsind.

      select * from scustom into wa_scustom
        where id = wa_sbook-customid.

        write: / wa_scustom-id,
                 wa_scustom-name.

      endselect.

  endcase.

Code: Alles auswählen.

...    
    when 'LIST'.
         submit zkas_ilist via selection-screen and return.
...