Benutzerinteraktion während PAI-Verarbeitung

Code: Alles auswählen.

MODULE status_0100 OUTPUT.

  SET PF-STATUS 'ST_1234'.

  IF gr_alv_grid IS INITIAL.

    CREATE OBJECT gr_1234_cuscon
      EXPORTING
        container_name = '1234_CUSCON'.

    CREATE OBJECT gr_dialogbox
      EXPORTING
        width   = 600
        height  = 200
        top     = 70
        left    = 140
        caption = 'Test'.

    SET HANDLER lcl_event_handler=>on_close FOR gr_dialogbox.

    CREATE OBJECT gr_alv_grid
      EXPORTING
        i_parent = gr_1234_cuscon.

    CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
      EXPORTING
        i_structure_name       = 'ZQM_ALV_MESSWERTE'
      CHANGING
        ct_fieldcat            = gt_fcat[]
      EXCEPTIONS
        inconsistent_interface = 1
        program_error          = 2
        OTHERS                 = 3.

    gs_layo-cwidth_opt = abap_true.

    CALL METHOD gr_alv_grid->set_table_for_first_display
      EXPORTING
        i_buffer_active     = abap_false
        i_bypassing_buffer  = abap_true
        i_consistency_check = abap_false
*       is_variant          = ls_vari
        i_save              = 'A'
        is_layout           = gs_layo
      CHANGING
        it_outtab           = gt_alv
        it_fieldcatalog     = gt_fcat.
  ELSE.
    gr_alv_grid->refresh_table_display( ).
    gr_alv_grid->check_changed_data( ).
  ENDIF.

Code: Alles auswählen.

MODULE         user_command_0100 INPUT.

  CASE sy-ucomm.
    WHEN 'ONLI'.
      DO. "Diese Schleife soll mit einer Benutzeraktion verlassen werden
        IF gv_exit IS NOT INITIAL.
          EXIT.
        ENDIF.

*     Hier kommt die Anfrage an den Web-Service rein

      ENDDO.

    WHEN OTHERS.
      CLEAR gt_alv.
      gr_alv_grid->refresh_table_display( ).
      gr_alv_grid->check_changed_data( ).
      LEAVE TO SCREEN 0.
  ENDCASE.

ENDMODULE.