SAP Reports / Programs | Controlling | Product Cost Controlling | Product Cost Planning(CO-PC-PCP) SAP CO
MC64HF0S SAP ABAP INCLUDE - Routines for Blocking
MC64HF0S 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 MC64HF0S 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 MC64HF0S. "Basic submit
SUBMIT MC64HF0S AND RETURN. "Return to original report after report execution complete
SUBMIT MC64HF0S VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: Routines for Blocking
INCLUDES used within this REPORT MC64HF0S
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:
DEQUEUE_ECKEKOE * CALL FUNCTION 'DEQUEUE_ECKEKOE' "k11k124029 * EXPORTING " ...
CK_F_ORG_ELEMENTS_PLANT * CALL FUNCTION 'CK_F_ORG_ELEMENTS_PLANT' "k11k124029 * EXPORTING " ...
DEQUEUE_ECKEKOB * CALL FUNCTION 'DEQUEUE_ECKEKOB' "k11k124029 * EXPORTING " ...
CM_F_INFO call function 'CM_F_INFO' exporting all = ' ' object = f_objck importing msg_counter_pro = h_msg_counter_pro msg_counter_scr = h_msg_counter_scr a_msg_counter_pro = h_a_msg_counter_pro a_msg_counter_scr = h_a_msg_counter_scr e_msg_counter_pro = h_e_msg_counter_pro e_msg_counter_scr = h_e_msg_counter_scr msgty_pro = maxmsgtyp.
CK37_COSTING_LOG_SET_OBJECT call function 'CK37_COSTING_LOG_SET_OBJECT' exporting dispo = t_kvmk-dispo ekgrp = t_kvmk-ekgrp fevor = t_kvmk-vagrp * KOKRS = * KOSTL = labor = t_kvmk-labor * PLANR = werks = t_kvmk-werks matnr = t_kvmk-matnr kalnr_bal = t_kvmk-kalnr_ba procurement_alt = t_kvmk-baltkz type = t_kvmk-type i_kalnr = t_kvmk-kalnr "HW 1385463 i_cuobjid = t_kvmk-cuobjid "HW 1385463 importing object = f_objck.
CM_F_INFO call function 'CM_F_INFO' exporting all = ' ' importing max_severity_pro = k_max_severity_pro max_severity_scr = k_max_severity_scr.
CK_F_KEKOKEY_GET call function 'CK_F_KEKOKEY_GET' exporting klvar = t_tck03-klvar importing kekokey = f_keko_key.
ENQUEUE_ECKEKOW CALL FUNCTION 'ENQUEUE_ECKEKOW' exporting mandt = sy-mandt bzobj = f_keko_key-bzobj kalnr = f_keko_key-kalnr kalka = f_keko_key-kalka kadky = f_keko_key-kadky tvers = f_keko_key-tvers bwvar = f_keko_key-bwvar kkzma = f_keko_key-kkzma werks = t_kvmk-werks x_kkzma = 'X' _scope = '3' exceptions foreign_lock = 01 "Satz gesperrt system_failure = 02."Sytemfehler
CK_F_ORG_ELEMENTS_PLANT call function 'CK_F_ORG_ELEMENTS_PLANT' exporting werk = t_kvmk-werks importing organisationselemente = f_org_einheit.
ENQUEUE_ECKEKOB call function 'ENQUEUE_ECKEKOB' exporting mandt = sy-mandt bzobj = f_keko_key-bzobj kalnr = f_keko_key-kalnr kalka = f_keko_key-kalka kadky = f_keko_key-kadky tvers = f_keko_key-tvers bwvar = f_keko_key-bwvar kkzma = f_keko_key-kkzma bukrs = f_org_einheit-bukrs x_kkzma = 'X' _scope = '3' exceptions foreign_lock = 01 "Satz gesperrt system_failure = 02."Sytemfehler
POPUP_TO_CONFIRM CALL FUNCTION 'POPUP_TO_CONFIRM' EXPORTING titlebar = text-000 text_question = l_text * text_button_1 = 'Ja'(001) * text_button_2 = 'Nein'(002) importing answer = k_answer exceptions text_not_found = 1 OTHERS = 2. "...CHG note687676 - end
CM_F_MESSAGE call function 'CM_F_MESSAGE' exporting arbgb = y_ck msgnr = '167' msgty = 'W' msgv1 = t_kvmk-matnr msgv2 = t_kvmk-werks object_dependent = y_x.
CM_F_MESSAGE call function 'CM_F_MESSAGE' exporting arbgb = y_ck dispo = t_kvmk-dispo ekgrp = t_kvmk-ekgrp labor = t_kvmk-labor msgnr = '166' msgty = 'A' msgv1 = t_kvmk-matnr msgv2 = t_kvmk-werks.
CM_F_MESSAGE call function 'CM_F_MESSAGE' exporting arbgb = y_ck dispo = t_kvmk-dispo ekgrp = t_kvmk-ekgrp labor = t_kvmk-labor msgnr = '166' msgty = 'E' msgv1 = t_kvmk-matnr msgv2 = t_kvmk-werks.
CK_F_TCK03_HIERARCHY_READING CALL FUNCTION 'CK_F_TCK03_HIERARCHY_READING' EXPORTING P_KLVAR = T_TCK03-KLVAR IMPORTING F_TCK01 = F_TCK01.
CK_F_TCK03_HIERARCHY_READING call function 'CK_F_TCK03_HIERARCHY_READING' exporting p_klvar = t_tck03-klvar importing f_tck01 = tck01.
T001_READ call function 'T001_READ' exporting bukrs = kala-bukrs importing struct = t001.
CK_F_TCK28_READING call function 'CK_F_TCK28_READING' exporting kokrs = kala-kokrs kalka = t_tck03-kalka bwvar = t_tck03-bwvar importing ck28 = f_tck28 exceptions not_found = 1 others = 2.
call function 'RK_BUKRS_OF_KOKRS' exporting kokrs = kala-kokrs tables t_bukrs = t_bukrs.
CO_TA_TKA01_READ call function 'CO_TA_TKA01_READ' exporting kokrs_imp = kala-kokrs importing struct = tka01.
RK_BUKRS_OF_KOKRS call function 'RK_BUKRS_OF_KOKRS' exporting kokrs = kala-kokrs tables t_bukrs = t_bukrs.
CK_F_CHECK_CROSS_KOKRS_COSTING CALL FUNCTION 'CK_F_CHECK_CROSS_KOKRS_COSTING' "MBKOKRS IMPORTING "MBKOKRS PERIV = H_PERIV. "MBKOKRS
CK_F_ORG_ELEMENTS_ALL CALL FUNCTION 'CK_F_ORG_ELEMENTS_ALL' "MBKOKRS IMPORTING "MBKOKRS T_BUKRS_ALL = T_BUKRS_ALL[]. "MBKOKRS
T001_READ call function 'T001_READ' exporting bukrs = kala-bukrs importing struct = t001.
CO_TA_TKA01_READ call function 'CO_TA_TKA01_READ' exporting kokrs_imp = kala-kokrs importing struct = tka01.
RK_BUKRS_OF_KOKRS call function 'RK_BUKRS_OF_KOKRS' exporting kokrs = kala-kokrs tables t_bukrs = t_bukrs.
CK_F_KADKY_DETERMINE call function 'CK_F_KADKY_DETERMINE' exporting kadat = kala-kadat kkzma = ' ' klvar = t_tck03-klvar periv = h_periv "E40WDX importing kadky = k_kadky.
ENQUEUE_ECKEKOW CALL FUNCTION 'ENQUEUE_ECKEKOW' EXPORTING mandt = sy-mandt bzobj = '0' * KALNR = ' ' kalka = t_tck03-kalka kadky = k_kadky tvers = kala-tvers bwvar = t_tck03-bwvar kkzma = ' ' werks = lt_t001w-werks x_kkzma = 'X' _scope = '3' _wait = ' ' EXCEPTIONS foreign_lock = 01.
ENQUEUE_ECKEKOB call function 'ENQUEUE_ECKEKOB' exporting mandt = sy-mandt bzobj = '0' * KALNR = ' ' kalka = t_tck03-kalka kadky = k_kadky tvers = kala-tvers bwvar = t_tck03-bwvar kkzma = ' ' bukrs = t_bukrs-bukrs x_kkzma = 'X' _scope = '3' _wait = ' ' exceptions foreign_lock = 01.
CK_F_ORG_ELEMENTS_PLANT call function 'CK_F_ORG_ELEMENTS_PLANT' exporting werk = t_kvmk-werks importing organisationselemente = f_org_einheit.
T001_READ call function 'T001_READ' exporting bukrs = f_org_einheit-bukrs importing struct = t001.
CK_F_KADKY_DETERMINE call function 'CK_F_KADKY_DETERMINE' exporting kadat = t_kvmk-kadat kkzma = ' ' klvar = t_tck03-klvar periv = t001-periv importing kadky = k_kadky.
ENQUEUE_ECKEKOW CALL FUNCTION 'ENQUEUE_ECKEKOW' EXPORTING mandt = sy-mandt bzobj = '0' * kalnr = ' ' kalka = t_tck03-kalka kadky = k_kadky tvers = t_kvmk-tvers bwvar = t_tck03-bwvar kkzma = ' ' werks = lt_t001w-werks x_kkzma = 'X' _scope = '2' _wait = ' ' EXCEPTIONS foreign_lock = 01.
ENQUEUE_ECKEKOB call function 'ENQUEUE_ECKEKOB' exporting mandt = sy-mandt bzobj = '0' * kalnr = ' ' kalka = t_tck03-kalka kadky = k_kadky tvers = t_kvmk-tvers bwvar = t_tck03-bwvar kkzma = ' ' bukrs = f_org_einheit-bukrs x_kkzma = 'X' _scope = '2' _wait = ' ' exceptions foreign_lock = 01.
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 MC64HF0S or its description.