*----------------------------------------------------------------------*
***INCLUDE MZ_TP3O01 .
*----------------------------------------------------------------------*
*
MODULE status_0100 OUTPUT.
  CLEAR fcode.
  SET PF-STATUS 'S100'.
  SET TITLEBAR 'T100'.
ENDMODULE.                 " STATUS_0100  OUTPUT
*
MODULE status_0200 OUTPUT.
  CLEAR fcode.
  SET PF-STATUS 'S200SHOW'.
  SET TITLEBAR 'T200'.
  IF cust_cont IS INITIAL.
    CREATE OBJECT cust_cont
      EXPORTING container_name = cust_name.
    CREATE OBJECT alv_cont
      EXPORTING i_parent = cust_cont.
    CREATE OBJECT ereignis.
* HANDLER fr Doppelklick
    SET HANDLER ereignis->handle_double_click FOR alv_cont.
  ELSE.
* darf beim selbstprogr. Blttern NICHT ausgefhrt werden!
    CALL METHOD alv_cont->refresh_table_display.
  ENDIF.

  CALL METHOD alv_cont->set_gridtitle
    EXPORTING
      i_gridtitle = 'Hallo!'.
  CALL METHOD alv_cont->set_table_for_first_display
    EXPORTING
      i_structure_name = 'ZZFLUG'
    CHANGING
      it_outtab        = itab.
  CALL METHOD cl_gui_control=>set_focus
    EXPORTING
      control = alv_cont.
ENDMODULE.                 " STATUS_0400  OUTPUT
*
MODULE status_0300 OUTPUT.
  CLEAR fcode.
  SET PF-STATUS 'S300'.
  SET TITLEBAR 'T300'.
ENDMODULE.                 " status_0300  OUTPUT
*
MODULE status_0400 OUTPUT.
  CLEAR fcode.
  SET PF-STATUS 'S400'.
  SET TITLEBAR 'T400'.
  IF container IS INITIAL.
    CREATE OBJECT container EXPORTING container_name = 'CUST_CONT'.
    CREATE OBJECT picture   EXPORTING parent  = container.
    CALL FUNCTION 'DP_PUBLISH_WWW_URL'
      EXPORTING
        objid    = 'SUNSET'
        lifetime = cndp_lifetime_transaction
      IMPORTING
        url      = url.
    picture->load_picture_from_url( url = url ).
  ENDIF.
*
*  LOOP AT SCREEN.
*    IF screen-name = 'SCARR-CARRNAME'.
*      screen-input = 1.
*      MODIFY SCREEN.
*    ENDIF.
*  ENDLOOP.
ENDMODULE.                 " status_0400  OUTPUT
*
MODULE count_check OUTPUT.
  IF count = 0.
    MESSAGE i011 WITH zflug_input-vondatum zflug_input-bisdatum
      zflug_input-cityfrom zflug_input-cityto.
*   Keine Flge zwischen & und & fr Abflug- & und Ankunftsstadt & gefun
  ELSE.
    MESSAGE s012 WITH count.
*   Es wurden & Flge gefunden.
  ENDIF.
ENDMODULE.                 " count_check  OUTPUT
*
MODULE status_0310 OUTPUT.
  CLEAR fcode.
  SET PF-STATUS 'S310'.
  SET TITLEBAR 'T310'.
ENDMODULE.                 " status_0310  OUTPUT
*
MODULE status_0320 OUTPUT.
  CLEAR fcode.
  SET PF-STATUS 'S320'.
  SET TITLEBAR 'T320'.
ENDMODULE.                 " status_0320  OUTPUT
*
MODULE status_0500 OUTPUT.
  SET PF-STATUS 'S500'.
  SET TITLEBAR 'T500'.
  IF box IS INITIAL.
*    CREATE OBJECT container.
    CREATE OBJECT box
      EXPORTING width  = 800
                height = 300
                top    = 80
                left   = 100.
    CREATE OBJECT web EXPORTING parent  = box.
  ENDIF.
  web->show_url( url = scarr-url ).
ENDMODULE.                 " status_0500  OUTPUT