Struktur als Using-Parameter aus Fuba an Unterprogramm

Code: Alles auswählen.

  TYPES:
    BEGIN OF ts_check_adr,
      datum_von  TYPE sy-datum,
      datum_bis  TYPE sy-datum,
      country    TYPE land1,
      langu      TYPE langu,
      city_name  TYPE ad_city1,
      city_part  TYPE ad_city2,
      city_code  TYPE ad_citynum,
      cityp_code TYPE ad_citypnm,
      post_code  TYPE post_code,
      street     TYPE ad_street,
      strt_code	 TYPE strt_code,
      housenum_h TYPE housenum_h,
      hsn_supp_h TYPE hsn_supp_h,
      housenum_l TYPE housenum_l,
      hsn_supp_l TYPE hsn_supp_l,
      hsn_ind	   TYPE hsn_ind,
      n_hnrvon   TYPE ad_hsnm1,
      n_hnrbis   TYPE ad_hsnm2,
      a_hnrvon   TYPE ad_hsnm1,
      a_hnrbis   TYPE ad_hsnm2,
    END OF ts_check_adr.

Code: Alles auswählen.

    ls_check_adr     TYPE ts_check_adr,

Code: Alles auswählen.

              perform get_netz using '01'
                                     lv_s_netz
                                     ''
                                     ''
                                     ''
                                     ls_check_adr
                            changing ct_net_xxx.

Code: Alles auswählen.

FORM get_netz USING iv_sparte
                    iv_s_netz
                    iv_g_netz
                    iv_g_teilnetz
                    iv_g_netzbereich
                    is_check_adr
           CHANGING ct_net_xxx TYPE table.

Code: Alles auswählen.

        ls_net_xxx-housenum_l = is_check_adr-n_hnrvon.
        ls_net_xxx-hsn_supp_l = is_check_adr-a_hnrvon.
        ls_net_xxx-housenum_h = is_check_adr-n_hnrbis.
        ls_net_xxx-hsn_supp_h = is_check_adr-a_hnrbis.

Code: Alles auswählen.

MOVE-CORRESPONDING is_check_adr TO ls_net_xxx.