ISU_ADDRESS_PROVIDE_INTERNAL SAP Function module - INTERNAL: Address Format for Displaying and Determining IS-U Data

DATA:
ld_y_addr_lines  
 
 TYPE EADRLN
,
ld_y_line_count  
 
 TYPE SY-INDEX
,
ld_y_eadrdat  
 
 TYPE EADRDAT
,
ld_y_adrc_regio  
 
 TYPE ADRC_REGIO
,
ld_y_addr_data  
 
 TYPE ISU_REG0
,
ld_y_cust_regio  
 
 TYPE CUST_REGIO
,
ld_y_ieadrc  
 
 TYPE IEADRC
,
it_t_isu_regk  
 
 TYPE STANDARD TABLE OF ISU_REGK,"TABLES PARAM
wa_t_isu_regk
 
 LIKE LINE OF it_t_isu_regk
,
it_t_isu_regs  
 
 TYPE STANDARD TABLE OF ISU_REGS,"TABLES PARAM
wa_t_isu_regs
 
 LIKE LINE OF it_t_isu_regs
,
it_t_isu_regr  
 
 TYPE STANDARD TABLE OF ISU_REGR,"TABLES PARAM
wa_t_isu_regr
 
 LIKE LINE OF it_t_isu_regr
,
it_t_isu_regg  
 
 TYPE STANDARD TABLE OF ISU_REGG,"TABLES PARAM
wa_t_isu_regg
 
 LIKE LINE OF it_t_isu_regg
,
it_t_isu_rega  
 
 TYPE STANDARD TABLE OF ISU_REGA,"TABLES PARAM
wa_t_isu_rega
 
 LIKE LINE OF it_t_isu_rega
.


DATA(ld_xy_obj) = 'Check type of data required'.

DATA(ld_x_address_type) = 'Check type of data required'.

DATA(ld_x_length) = '123 '.

DATA(ld_x_line_count) = '123 '.
 

SELECT single PRGCONTEXT 
  FROM EBACONTXT 
  INTO @DATA(ld_x_prgcontext).

 

SELECT single SUBCONTEXT 
  FROM EBACONTXT 
  INTO @DATA(ld_x_subcontext).



DATA(ld_x_read_adrc_regio) = some text here


DATA(ld_x_read_isu_data) = some text here


DATA(ld_x_read_mru) = some text here


DATA(ld_x_read_konz) = some text here


DATA(ld_x_read_bukrs) = some text here


DATA(ld_x_read_route) = some text here


DATA(ld_x_read_grid) = some text here


DATA(ld_x_read_ams) = some text here


DATA(ld_x_read_cust_regio) = some text here


DATA(ld_x_read_ieadrc) = some text here
 

SELECT single ADDRNUMBER 
  FROM ADRC 
  INTO @DATA(ld_x_addrnumber).



DATA(ld_x_partner) = some text here
 

SELECT single VKONT 
  FROM FKKVK 
  INTO @DATA(ld_x_account).

 

SELECT single PERSNUMBER 
  FROM BUT000 
  INTO @DATA(ld_x_persnumber).



DATA(ld_x_haus) = some text here
 

SELECT single VSTELLE 
  FROM EVBS 
  INTO @DATA(ld_x_vstelle).



DATA(ld_x_devloc) = some text here
 

SELECT single ANLAGE 
  FROM V_EANL 
  INTO @DATA(ld_x_anlage).


DATA(ld_x_int_ui) = '123 '.

DATA(ld_x_rob) = '123 '.

DATA(ld_x_prop) = '123 '.

DATA(ld_x_addr1_val) = '123 '.

DATA(ld_x_ekun_ext) = '123 '.

DATA(ld_x_fkkvkp1) = '123 '.

DATA(ld_x_ehau) = '123 '.

DATA(ld_x_evbs) = '123 '.

DATA(ld_x_egpl) = '123 '.

DATA(ld_x_eanl) = '123 '.

DATA(ld_x_eewa_rob) = '123 '.

DATA(ld_x_eewa_prop) = '123 '.


DATA(ld_x_actual) = some text here


DATA(ld_x_changed_address) = some text here
 

SELECT single BUKRS 
  FROM T001 
  INTO @DATA(ld_x_bukrs).

 

SELECT single SPART 
  FROM TSPA 
  INTO @DATA(ld_x_sparte).

 

SELECT single AKLASSE 
  FROM EAKLASSE 
  INTO @DATA(ld_x_aklasse).


DATA(ld_x_spebene) = '123 '.

DATA(ld_x_grid_level_type) = '123 '.

DATA(ld_x_grid_level) = '123 '.

DATA(ld_x_keydate) = '123 '.

DATA(ld_x_nation) = '123 '.

DATA(ld_x_addr_obj) = '123 '.
 

"populate fields of struture and append to itab
append wa_t_isu_regk to it_t_isu_regk.
 

"populate fields of struture and append to itab
append wa_t_isu_regs to it_t_isu_regs.
 

"populate fields of struture and append to itab
append wa_t_isu_regr to it_t_isu_regr.
 

"populate fields of struture and append to itab
append wa_t_isu_regg to it_t_isu_regg.
 

"populate fields of struture and append to itab
append wa_t_isu_rega to it_t_isu_rega.
.

CALL FUNCTION 'ISU_ADDRESS_PROVIDE_INTERNAL'
  EXPORTING
    x_address_type =             ld_x_address_type
*   x_length =                   ld_x_length
*   x_line_count =               ld_x_line_count
*   x_prgcontext =               ld_x_prgcontext
*   x_subcontext =               ld_x_subcontext
*   x_read_adrc_regio =          ld_x_read_adrc_regio
*   x_read_isu_data =            ld_x_read_isu_data
*   x_read_mru =                 ld_x_read_mru
*   x_read_konz =                ld_x_read_konz
*   x_read_bukrs =               ld_x_read_bukrs
*   x_read_route =               ld_x_read_route
*   x_read_grid =                ld_x_read_grid
*   x_read_ams =                 ld_x_read_ams
*   x_read_cust_regio =          ld_x_read_cust_regio
*   x_read_ieadrc =              ld_x_read_ieadrc
*   x_addrnumber =               ld_x_addrnumber
*   x_partner =                  ld_x_partner
*   x_account =                  ld_x_account
*   x_persnumber =               ld_x_persnumber
*   x_haus =                     ld_x_haus
*   x_vstelle =                  ld_x_vstelle
*   x_devloc =                   ld_x_devloc
*   x_anlage =                   ld_x_anlage
*   x_int_ui =                   ld_x_int_ui
*   x_rob =                      ld_x_rob
*   x_prop =                     ld_x_prop
*   x_addr1_val =                ld_x_addr1_val
*   x_ekun_ext =                 ld_x_ekun_ext
*   x_fkkvkp1 =                  ld_x_fkkvkp1
*   x_ehau =                     ld_x_ehau
*   x_evbs =                     ld_x_evbs
*   x_egpl =                     ld_x_egpl
*   x_eanl =                     ld_x_eanl
*   x_eewa_rob =                 ld_x_eewa_rob
*   x_eewa_prop =                ld_x_eewa_prop
*   x_actual =                   ld_x_actual
*   x_changed_address =          ld_x_changed_address
*   x_bukrs =                    ld_x_bukrs
*   x_sparte =                   ld_x_sparte
*   x_aklasse =                  ld_x_aklasse
*   x_spebene =                  ld_x_spebene
*   x_grid_level_type =          ld_x_grid_level_type
*   x_grid_level =               ld_x_grid_level
*   x_keydate =                  ld_x_keydate
*   x_nation =                   ld_x_nation
*   x_addr_obj =                 ld_x_addr_obj
  IMPORTING
    y_addr_lines =               ld_y_addr_lines
    y_line_count =               ld_y_line_count
    y_eadrdat =                  ld_y_eadrdat
    y_adrc_regio =               ld_y_adrc_regio
    y_addr_data =                ld_y_addr_data
    y_cust_regio =               ld_y_cust_regio
    y_ieadrc =                   ld_y_ieadrc
* TABLES
*   t_isu_regk =                 it_t_isu_regk
*   t_isu_regs =                 it_t_isu_regs
*   t_isu_regr =                 it_t_isu_regr
*   t_isu_regg =                 it_t_isu_regg
*   t_isu_rega =                 it_t_isu_rega
  CHANGING
    xy_obj =                     ld_xy_obj
  EXCEPTIONS
    NOT_FOUND =                  1
    PARAMETER_ERROR =            2
    OBJECT_NOT_GIVEN =           3
    ADDRESS_INCONSISTENCY =      4
    INSTALLATION_INCONSISTENCY =    5
    .  "  ISU_ADDRESS_PROVIDE_INTERNAL

IF SY-SUBRC EQ 0.
  "All OK
ELSEIF SY-SUBRC EQ 1. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 2. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 3. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 4. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 5. "Exception
  "Add code for exception here
ENDIF.