DPA01F01 SAP ABAP INCLUDE - Rollover: Evaluations

DPA01F01 is a standard ABAP INCLUDE available within your SAP system (depending on your version and release level). Below is the basic information available for this SAP report including which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC. Also check out the submitted Comments related to this SAP report or see any standard documentation available.

If you would like to execute this report or see the full code listing simply enter DPA01F01 into the relevant SAP transactions such as SE38 or SE80

ABAP code to call this SAP report using the submit statement

This report can be called from another progam/report simply by using the ABAP SUBMIT statement, see below for example ABAP code snipts of how to do this.

Text pool values

INCLUDES used within this REPORT DPA01F01

No INCLUDES are used within this REPORT code!

TABLES used within REPORT and the associated SELECT statement:

No SAP DATABASE tables are accessed within this REPORT code!

Function Modules used within report and the associated call statement:

FIMA_END_OF_MONTH_DETERMINE
  CALL FUNCTION 'FIMA_END_OF_MONTH_DETERMINE'
    EXPORTING
      i_date          = sdefsz-high
    IMPORTING
      e_days_of_month = sdefsz-high+6(2).

FOLDER_MAINTAIN
      CALL FUNCTION 'FOLDER_MAINTAIN'
           EXPORTING
                i_bukrs      = iprolsta1-bukrs     "note 1236798
                i_mode       = 'C'
                i_popup      = ' '
                i_ranl       = iprolsta1-rkey1     "note 1236798
                i_styp       = 'P'
      IMPORTING
        e_return     = ret_code
                e_vdpopo     = ivdpopo
           EXCEPTIONS
                error_param  = 01
                error_vdpoko = 02
                error_vdpopo = 03
                error_tdp1   = 04.

READ_LOAN_FLOWTYPES_PER_FUNC
      CALL FUNCTION 'READ_LOAN_FLOWTYPES_PER_FUNC'
        EXPORTING
          bukrs                  = sbukrs
          gsart                  = sgsart-low
          sloanfunc              = l_rng_loanfunc-low
        TABLES
          otzb0a                 = l_tab_tzb0a
        EXCEPTIONS
          tzpa_customizing_error = 1
          no_flowtypes_selected  = 2
          OTHERS                 = 3.

READ_LOAN_FLOWTYPES_PER_FUNC
    CALL FUNCTION 'READ_LOAN_FLOWTYPES_PER_FUNC'
      EXPORTING
        bukrs                  = sbukrs
        gsart                  = sgsart-low
        sloanfunc              = l_rng_loanfunc-low
      TABLES
        otzb0a                 = l_tab_tzb0a
      EXCEPTIONS
        tzpa_customizing_error = 1
        no_flowtypes_selected  = 2
        OTHERS                 = 3.

FVD_DB_VDARL_GET_SNG
  CALL FUNCTION 'FVD_DB_VDARL_GET_SNG'
    EXPORTING
      i_bukrs            = iprolsta1-bukrs
      i_sarchiv          = space
      i_ranl             = iprolsta1-rkey1
    IMPORTING
      e_str_vdarl        = vdarl
    EXCEPTIONS
      contract_not_found = 1
      OTHERS             = 2.

LOAN_AMOUNT_CALCULATE
  CALL FUNCTION 'LOAN_AMOUNT_CALCULATE'
    EXPORTING
      calculation_date       = search_date
      conversion_currency    = sswhr
      conversion_date        = search_date
      koko                   = tmp_vzzkoko
      vdarl                  = vdarl  "Kopfzeile noch aktuell
      x_convert_currency     = on
      x_load_conditions      = on
      x_load_i               = on
      x_load_p               = on
    IMPORTING
      rloam                  = tmp_rloam
    TABLES
      i_bepp                 = tmp_vdbepp
      i_kopo                 = tmp_vzzkopo
    EXCEPTIONS
      no_conversion_currency
      no_date_for_conversion.

PARTNERS_TO_CONTRACT_SELECT
        CALL FUNCTION 'PARTNERS_TO_CONTRACT_SELECT'
             EXPORTING
*               RANTYP            = '1'
                  company           = iprolsta1-bukrs
                  contract          = iprolsta1-rkey1
*               main_partner_only = 'X'
             IMPORTING
                  main_partner_name = iprolsta1-xdninfo
*          tables
*               partner_adrs      =
             EXCEPTIONS
                  no_partner_found  = 1
                  OTHERS            = 2.

MONTHS_BETWEEN_TWO_DATES
    CALL FUNCTION 'MONTHS_BETWEEN_TWO_DATES'
      EXPORTING
        i_datum_bis   = sdefsz-high
        i_datum_von   = sdefsz-low
        i_kz_incl_bis = ' '
      IMPORTING
        e_monate      = start_month.