Leerzeilen bei Listenausgabe (List-Processing)

Code: Alles auswählen.

 ENDPOS_COL                      10
 ENDPOS_ROW                      5
 STARTPOS_COL                    1
 STARTPOS_ROW                    1
 TITLETEXT                       Titel
VALUETAB                           4 Einträge

Code: Alles auswählen.

 ENDPOS_COL                      10
 ENDPOS_ROW                     20
 STARTPOS_COL                    1
 STARTPOS_ROW                    1
 TITLETEXT                       Titel
VALUETAB                           20 Einträge

Code: Alles auswählen.

FUNCTION popup_with_table_display.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"  IMPORTING
*"     VALUE(ENDPOS_COL) TYPE  INT4
*"     VALUE(ENDPOS_ROW) TYPE  INT4
*"     VALUE(STARTPOS_COL) TYPE  INT4
*"     VALUE(STARTPOS_ROW) TYPE  INT4
*"     VALUE(TITLETEXT) TYPE  CHAR80
*"  EXPORTING
*"     VALUE(CHOISE) LIKE  SY-TABIX
*"  TABLES
*"      VALUETAB
*"  EXCEPTIONS
*"      BREAK_OFF
*"----------------------------------------------------------------------
  REFRESH listtab. CLEAR listtab.

  field-symbols: <l_valuetab> type x,
                 <l_listtab> type x.
  assign: listtab to <l_listtab> type 'X',
          valuetab to <l_valuetab> type 'X'.

  LOOP AT valuetab.
    <l_listtab> = <l_valuetab>.
    APPEND listtab.
  ENDLOOP.

  title_text = titletext.

  CALL SCREEN 0100 STARTING AT startpos_col startpos_row
                   ENDING   AT endpos_col endpos_row.
  choise = hline.
ENDFUNCTION.


AT USER-COMMAND.
  CASE sy-ucomm.
    WHEN 'SLCT'.
      GET CURSOR FIELD hfield LINE hline.
      IF sy-subrc = 0.
        SET SCREEN 0.
        LEAVE SCREEN.
      ENDIF.
    WHEN 'ABR'.
      SET SCREEN 0.
      RAISE break_off.
      LEAVE SCREEN.
  ENDCASE.

*---------------------------------------------------------------------*
*       MODULE SET_TITLE                                              *
*---------------------------------------------------------------------*
*       Set the title given by calling program                        *
*---------------------------------------------------------------------*

MODULE set_title OUTPUT.

  SET TITLEBAR '001' WITH title_text.

ENDMODULE.

*---------------------------------------------------------------------*
*       MODULE LISTPROCESSING OUTPUT                                  *
*---------------------------------------------------------------------*
*       Switchs to list-processing and displays internal table data   *
*---------------------------------------------------------------------*
MODULE listprocessing OUTPUT.

  SET PF-STATUS 'PICK'.
  LEAVE TO LIST-PROCESSING AND RETURN TO SCREEN 100.
  LOOP AT listtab.
    WRITE: / listtab.
  ENDLOOP.
  LEAVE SCREEN.

ENDMODULE.