WTAD_READ_ADDI_4_MATNR SAP Function module

DATA:
it_iwtaddi  
 
 TYPE STANDARD TABLE OF WTADDI,"TABLES PARAM
wa_iwtaddi
 
 LIKE LINE OF it_iwtaddi
,
it_iwtaddi_pr  
 
 TYPE STANDARD TABLE OF ADDI_WTADDI_PR,"TABLES PARAM
wa_iwtaddi_pr
 
 LIKE LINE OF it_iwtaddi_pr
,
it_imamt  
 
 TYPE STANDARD TABLE OF MAMT,"TABLES PARAM
wa_imamt
 
 LIKE LINE OF it_imamt
,
it_imara  
 
 TYPE STANDARD TABLE OF MARA,"TABLES PARAM
wa_imara
 
 LIKE LINE OF it_imara
,
it_fet_matnrs_and_quant  
 
 TYPE STANDARD TABLE OF WSOS_STULI,"TABLES PARAM
wa_fet_matnrs_and_quant
 
 LIKE LINE OF it_fet_matnrs_and_quant
,
it_fet_wtadab  
 
 TYPE STANDARD TABLE OF WTADAB,"TABLES PARAM
wa_fet_wtadab
 
 LIKE LINE OF it_fet_wtadab
,
it_fet_wtadabt  
 
 TYPE STANDARD TABLE OF WTADABT,"TABLES PARAM
wa_fet_wtadabt
 
 LIKE LINE OF it_fet_wtadabt
.

 

SELECT single MATNR 
  FROM MARA 
  INTO @DATA(ld_matnr).


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

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

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

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

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

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

SELECT single AKTNR 
  FROM WAKH 
  INTO @DATA(ld_aktnr).


DATA(ld_promo_date) = '20210129'.
 

SELECT single KEYTR 
  FROM TWZLA 
  INTO @DATA(ld_fi_sm_transaction).

 

SELECT single WERKS 
  FROM T001W 
  INTO @DATA(ld_fi_plant).

 

SELECT single MENGE 
  FROM MSEG 
  INTO @DATA(ld_fi_quantity).

 

SELECT single MSEHI 
  FROM T006 
  INTO @DATA(ld_fi_unit_of_measure).

 

SELECT single ADDIAPPL 
  FROM TWTCTRL 
  INTO @DATA(ld_fi_addi_application).

 

SELECT single VBELN 
  FROM VBAK 
  INTO @DATA(ld_fi_sd_doc).

 

SELECT single POSNR 
  FROM VBAP 
  INTO @DATA(ld_fi_itm_number).


DATA(ld_fi_sd_doc_cat) = '20210129'.

DATA(ld_fi_sd_ref_copy) = '20210129'.

DATA(ld_i_no_expl_sart) = '20210129'.
 

"populate fields of struture and append to itab
append wa_iwtaddi to it_iwtaddi.
 

"populate fields of struture and append to itab
append wa_iwtaddi_pr to it_iwtaddi_pr.
 

"populate fields of struture and append to itab
append wa_imamt to it_imamt.
 

"populate fields of struture and append to itab
append wa_imara to it_imara.
 

"populate fields of struture and append to itab
append wa_fet_matnrs_and_quant to it_fet_matnrs_and_quant.
 

"populate fields of struture and append to itab
append wa_fet_wtadab to it_fet_wtadab.
 

"populate fields of struture and append to itab
append wa_fet_wtadabt to it_fet_wtadabt.
.

CALL FUNCTION 'WTAD_READ_ADDI_4_MATNR'
* EXPORTING
*   matnr =                      ld_matnr
*   flag_addiprass_always =      ld_flag_addiprass_always
*   flag_addiprass_promo_only =    ld_flag_addiprass_promo_only
*   flag_addiprass_promo_never =    ld_flag_addiprass_promo_never
*   read_flag =                  ld_read_flag
*   read_mamt =                  ld_read_mamt
*   read_variants =              ld_read_variants
*   aktnr =                      ld_aktnr
*   promo_date =                 ld_promo_date
*   fi_sm_transaction =          ld_fi_sm_transaction
*   fi_plant =                   ld_fi_plant
*   fi_quantity =                ld_fi_quantity
*   fi_unit_of_measure =         ld_fi_unit_of_measure
*   fi_addi_application =        ld_fi_addi_application
*   fi_sd_doc =                  ld_fi_sd_doc
*   fi_itm_number =              ld_fi_itm_number
*   fi_sd_doc_cat =              ld_fi_sd_doc_cat
*   fi_sd_ref_copy =             ld_fi_sd_ref_copy
*   i_no_expl_sart =             ld_i_no_expl_sart
* TABLES
*   iwtaddi =                    it_iwtaddi
*   iwtaddi_pr =                 it_iwtaddi_pr
*   imamt =                      it_imamt
*   imara =                      it_imara
*   fet_matnrs_and_quant =       it_fet_matnrs_and_quant
*   fet_wtadab =                 it_fet_wtadab
*   fet_wtadabt =                it_fet_wtadabt
  EXCEPTIONS
    WRONG_CALL =                 1
    DB_ERROR =                   2
    .  "  WTAD_READ_ADDI_4_MATNR

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
ENDIF.