Listing 7.3  ZPTB00_DOCUMENT_VIEWER  Buchhaltungsbelege anzeigen
REPORT  zptb00_document_viewer.

DATA:
  l_btdate TYPE zptb00_dte_bta_date,
  l_tab_btdate TYPE ddtrange,
  l_str_btdate TYPE ddrange.
FIELD-SYMBOLS:
  <l_str_btdate> TYPE ANY.

* Input new reservation as selection screen
SELECTION-SCREEN BEGIN OF SCREEN 110.
SELECTION-SCREEN BEGIN OF BLOCK b110 WITH FRAME TITLE text-005.
SELECT-OPTIONS:			
  p_btdate FOR l_btdate.
SELECTION-SCREEN END OF BLOCK b110.						
SELECTION-SCREEN END OF SCREEN 110.

* Main program
DO.
  CALL SELECTION-SCREEN 110.
  IF sy-subrc <> 0.
    EXIT.
  ELSE.
    LOOP AT p_btdate ASSIGNING <l_str_btdate>.
      MOVE-CORRESPONDING <l_str_btdate> TO l_str_btdate.
    ENDLOOP.
    CALL FUNCTION 'ZPTB00_API_REP_DISPLAY'
      EXPORTING
        i_tab_booking_date = l_tab_btdate
      EXCEPTIONS
        failed             = 1
        OTHERS             = 2.
    IF sy-subrc <> 0.
      message e000(ZPTB00_REP).
    ENDIF.

  ENDIF.
ENDDO.