SAP Reports / Programs

J_1AIDX1 SAP ABAP Report - Replacement Cost Valuation (Inflation Index Adjustment)







J_1AIDX1 is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for This report determines the adjusted price for the previous period by either using a predefined inflation index (provisional or definitive), if local currency is specified, or by adjusting the price based on a foreign currency according to the exchange rate difference between the beginning and the end of the considered period...see full standard documentation available for this report. Also check out the submitted Comments related to this SAP report and the details below to see which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC.

If you would like to execute this report or see the full code listing simply enter J_1AIDX1 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.






SUBMIT J_1AIDX1. "Basic submit
SUBMIT J_1AIDX1 AND RETURN. "Return to original report after report execution complete
SUBMIT J_1AIDX1 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
    See more syntax options for the ABAP SUBMIT statement


Text pool values


Selection Text: BUKRS = Company Code
Selection Text: BWKEY = Valuation Area
Selection Text: P_ZEBRA = Stripes
Selection Text: P_VARI = Variant
Selection Text: P_COLOPT = Optimize Columns
Selection Text: MATNR = Material
Selection Text: BWTAR = Valuation Type
Title: Replacement Cost Valuation (Inflation Index Adjustment)
Text Symbol: 103 = Control Data
Text Symbol: 217 = inflation index price revaluation
Text Symbol: 231 = Time Base Data
Text Symbol: 232 = Exposure Data
Text Symbol: 233 = Index Definition
Text Symbol: 102 = Selection Criteria
Text Symbol: 010 = Valuation Period
Text Symbol: 011 = Provisional Run
Text Symbol: 013 = Update Mode
Text Symbol: 014 = Create Log
Text Symbol: 020 = (YYYY/PP)
Text Symbol: 234 = Index Value
Text Symbol: 235 = Definitive Value
Text Symbol: 236 = (Undefined) Data
Text Symbol: 240 = Inflation Method


INCLUDES used within this REPORT J_1AIDX1

INCLUDE J_1AIDX_ALV_DATA_1.
INCLUDE J_1AIDX_ALV_SUBROUTINES.


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:

MARV_SINGLE_READ CALL FUNCTION 'MARV_SINGLE_READ' EXPORTING BUKRS = BUKRS-LOW IMPORTING WMARV = MARV EXCEPTIONS NOT_FOUND = 1 WRONG_CALL = 2 OTHERS = 3.

FAGL_CHECK_GLFLEX_ACTIVE CALL FUNCTION 'FAGL_CHECK_GLFLEX_ACTIVE' "boi 1382307 IMPORTING E_GLFLEX_ACTIVE = glflex_active EXCEPTIONS ERROR_IN_SETUP = 1 OTHERS = 2.

J_1BSA_COMPONENT_ACTIVE CALL FUNCTION 'J_1BSA_COMPONENT_ACTIVE' EXPORTING BUKRS = XT001-BUKRS COMPONENT = CHECK_COMP IMPORTING ACTIVE_COMPONENT = XT001-ACTIVE_COMP EXCEPTIONS COMPONENT_NOT_ACTIVE = 1 OTHERS = 2.

MARV_SINGLE_READ CALL FUNCTION 'MARV_SINGLE_READ' EXPORTING BUKRS = X001K-BUKRS IMPORTING WMARV = MARV EXCEPTIONS NOT_FOUND = 1 WRONG_CALL = 2 OTHERS = 3.

FIRST_DAY_IN_PERIOD_GET CALL FUNCTION 'FIRST_DAY_IN_PERIOD_GET' EXPORTING I_GJAHR = PYEAR I_PERIV = T001-PERIV I_POPER = PPERIOD IMPORTING E_DATE = XMBEW-LOWDATE.

LAST_DAY_IN_PERIOD_GET CALL FUNCTION 'LAST_DAY_IN_PERIOD_GET' EXPORTING I_GJAHR = PYEAR I_PERIV = T001-PERIV I_POPER = PPERIOD IMPORTING E_DATE = XMBEW-HIGHDATE.

BARC_CONVERT_DATE CALL FUNCTION 'BARC_CONVERT_DATE' EXPORTING DATE = DATUM IMPORTING STRING = PDATE.

BARC_CONVERT_DATE CALL FUNCTION 'BARC_CONVERT_DATE' EXPORTING DATE = DATUM IMPORTING STRING = EDATE.

BARC_CONVERT_DATE CALL FUNCTION 'BARC_CONVERT_DATE' EXPORTING DATE = DATUM IMPORTING STRING = PDATE.

BARC_CONVERT_DATE CALL FUNCTION 'BARC_CONVERT_DATE' EXPORTING DATE = DATUM IMPORTING STRING = PDATE.

BARC_CONVERT_DATE CALL FUNCTION 'BARC_CONVERT_DATE' EXPORTING DATE = DATUM IMPORTING STRING = PDATE.

BARC_CONVERT_DATE CALL FUNCTION 'BARC_CONVERT_DATE' EXPORTING DATE = DATUM IMPORTING STRING = PDATE.

LAST_DAY_IN_PERIOD_GET CALL FUNCTION 'LAST_DAY_IN_PERIOD_GET' EXPORTING I_GJAHR = CYEAR I_PERIV = T001-PERIV I_POPER = CPERIOD IMPORTING E_DATE = CODATE.

MBEW_EXTEND CALL FUNCTION 'MBEW_EXTEND' * EXPORTING * KZRFB = ' ' * MAXTZ = ' ' * XVPER = 'X' * XVVPR = 'X' * XVJAH = 'X' * XVVJA = 'X' * IMPORTING * RMBEWH = TABLES MBEW_TAB = TMBEW.

ENQUEUE_EJ_1AT10 CALL FUNCTION 'ENQUEUE_EJ_1AT10' EXPORTING MODE_J_1AINFT10 = 'E' MANDT = SY-MANDT J_1AAPPLKP = '02' EXCEPTIONS FOREIGN_LOCK = 1 SYSTEM_FAILURE = 2 OTHERS = 3.

J_1A_INFLATION_CALCULATION_FI CALL FUNCTION 'J_1A_INFLATION_CALCULATION_FI' EXPORTING AMOUNT = AMOUNT ORIGIN_DATE = OD FINAL_DATE = FD ORIGIN_TBEP = L_TBE FINAL_TBEP = XMBEW-TBE SPECIFIC_INDEX = XMBEW-INDXP SPECIFIC_VERSION = SVER PROV_SPECIFIC = PROVRUN TRACE = ' ' IMPORTING ADJ_AMOUNT = AMOUNT ADJUSTMENT = ADJUST USED_SPECIFIC_VERSION = VERSION EXCEPTIONS TIME_BASE_DATA_NOT_FOUND = 1 EXPOSURE_DATE_NOT_FOUND = 2 INDEX_DEFINITION_NOT_FOUND = 3 INDEX_VALUES_NOT_FOUND = 4 DEFINITIVE_VALUES_NOT_FOUND = 5.

J_1A_DET_POSTING_OK_FOR_DATE CALL FUNCTION 'J_1A_DET_POSTING_OK_FOR_DATE' EXPORTING TBEP = XMBEW-TBE CHECK_DATE = XMBEW-HIGHDATE IMPORTING VALID_DATE_FOR_POSTING = CLOSING_REVAL_PERIOD POSTING_ACTIVATED = POSTING_ACTIVATED EXCEPTIONS CANNOT_DET_TBE_PERIOD_END = 1.

J_1A_INFLATION_PRICE_UPDATE CALL FUNCTION 'J_1A_INFLATION_PRICE_UPDATE' EXPORTING I_MBEW = L_MBEW I_T001 = T001 TABLES J_1AIMMIPI = IPI T_MSGM2PROT = MSGM2TAB.

J_1A_SET_LOCK_DATE





CALL FUNCTION 'J_1A_SET_LOCK_DATE' EXPORTING APPLICATION_CALL = '02'.

DEQUEUE_EJ_1AT10 CALL FUNCTION 'DEQUEUE_EJ_1AT10' EXPORTING MODE_J_1AINFT10 = 'E' MANDT = SY-MANDT J_1AAPPLKP = '02'.

CONVERT_TO_FOREIGN_CURRENCY CALL FUNCTION 'CONVERT_TO_FOREIGN_CURRENCY' EXPORTING DATE = IDD LOCAL_AMOUNT = AMOUNT FOREIGN_CURRENCY = FC LOCAL_CURRENCY = LC RATE = 0 TYPE_OF_RATE = XR IMPORTING FOREIGN_AMOUNT = LA EXCEPTIONS NO_RATE_FOUND = 1 OVERFLOW = 2 NO_FACTORS_FOUND = 3 NO_SPREAD_FOUND = 4.

CONVERT_TO_LOCAL_CURRENCY CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY' EXPORTING DATE = IDD FOREIGN_AMOUNT = LA FOREIGN_CURRENCY = FC LOCAL_CURRENCY = LC RATE = 0 TYPE_OF_RATE = XR IMPORTING LOCAL_AMOUNT = AMOUNT EXCEPTIONS NO_RATE_FOUND = 1 OVERFLOW = 2 NO_FACTORS_FOUND = 3 NO_SPREAD_FOUND = 4.

MARV_SINGLE_READ CALL FUNCTION 'MARV_SINGLE_READ' EXPORTING BUKRS = X001-BUKRS IMPORTING WMARV = MARV EXCEPTIONS NOT_FOUND = 1 WRONG_CALL = 2 OTHERS = 3.

SET_FLAG_MBEW_SHIFT CALL FUNCTION 'SET_FLAG_MBEW_SHIFT' EXPORTING FLAG = 'X'.

MATERIAL_MAINTAIN_DARK CALL FUNCTION 'MATERIAL_MAINTAIN_DARK' EXPORTING P_KZ_NO_WARN = 'N' KZ_PRF = SPACE USER = SY-UNAME TABLES AMARA_UEB = MARA_UEB AMBEW_UEB = MBEW_UEB EXCEPTIONS KSTATUS_EMPTY = 1 TKSTATUS_EMPTY = 2 T130M_ERROR = 3 INTERNAL_ERROR = 4 TOO_MANY_ERRORS = 5 UPDATE_ERROR = 6 OTHERS = 7.

SET_FLAG_MBEW_SHIFT CALL FUNCTION 'SET_FLAG_MBEW_SHIFT' EXPORTING FLAG = SPACE.

J_1A_INF_INT_ALV CALL FUNCTION 'J_1A_INF_INT_ALV' EXPORTING I_DATE_LOW = U_DATE_LOW I_DATE_HIGH = U_DATE_HIGH I_UPDATE = U_UPDATE I_PROVRUN = U_PROVRUN I_PROCESSING_LINES = L_MBEW_LINES I_CALLBACK_PROGRAM = L_REP_NAME I_VARI = U_P_VARI I_ZEBRA = U_P_ZEBRA I_COLOPT = U_P_COLOPT I_TITLE = L_TITLE TABLES T_OUTTAB_HEADER = UT_HEADER T_OUTTAB_ITEM = UT_ITEM T_MSG = UT_MSG.

DATE_TO_PERIOD_CONVERT CALL FUNCTION 'DATE_TO_PERIOD_CONVERT' EXPORTING I_DATE = P_FD * I_MONMIT = 00 I_PERIV = 'K4' IMPORTING E_BUPER = P_BUPER.

MR_ACCOUNT_ASSIGNMENT CALL FUNCTION 'MR_ACCOUNT_ASSIGNMENT' EXPORTING BEWERTUNGSKLASSE = XMBEW-MBEW-BKLAS * BEWERTUNG_MODIF = x001k-bwmod KONTENPLAN = T001-KTOPL * KONTO_MODIF = ' ' SOLL_HABEN_KENNZEICHEN = M_SHKGZ VORGANGSSCHLUESSEL = 'WGB' * I_WRXMOD = IMPORTING * buchungsschluessel = yaccit-bschl KONTO = ACCOUNT EXCEPTIONS NOT_FOUND_T030 = 1 NOT_FOUND_T030B = 2 NOT_FOUND_T030R = 3 NOT_FOUND_T030S = 4.

DATE_COMPUTE_DAY * call function 'DATE_COMPUTE_DAY' * exporting * date = xmbew-highdate * importing * day = i.

FI_TAX_INDICATOR_DEFAULT CALL FUNCTION 'FI_TAX_INDICATOR_DEFAULT' EXPORTING I_BUKRS = XACCIT-BUKRS I_HKONT = YACCIT-HKONT IMPORTING E_MWSKZ = YACCIT-MWSKZ * e_txjcd = t_accit-txjcd EXCEPTIONS ERROR_MESSAGE = 1.

CM_F_COLLECT_MESSAGE CALL FUNCTION 'CM_F_COLLECT_MESSAGE'.

AC_DOCUMENT_GENERATE CALL FUNCTION 'AC_DOCUMENT_GENERATE' IMPORTING E_AWREF = AWREF E_AWORG = AWORG TABLES T_ACCHD = XACCHD T_ACCIT = XACCIT T_ACCCR = XACCCR EXCEPTIONS OTHERS = 1.

T005_A_READ CALL FUNCTION 'T005_A_READ' CHANGING F_T005 = S_T005.



Contribute (Add Comments)

Although this basic information may have limited use it does provide an easy to find location to store any knowledge about this program/report.

The contribute/comments section below therefore offer's an opportunity for anyone to add additional information. This can be anything from useful hints, tips and screen shots to relevant SAP notes or anything else you feel is relevant to this report.

This will then be available for everyone to easily find by simply searching on the report name J_1AIDX1 or its description.