Erfassung von Adressen Telefonnummer

Code: Alles auswählen.

DATA ok_code                     TYPE sy-ucomm.
DATA number_handle_tab           TYPE STANDARD TABLE OF addr1_dia.
DATA number_handle               TYPE addr1_dia.
DATA values                      TYPE STANDARD TABLE OF addr1_data.
DATA value                       TYPE addr1_data.


number_handle-maint_mode = 'CREATE'.
number_handle-addr_group = 'CA01'.
number_handle-handle     = 'TEST'.
APPEND number_handle TO number_handle_tab.
CALL FUNCTION 'ADDR_DIALOG'
  IMPORTING
    ok_code           = ok_code
  TABLES
    number_handle_tab = number_handle_tab
    values            = values
  EXCEPTIONS
    address_not_exist = 1
    group_not_valid   = 2
    parameter_error   = 3
    internal_error    = 4
    OTHERS            = 5.
IF sy-subrc = 0.
  DATA address_selection       TYPE addr1_sel.
  DATA lt_adtel TYPE STANDARD TABLE OF adtel.

  address_selection-addrhandle = number_handle-handle.


  CALL FUNCTION 'ADDR_COMM_GET'
    EXPORTING
      address_handle    = address_selection-addrhandle
      table_type        = 'ADTEL'
    TABLES
      comm_table        = lt_adtel
    EXCEPTIONS
      parameter_error   = 1
      address_not_exist = 2
      internal_error    = 3
      OTHERS            = 4.