MKKB4I10 SAP ABAP INCLUDE - PAI Module for SAPMKKB4

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

Text pool values

INCLUDES used within this REPORT MKKB4I10

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:

K_ASSEMBLY_READ
      CALL FUNCTION 'K_ASSEMBLY_READ'  " Bauteil lesen
           EXPORTING
                FBL_EXTNR = KKBU-EXTNR
                FBL_KOKRS = KKBU-KOKRS
                FBL_SPRAS = SY-LANGU
           EXCEPTIONS
                FBL_NOT_FOUND = 01.

RM_KOKRS_TO_PLANT_FIND
      CALL FUNCTION 'RM_KOKRS_TO_PLANT_FIND'
           EXPORTING
                WERKS           = VBAP-WERKS
           IMPORTING
                E_KOKRS         = INT-KOKRS
           EXCEPTIONS
                BUKRS_NOT_FOUND = 01
                KOKRS_NOT_FOUND = 02.

MATERIAL_READ_MAKA
      CALL FUNCTION 'MATERIAL_READ_MAKA'      " Material lesen
           EXPORTING
                SCHLUESSEL = MTCOM
           IMPORTING
                MATDATEN = MACK4
           TABLES
                SEQMAT01 = TDUMMY
           EXCEPTIONS
                MATERIAL_NOT_FOUND = 02
                OTHERS = 01.

CK_F_TCK03_HIERARCHY_READING
      CALL FUNCTION 'CK_F_TCK03_HIERARCHY_READING'
           EXPORTING
                P_KLVAR = KKBU-KLVAR
           IMPORTING
                F_TCK01 = TCK01
           EXCEPTIONS
                OTHERS  = 0.

RM_KOKRS_TO_PLANT_FIND
      CALL FUNCTION 'RM_KOKRS_TO_PLANT_FIND'  " Kokrs ermitteln
           EXPORTING
                WERKS = KKBU-WERKS
           IMPORTING
                E_KOKRS = KKBU-KOKRS
           EXCEPTIONS
                BUKRS_NOT_FOUND = 01
                KOKRS_NOT_FOUND = 02.

K_ORDER_READ
      CALL FUNCTION 'K_ORDER_READ'     " Auftrag lesen
           EXPORTING
                AUFNR = KKBU-AUFNR
           IMPORTING
                KOKRS = INT-KOKRS
           EXCEPTIONS
                NOT_FOUND = 01.

K_ORDER_READ
        CALL FUNCTION 'K_ORDER_READ'   " Auftrag lesen
             EXPORTING
                  AUFNR = KKBU-AUFNR
             IMPORTING
                  KOKRS = INT-KOKRS
             EXCEPTIONS
                  NOT_FOUND = 01.

CJDW_PRPS_SELECT_SINGLE
        CALL FUNCTION 'CJDW_PRPS_SELECT_SINGLE' " Projekt lesen
             EXPORTING
                  POSID = KKBU-PRONR
             IMPORTING
                  E_PRPS = PRPS
             EXCEPTIONS
                  NOT_FOUND = 02.

CJDW_PRPS_SELECT_SINGLE
      CALL FUNCTION 'CJDW_PRPS_SELECT_SINGLE' " Projekt lesen
           EXPORTING
                POSID = KKBU-PRONR
           IMPORTING
                E_PRPS = PRPS
           EXCEPTIONS
                NOT_FOUND = 02.

K_CKPH_GET_SINGLE
      CALL FUNCTION 'K_CKPH_GET_SINGLE'
           EXPORTING
                KSTRG  = KKBU-KSTRG
                SPRAS  = SY-LANGU
           IMPORTING
                CKPH_I = CKPH
           EXCEPTIONS
                OTHERS = 1.

K_READ_COSTELEMENT_A
  CALL FUNCTION 'K_READ_COSTELEMENT_A'
       EXPORTING
            KSTAR           = KKBU-PKOST
            KTOPL           = TKA01-KTOPL
            LANGU           = SY-LANGU
       EXCEPTIONS
            KSTAR_NOT_FOUND = 01.

T001W_READ
  CALL FUNCTION 'T001W_READ'           " Werk lesen
       EXPORTING
            WERKS = KKBU-WERKS
       EXCEPTIONS
            NO_ENTRY = 01.

CK_F_TCK03_HIERARCHY_READING
  CALL FUNCTION 'CK_F_TCK03_HIERARCHY_READING'
       EXPORTING
            P_KLVAR = KKBU-KLVAR
       IMPORTING
            F_TCK03 = F_TCK03
       EXCEPTIONS
            OTHERS  = 0.

CK_F_ACTIV_VERSION_FIND
  CALL FUNCTION 'CK_F_ACTIV_VERSION_FIND'
       EXPORTING
            AKTIVDATUM           = SY-DATUM
            MATERIALNUMMER       = KKB0-MATNR
            WERK                 = KKBU-WERKS
       IMPORTING
            KALKULATIONSDATUM    = KKBU-KADKY
            KALKULATIONSVARIANTE = KKBU-KLVAR
            KALKULATIONSVERSION  = KKBU-TVERS
       EXCEPTIONS
            OTHERS               = 01.

K_KKB_CURRENCY_TYPE_SWITCH
      CALL FUNCTION 'K_KKB_CURRENCY_TYPE_SWITCH'
           EXPORTING
                TO_KWAER = 'X'.

K_KKB_CURRENCY_TYPE_SWITCH
      CALL FUNCTION 'K_KKB_CURRENCY_TYPE_SWITCH'
           EXPORTING
                TO_OWAER = 'X'.

K_KKB_POPUP_TO_SELECT_CURRENCY
      CALL FUNCTION 'K_KKB_POPUP_TO_SELECT_CURRENCY'
           IMPORTING
                E_KWAER = FLG_KWAER.

K_KKB_JOB_CHECK
      CALL FUNCTION 'K_KKB_JOB_CHECK'
           EXPORTING
                IANW     = ANW-EKA
                RGJNR    = INT-RGJNR
           IMPORTING
                JOB_DATA = TKKB1
           EXCEPTIONS
                OTHERS   = 1.

CK_F_SHOW_KLVAR_SELECTION_LIST














  CALL FUNCTION 'CK_F_SHOW_KLVAR_SELECTION_LIST'
       EXPORTING
            APL_PRODUCTCOSTING = 'X'
            APL_UNITCOSTING    = SPACE
       IMPORTING
            KLVAR              = KKBU-KLVAR.