ASSET_MASTERRECORD_MAINTENANCE SAP Function module

DATA:
ld_e_anln1  
 
 TYPE ANLA-ANLN1
,
ld_e_anln2  
 
 TYPE ANLA-ANLN2
,
ld_e_parm_flag  
 
 TYPE STRING
,
ld_e_bukrs  
 
 TYPE ANLA-BUKRS
,
ld_e_error  
 
 TYPE STRING
,
ld_e_anlh  
 
 TYPE ANLH
,
ld_e_anla  
 
 TYPE ANLA
,
ld_e_anlv  
 
 TYPE ANLV
,
ld_e_anlu  
 
 TYPE ANLU
,
it_t_anlz  
 
 TYPE STANDARD TABLE OF ANLZ,"TABLES PARAM
wa_t_anlz
 
 LIKE LINE OF it_t_anlz
,
it_t_anlb  
 
 TYPE STANDARD TABLE OF ANLB,"TABLES PARAM
wa_t_anlb
 
 LIKE LINE OF it_t_anlb
,
it_t_anlbx  
 
 TYPE STANDARD TABLE OF ANLBX,"TABLES PARAM
wa_t_anlbx
 
 LIKE LINE OF it_t_anlbx
,
it_t_anlc  
 
 TYPE STANDARD TABLE OF ANLC,"TABLES PARAM
wa_t_anlc
 
 LIKE LINE OF it_t_anlc
,
it_t_new_assets  
 
 TYPE STANDARD TABLE OF RAIST06,"TABLES PARAM
wa_t_new_assets
 
 LIKE LINE OF it_t_new_assets
.

 

SELECT single KOART 
  FROM T020 
  INTO @DATA(ld_i_anford_bild).


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

SELECT single ANLKL 
  FROM ANKA 
  INTO @DATA(ld_i_anlkl).

 

SELECT single KOART 
  FROM T020 
  INTO @DATA(ld_i_anlkl_fix).

 

SELECT single ANLN1 
  FROM ANLA 
  INTO @DATA(ld_i_anln1).

 

SELECT single ANLN2 
  FROM ANLA 
  INTO @DATA(ld_i_anln2).

 

SELECT single BUKRS 
  FROM ANLA 
  INTO @DATA(ld_i_bukrs).

 

SELECT single KOART 
  FROM T020 
  INTO @DATA(ld_i_bukrs_fix).

 

SELECT single KOART 
  FROM T020 
  INTO @DATA(ld_i_gsber_fix).


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

SELECT single AKTYP 
  FROM T020 
  INTO @DATA(ld_i_dialog).


DATA(ld_i_dynnr) = 'some text here'.
 

SELECT single AKTYP 
  FROM T020 
  INTO @DATA(ld_i_invest_masn).

 

SELECT single KOART 
  FROM T020 
  INTO @DATA(ld_i_ohne_sichern).

 

SELECT single KOART 
  FROM T020 
  INTO @DATA(ld_i_old_data).



DATA(ld_i_ranl1) = some text here


DATA(ld_i_ranl2) = some text here


DATA(ld_i_rbukr) = some text here


DATA(ld_i_nassets) = Check type of data required

DATA(ld_i_repid) = 'some text here'.
 

SELECT single AKTYP 
  FROM T020 
  INTO @DATA(ld_i_trtyp).

 

SELECT single KOART 
  FROM T020 
  INTO @DATA(ld_i_untnr).



DATA(ld_i_xnach) = some text here
 

SELECT single KOART 
  FROM T020 
  INTO @DATA(ld_i_ohne_verbuchung).

 

SELECT single KOART 
  FROM T020 
  INTO @DATA(ld_i_complex).

 

SELECT single KOART 
  FROM T020 
  INTO @DATA(ld_i_pruef).

 

SELECT single KOART 
  FROM T020 
  INTO @DATA(ld_i_deakt).


DATA(ld_i_equi) = 'some text here'.
 

SELECT single AKTYP 
  FROM T020 
  INTO @DATA(ld_i_fund_invest).


DATA(ld_i_anla) = 'some text here'.

DATA(ld_i_anlax) = 'some text here'.

DATA(ld_i_anlz) = 'some text here'.

DATA(ld_i_anlzx) = 'some text here'.

DATA(ld_i_anlv) = 'some text here'.

DATA(ld_i_anlvx) = 'some text here'.

DATA(ld_i_anli2) = 'some text here'.

DATA(ld_i_anli2x) = 'some text here'.

DATA(ld_i_anlu) = 'some text here'.
 

SELECT single ANLHTXT 
  FROM ANLH 
  INTO @DATA(ld_i_anlhtxt).


DATA(ld_i_anlhtxtx) = 'some text here'.

DATA(ld_i_reorg_change) = 'some text here'.
 

"populate fields of struture and append to itab
append wa_t_anlz to it_t_anlz.
 

"populate fields of struture and append to itab
append wa_t_anlb to it_t_anlb.
 

"populate fields of struture and append to itab
append wa_t_anlbx to it_t_anlbx.
 

"populate fields of struture and append to itab
append wa_t_anlc to it_t_anlc.
 

"populate fields of struture and append to itab
append wa_t_new_assets to it_t_new_assets.
.

CALL FUNCTION 'ASSET_MASTERRECORD_MAINTENANCE'
* EXPORTING
*   i_anford_bild =              ld_i_anford_bild
*   i_anli =                     ld_i_anli
*   i_anlkl =                    ld_i_anlkl
*   i_anlkl_fix =                ld_i_anlkl_fix
*   i_anln1 =                    ld_i_anln1
*   i_anln2 =                    ld_i_anln2
*   i_bukrs =                    ld_i_bukrs
*   i_bukrs_fix =                ld_i_bukrs_fix
*   i_gsber_fix =                ld_i_gsber_fix
*   i_daten =                    ld_i_daten
*   i_dialog =                   ld_i_dialog
*   i_dynnr =                    ld_i_dynnr
*   i_invest_masn =              ld_i_invest_masn
*   i_ohne_sichern =             ld_i_ohne_sichern
*   i_old_data =                 ld_i_old_data
*   i_ranl1 =                    ld_i_ranl1
*   i_ranl2 =                    ld_i_ranl2
*   i_rbukr =                    ld_i_rbukr
*   i_nassets =                  ld_i_nassets
*   i_repid =                    ld_i_repid
*   i_trtyp =                    ld_i_trtyp
*   i_untnr =                    ld_i_untnr
*   i_xnach =                    ld_i_xnach
*   i_ohne_verbuchung =          ld_i_ohne_verbuchung
*   i_complex =                  ld_i_complex
*   i_pruef =                    ld_i_pruef
*   i_deakt =                    ld_i_deakt
*   i_equi =                     ld_i_equi
*   i_fund_invest =              ld_i_fund_invest
*   i_anla =                     ld_i_anla
*   i_anlax =                    ld_i_anlax
*   i_anlz =                     ld_i_anlz
*   i_anlzx =                    ld_i_anlzx
*   i_anlv =                     ld_i_anlv
*   i_anlvx =                    ld_i_anlvx
*   i_anli2 =                    ld_i_anli2
*   i_anli2x =                   ld_i_anli2x
*   i_anlu =                     ld_i_anlu
*   i_anlhtxt =                  ld_i_anlhtxt
*   i_anlhtxtx =                 ld_i_anlhtxtx
*   i_reorg_change =             ld_i_reorg_change
  IMPORTING
    e_anln1 =                    ld_e_anln1
    e_anln2 =                    ld_e_anln2
    e_parm_flag =                ld_e_parm_flag
    e_bukrs =                    ld_e_bukrs
    e_error =                    ld_e_error
    e_anlh =                     ld_e_anlh
    e_anla =                     ld_e_anla
    e_anlv =                     ld_e_anlv
    e_anlu =                     ld_e_anlu
* TABLES
*   t_anlz =                     it_t_anlz
*   t_anlb =                     it_t_anlb
*   t_anlbx =                    it_t_anlbx
*   t_anlc =                     it_t_anlc
*   t_new_assets =               it_t_new_assets
  EXCEPTIONS
    NO_ANLKL =                   1
    TRTYP_INVALID =              2
    ASSET_INCOMPLETE =           3
    .  "  ASSET_MASTERRECORD_MAINTENANCE

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