FT_VEND_DECL_MM SAP Function module

DATA:
ld_e_prntd  
 
 TYPE FTPRE-P_OUTPT
,
it_r_ekorg  
 
 TYPE STANDARD TABLE OF VFLS_EKORG_RANGE,"TABLES PARAM
wa_r_ekorg
 
 LIKE LINE OF it_r_ekorg
,
it_r_werks  
 
 TYPE STANDARD TABLE OF VFLS_WERKS_RANGE,"TABLES PARAM
wa_r_werks
 
 LIKE LINE OF it_r_werks
,
it_r_ekgrp  
 
 TYPE STANDARD TABLE OF VFLS_EKGRP_RANGE,"TABLES PARAM
wa_r_ekgrp
 
 LIKE LINE OF it_r_ekgrp
,
it_r_lifnr  
 
 TYPE STANDARD TABLE OF VFLS_LIFNR_RANGE,"TABLES PARAM
wa_r_lifnr
 
 LIKE LINE OF it_r_lifnr
,
it_r_matnr  
 
 TYPE STANDARD TABLE OF VFLS_MATNR_RANGE,"TABLES PARAM
wa_r_matnr
 
 LIKE LINE OF it_r_matnr
,
it_r_mtart  
 
 TYPE STANDARD TABLE OF VFLS_MTART_RANGE,"TABLES PARAM
wa_r_mtart
 
 LIKE LINE OF it_r_mtart
,
it_r_matkl  
 
 TYPE STANDARD TABLE OF VFLS_MATKL_RANGE,"TABLES PARAM
wa_r_matkl
 
 LIKE LINE OF it_r_matkl
.



DATA(ld_i_mtxt0) = some text here


DATA(ld_i_mtxt1) = some text here


DATA(ld_i_mtxt2) = some text here


DATA(ld_i_mtxt3) = some text here


DATA(ld_i_mtxt4) = some text here


DATA(ld_i_mtxt5) = some text here


DATA(ld_i_mtxt6) = some text here


DATA(ld_i_mtxt7) = some text here


DATA(ld_i_mtxt8) = some text here

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


DATA(ld_i_betpr) = some text here


DATA(ld_i_betol) = Check type of data required


DATA(ld_i_preis) = 20.50


DATA(ld_i_ansch) = some text here


DATA(ld_i_mahne) = some text here


DATA(ld_i_maxma) = Check type of data required


DATA(ld_i_doksp) = some text here


DATA(ld_i_einsp) = some text here


DATA(ld_i_spras) = Check type of data required


DATA(ld_i_eulif) = some text here


DATA(ld_i_simul) = some text here


DATA(ld_i_showl) = some text here


DATA(ld_i_ekver) = some text here


DATA(ld_i_nopre) = some text here


DATA(ld_i_newpg) = some text here


DATA(ld_i_popup) = some text here


DATA(ld_i_varia) = some text here


DATA(ld_i_prntr) = some text here


DATA(ld_i_esok0) = some text here


DATA(ld_i_esok1) = some text here


DATA(ld_i_esok2) = some text here


DATA(ld_i_esok3) = some text here


DATA(ld_i_esokp) = some text here


DATA(ld_i_esokz) = some text here


DATA(ld_i_herkl) = some text here


DATA(ld_i_stawn) = some text here


DATA(ld_i_land1) = some text here
 

SELECT single BNAME 
  FROM USR01 
  INTO @DATA(ld_i_user).



DATA(ld_i_fname) = some text here
 

SELECT single PRENG 
  FROM LFEI 
  INTO @DATA(ld_i_preng).



DATA(ld_i_list) = some text here


DATA(ld_i_file) = some text here


DATA(ld_i_word) = some text here


DATA(ld_i_form) = some text here


DATA(ld_i_usepr) = some text here


DATA(ld_i_zones) = some text here
 

"populate fields of struture and append to itab
append wa_r_ekorg to it_r_ekorg.
 

"populate fields of struture and append to itab
append wa_r_werks to it_r_werks.
 

"populate fields of struture and append to itab
append wa_r_ekgrp to it_r_ekgrp.
 

"populate fields of struture and append to itab
append wa_r_lifnr to it_r_lifnr.
 

"populate fields of struture and append to itab
append wa_r_matnr to it_r_matnr.
 

"populate fields of struture and append to itab
append wa_r_mtart to it_r_mtart.
 

"populate fields of struture and append to itab
append wa_r_matkl to it_r_matkl.
.

CALL FUNCTION 'FT_VEND_DECL_MM'
* EXPORTING
*   i_betpr =                    ld_i_betpr
*   i_betol =                    ld_i_betol
*   i_preis =                    ld_i_preis
*   i_ansch =                    ld_i_ansch
*   i_mahne =                    ld_i_mahne
*   i_maxma =                    ld_i_maxma
*   i_doksp =                    ld_i_doksp
*   i_einsp =                    ld_i_einsp
*   i_spras =                    ld_i_spras
*   i_eulif =                    ld_i_eulif
*   i_simul =                    ld_i_simul
*   i_showl =                    ld_i_showl
*   i_ekver =                    ld_i_ekver
*   i_nopre =                    ld_i_nopre
*   i_newpg =                    ld_i_newpg
*   i_popup =                    ld_i_popup
*   i_varia =                    ld_i_varia
*   i_prntr =                    ld_i_prntr
*   i_esok0 =                    ld_i_esok0
*   i_esok1 =                    ld_i_esok1
*   i_esok2 =                    ld_i_esok2
*   i_esok3 =                    ld_i_esok3
*   i_esokp =                    ld_i_esokp
*   i_esokz =                    ld_i_esokz
*   i_herkl =                    ld_i_herkl
*   i_stawn =                    ld_i_stawn
*   i_land1 =                    ld_i_land1
*   i_user =                     ld_i_user
*   i_fname =                    ld_i_fname
*   i_preng =                    ld_i_preng
*   i_list =                     ld_i_list
*   i_file =                     ld_i_file
*   i_word =                     ld_i_word
*   i_form =                     ld_i_form
*   i_usepr =                    ld_i_usepr
*   i_zones =                    ld_i_zones
  IMPORTING
    e_prntd =                    ld_e_prntd
  TABLES
    r_ekorg =                    it_r_ekorg
    r_werks =                    it_r_werks
    r_ekgrp =                    it_r_ekgrp
    r_lifnr =                    it_r_lifnr
    r_matnr =                    it_r_matnr
    r_mtart =                    it_r_mtart
    r_matkl =                    it_r_matkl
* CHANGING
*   i_mtxt0 =                    ld_i_mtxt0
*   i_mtxt1 =                    ld_i_mtxt1
*   i_mtxt2 =                    ld_i_mtxt2
*   i_mtxt3 =                    ld_i_mtxt3
*   i_mtxt4 =                    ld_i_mtxt4
*   i_mtxt5 =                    ld_i_mtxt5
*   i_mtxt6 =                    ld_i_mtxt6
*   i_mtxt7 =                    ld_i_mtxt7
*   i_mtxt8 =                    ld_i_mtxt8
*   itab_t604l =                 ld_itab_t604l
  EXCEPTIONS
    NO_DATA_FOUND =              1
    DATA_LOCKED =                2
    LANGUAGE_MISSING =           3
    MAXMA_TOO_LOW =              4
    MAXMA_TOO_HIGH =             5
    TEXT_NAME_MISSING =          6
    TEXT_NOT_FOUND =             7
    NEW_ERROR =                  8
    NO_KIND_OF_PURCHASEINFO_RECORD =    9
    .  "  FT_VEND_DECL_MM

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
ELSEIF SY-SUBRC EQ 6. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 7. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 8. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 9. "Exception
  "Add code for exception here
ENDIF.