AM_BARWERT_ERMITTELN SAP Function module - Determination of present value

AM_BARWERT_ERMITTELN is a standard SAP function module available within R/3 SAP systems depending on your version and release level. Below is the pattern details for this FM showing its interface including any import and export parameters, exceptions etc as well as any documentation contributions (Comments) specific to the object.

See here to view full function module documentation and code listing, simply by entering the name AM_BARWERT_ERMITTELN into the relevant SAP transaction such as SE37 or SE80.

Associated Function Group: ACAP
Released Date: Not Released
Processing type: Normal fucntion module

Pattern for FM AM_BARWERT_ERMITTELN - AM BARWERT ERMITTELN

CALL FUNCTION 'AM_BARWERT_ERMITTELN' "Determination of present value
  EXPORTING
    i_anzbp =                   " t009-anzbp
    i_leanz =                   " anla-leanz
    i_legeb =                   " anla-legeb
    i_lryth =                   " anla-lryth
    i_lvors =                   " anla-lvors
    i_lzins =                   " anla-lzins
  IMPORTING
    e_barwert =                 " ra02s-lbarw
  EXCEPTIONS
    BLART_NOT_FOUND = 1         "               Document Type Missing
    BSCHL_NOT_FOUND = 2         "               Posting key not available
    FEHLER_IN_LEASINGDATEN = 3  "               Leasing data incorrect
    KTOGR_NOT_FOUND = 4         "               Account group incomplete
    NICHT_BEBUCHBAR = 5         "               Asset cannot be posted
    T009B_NOT_FOUND = 6         "               Fiscal year variant incomplete
    T009_NOT_FOUND = 7          "               Fiscal year variant not available
    T083_NOT_FOUND = 8          "               Leasing type not available
    .  "  AM_BARWERT_ERMITTELN

ABAP code example for Function Module AM_BARWERT_ERMITTELN

The ABAP code below is a full code listing to execute function module AM_BARWERT_ERMITTELN including all data declarations. The code uses the latest in-line data DECLARATION SYNTAX but I have included an ABAP code snippet at the end to show how declarations would look using the original method of declaring data variables up front. This will allow you to compare and fully understand the new inline method. Please note some of the newer syntax such as the @DATA is not available until a later 4.70 service pack (SP8).

DATA:
ld_e_barwert  
 
 TYPE RA02S-LBARW
.

 

SELECT single ANZBP 
  FROM T009 
  INTO @DATA(ld_i_anzbp).

 

SELECT single LEANZ 
  FROM ANLA 
  INTO @DATA(ld_i_leanz).

 

SELECT single LEGEB 
  FROM ANLA 
  INTO @DATA(ld_i_legeb).

 

SELECT single LRYTH 
  FROM ANLA 
  INTO @DATA(ld_i_lryth).

 

SELECT single LVORS 
  FROM ANLA 
  INTO @DATA(ld_i_lvors).

 

SELECT single LZINS 
  FROM ANLA 
  INTO @DATA(ld_i_lzins).

.

CALL FUNCTION 'AM_BARWERT_ERMITTELN'
  EXPORTING
    i_anzbp =                    ld_i_anzbp
    i_leanz =                    ld_i_leanz
    i_legeb =                    ld_i_legeb
    i_lryth =                    ld_i_lryth
    i_lvors =                    ld_i_lvors
    i_lzins =                    ld_i_lzins
  IMPORTING
    e_barwert =                  ld_e_barwert
  EXCEPTIONS
    BLART_NOT_FOUND =            1
    BSCHL_NOT_FOUND =            2
    FEHLER_IN_LEASINGDATEN =     3
    KTOGR_NOT_FOUND =            4
    NICHT_BEBUCHBAR =            5
    T009B_NOT_FOUND =            6
    T009_NOT_FOUND =             7
    T083_NOT_FOUND =             8
    .  "  AM_BARWERT_ERMITTELN

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

ABAP code to compare 7.40 inline data declaration with original syntax

The below ABAP code uses the older none in-line data declarations. This allows you to see the coding differences/benefits of the later inline syntax. It may also be useful if you are using an older version of SAP as some of the newer syntax above, such as the @DATA is not available until 4.70 EHP 8.

DATA:

ld_e_barwert
 
 TYPE RA02S-LBARW ,
ld_i_anzbp
 
 TYPE T009-ANZBP ,
ld_i_leanz
 
 TYPE ANLA-LEANZ ,
ld_i_legeb
 
 TYPE ANLA-LEGEB ,
ld_i_lryth
 
 TYPE ANLA-LRYTH ,
ld_i_lvors
 
 TYPE ANLA-LVORS ,
ld_i_lzins
 
 TYPE ANLA-LZINS .



SELECT single ANZBP 
  FROM T009 
  INTO ld_i_anzbp.


SELECT single LEANZ 
  FROM ANLA 
  INTO ld_i_leanz.


SELECT single LEGEB 
  FROM ANLA 
  INTO ld_i_legeb.


SELECT single LRYTH 
  FROM ANLA 
  INTO ld_i_lryth.


SELECT single LVORS 
  FROM ANLA 
  INTO ld_i_lvors.


SELECT single LZINS 
  FROM ANLA 
  INTO ld_i_lzins.