SAP Reports / Programs | Add-Ons for Billing | Aerospace & Defence Industry Solution | Add-Ons for Billing(IS-AD-BI) SAP IS

AD47ASUB SAP ABAP INCLUDE - Subroutine for statistical posting







AD47ASUB 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 AD47ASUB 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 AD47ASUB. "Basic submit
SUBMIT AD47ASUB AND RETURN. "Return to original report after report execution complete
SUBMIT AD47ASUB VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
    See more syntax options for the ABAP SUBMIT statement


Text pool values


Title: Subroutine for statistical posting


INCLUDES used within this REPORT AD47ASUB

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:

AD40_PARAMETERS_GET CALL FUNCTION 'AD40_PARAMETERS_GET' IMPORTING E_CUMUL = CUM_IND E_ADJVW = ADJ_IND E_DATE = ADJUSTMENT_DATE.

K_KOKRS_READ CALL FUNCTION 'K_KOKRS_READ' EXPORTING KOKRS = GD_COEP-KOKRS IMPORTING E_TKA01 = TKA01 EXCEPTIONS OTHERS = 4.

DATE_TO_PERIOD_CONVERT CALL FUNCTION 'DATE_TO_PERIOD_CONVERT' EXPORTING I_DATE = ADJUSTMENT_DATE I_PERIV = TKA01-LMONA IMPORTING E_BUPER = WS_FISCAL_PERIOD E_GJAHR = WS_FISCAL_YEAR EXCEPTIONS INPUT_FALSE = 1 T009_NOTFOUND = 2 T009B_NOTFOUND = 3 OTHERS = 4.

K_SUBKEY_INTERPRET CALL FUNCTION 'K_SUBKEY_INTERPRET' EXPORTING CO_HRKFT = GD_COEP-HRKFT IMPORTING MERKMALE = AD_COKEY_IS.

K_SUBKEY_GET CALL FUNCTION 'K_SUBKEY_GET' EXPORTING MERKMALE = AD_COKEY_IS IMPORTING CO_HRKFT = WS_HRKFT EXCEPTIONS ERROR_NUMKR = 1 INSERT_ERROR = 2 OTHERS = 3.

K_SUBKEY_INTERPRET CALL FUNCTION 'K_SUBKEY_INTERPRET' EXPORTING CO_HRKFT = AD_COEP-HRKFT IMPORTING MERKMALE = AD_COKEY_IS.

K_SUBKEY_GET CALL FUNCTION 'K_SUBKEY_GET' EXPORTING MERKMALE = AD_COKEY_IS IMPORTING CO_HRKFT = WS_HRKFT EXCEPTIONS ERROR_NUMKR = 1 INSERT_ERROR = 2 OTHERS = 3.

K_SUBKEY_INTERPRET CALL FUNCTION 'K_SUBKEY_INTERPRET' EXPORTING CO_HRKFT = GD_COEP-HRKFT IMPORTING MERKMALE = AD_COKEY_IS.

K_SUBKEY_GET CALL FUNCTION 'K_SUBKEY_GET' EXPORTING MERKMALE = AD_COKEY_IS IMPORTING CO_HRKFT = WS_HRKFT EXCEPTIONS ERROR_NUMKR = 1 INSERT_ERROR = 2 OTHERS = 3.

NUMBER_GET_NEXT CALL FUNCTION 'NUMBER_GET_NEXT' EXPORTING OBJECT = CON_NO_OBJECT SUBOBJECT = LD_SUBOBJECT NR_RANGE_NR = TKA04-INUMKR IMPORTING NUMBER = DNG_BELNR RETURNCODE = LD_FLAG EXCEPTIONS INTERVAL_NOT_FOUND = 01 NUMBER_RANGE_NOT_INTERN = 02 OBJECT_NOT_FOUND = 03 QUANTITY_IS_0 = 04.

K_DOCUMENT_UPDATE CALL FUNCTION 'K_DOCUMENT_UPDATE' IN UPDATE TASK TABLES T_COBK = AD_COBK T_COEJA = AD_COEJA.

K_COKA_WRITE_SELECTIVE CALL FUNCTION 'K_COKA_WRITE_SELECTIVE' EXPORTING I_UPDATE_TASK = LD_FLAG TABLES T_COEJA = AD_COEJA.

K_COBK_REVERSE CALL FUNCTION 'K_COBK_REVERSE' IN UPDATE TASK TABLES COBKS_TAB = AD_COBKS.

K_INDEX_FOR_DOWN_PAYMENT CALL FUNCTION 'K_INDEX_FOR_DOWN_PAYMENT' IN UPDATE TASK TABLES COANZ_TAB = AD_COANZ.

HF_COEJA_RPSCO CALL FUNCTION 'HF_COEJA_RPSCO' TABLES I_COBK = AD_COBK I_COEJA = AD_COEJA I_COIOB = AD_COIOB.

ENQUEUE_AD_COKP CALL FUNCTION 'ENQUEUE_AD_COKP' EXCEPTIONS FOREIGN_LOCK = 1 SYSTEM_FAILURE = 2 OTHERS = 3.

DEQUEUE_AD_COKP CALL FUNCTION 'DEQUEUE_AD_COKP' EXCEPTIONS OTHERS = 1.

K_DOCUMENT_UPDATE CALL FUNCTION 'K_DOCUMENT_UPDATE' IN UPDATE TASK TABLES T_COBK = AD_COBK T_COEP = AD_COEP.

K_COBK_REVERSE





CALL FUNCTION 'K_COBK_REVERSE' IN UPDATE TASK TABLES COBKS_TAB = AD_COBKS.

K_INDEX_FOR_DOWN_PAYMENT CALL FUNCTION 'K_INDEX_FOR_DOWN_PAYMENT' IN UPDATE TASK TABLES COANZ_TAB = AD_COANZ.

HF_COEP_RPSCO CALL FUNCTION 'HF_COEP_RPSCO' TABLES I_COBK = AD_COBK I_COEP = AD_COEP I_COIOB = AD_COIOB.



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 AD47ASUB or its description.