MCBOMF30 SAP ABAP INCLUDE - B
MCBOMF30 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 MCBOMF30 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 MCBOMF30. "Basic submit
SUBMIT MCBOMF30 AND RETURN. "Return to original report after report execution complete
SUBMIT MCBOMF30 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: B
INCLUDES used within this REPORT MCBOMF30
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:
GET_FIELDTAB CALL FUNCTION 'GET_FIELDTAB' EXPORTING LANGU = LANGU TABNAME = TABNA WITHTEXT = SPACE
TABLES FIELDTAB = FIELD_TAB
EXCEPTIONS INTERNAL_ERROR = 04 NO_TEXTS_FOUND = 08 TABLE_HAS_NO_FIELDS = 12 TABLE_NOT_ACTIV = 16.
CONVERT_FIELD_TO_EXTERN_FORMAT CALL FUNCTION 'CONVERT_FIELD_TO_EXTERN_FORMAT' EXPORTING IFELD =
CONVE = CONVEXIT
IMPORTING EFELD =.
CS_BI_CHG_CHANGE_BATCH_INPUT CALL FUNCTION 'CS_BI_CHG_CHANGE_BATCH_INPUT' EXPORTING BDC_FLAG = SPACE CHANGE_NO_DATA = RC29A GROUP_DATA = BGR00 TCODE_MODE = TCODE_MODE TCODE_UPDATE = TCODE_UPDATE
IMPORTING MSGID = T100-ARBGB MSGNO = T100-MSGNR MSGTY = SY-MSGTY MSGV1 = SY-MSGV1 MSGV2 = SY-MSGV2 MSGV3 = SY-MSGV3 MSGV4 = SY-MSGV4
TABLES CHANGE_NO_OBJECT_TYPES = CAD_AENV.
CS_BI_CHG_CREATE_BATCH_INPUT CALL FUNCTION 'CS_BI_CHG_CREATE_BATCH_INPUT' EXPORTING BDC_FLAG = SPACE CHANGE_NO_DATA = RC29A CHANGE_NO_DATAX = CCDOKUSTRU GROUP_DATA = BGR00 TCODE_MODE = TCODE_MODE TCODE_UPDATE = TCODE_UPDATE
IMPORTING MSGID = T100-ARBGB MSGNO = T100-MSGNR MSGTY = SY-MSGTY MSGV1 = SY-MSGV1 MSGV2 = SY-MSGV2 MSGV3 = SY-MSGV3 MSGV4 = SY-MSGV4
TABLES CHANGE_NO_OBJECT_TYPES = CAD_AENV.
CS_BI_ECR_CHANGE_BATCH_INPUT CALL FUNCTION 'CS_BI_ECR_CHANGE_BATCH_INPUT' EXPORTING BDC_FLAG = SPACE CHANGE_NO_DATA = RC29A GROUP_DATA = BGR00 TCODE_MODE = TCODE_MODE TCODE_UPDATE = TCODE_UPDATE
IMPORTING MSGID = T100-ARBGB MSGNO = T100-MSGNR MSGTY = SY-MSGTY MSGV1 = SY-MSGV1 MSGV2 = SY-MSGV2 MSGV3 = SY-MSGV3 MSGV4 = SY-MSGV4
TABLES CHANGE_NO_OBJECT_TYPES = CAD_AENV.
CS_BI_ECR_CREATE_BATCH_INPUT CALL FUNCTION 'CS_BI_ECR_CREATE_BATCH_INPUT' EXPORTING BDC_FLAG = SPACE CHANGE_NO_DATA = RC29A GROUP_DATA = BGR00 TCODE_MODE = TCODE_MODE TCODE_UPDATE = TCODE_UPDATE
IMPORTING MSGID = T100-ARBGB MSGNO = T100-MSGNR MSGTY = SY-MSGTY MSGV1 = SY-MSGV1 MSGV2 = SY-MSGV2 MSGV3 = SY-MSGV3 MSGV4 = SY-MSGV4
TABLES CHANGE_NO_OBJECT_TYPES = CAD_AENV.
DETERMINE_CONVERSION_ROUTINE CALL FUNCTION 'DETERMINE_CONVERSION_ROUTINE' EXPORTING TABLE = 'RMCLF' FIELD = 'AENNR'
IMPORTING CONVE = CONVE.
CONVERT_FIELD_TO_INTERN_FORMAT CALL FUNCTION 'CONVERT_FIELD_TO_INTERN_FORMAT' EXPORTING EFELD = RMCLF-AENNR DTYPE = 'CHAR' CONVE = CONVE
IMPORTING ERROR = ERROR_FLAG IFELD = RMCLF-AENNR MESSG = MESSAGE MSGLN = MESSAGE_LENGTH.
WRITE_MESSAGE CALL FUNCTION 'WRITE_MESSAGE' EXPORTING MSGTY = L_MSGTY MSGID = L_MSGID MSGNO = L_MSGNO MSGV1 = L_MSGV1 MSGV2 = L_MSGV2 MSGV3 = L_MSGV3 MSGV4 = L_MSGV4 MSGV5 = SPACE
IMPORTING ERROR = ERROR_FLAG MESSG = MESSAGE MSGLN = MESSAGE_LENGTH.
DEQUEUE_ALL CALL FUNCTION 'DEQUEUE_ALL'.
WRITE_MESSAGE CALL FUNCTION 'WRITE_MESSAGE' EXPORTING MSGTY = SY-MSGTY MSGID = SY-MSGID MSGNO = SY-MSGNO MSGV1 = SY-MSGV1 MSGV2 = SY-MSGV2 MSGV3 = SY-MSGV3 MSGV4 = SY-MSGV4 MSGV5 = SPACE
IMPORTING ERROR = ERROR_FLAG MESSG = MESSAGE MSGLN = MESSAGE_LENGTH.
CHECK_AND_CONVERT_NUMERICS CALL FUNCTION 'CHECK_AND_CONVERT_NUMERICS' EXPORTING DFELD =
DMZEI = DMZEI DTYPE = DYNPRO_FIELDS-DTYPE DYPNO = DYNPRO_FIELDS-DYPNO EFELD = FNAME = DYNPRO_FIELDS-DNAME PROGR = DYNPRO_FIELDS-PROGR
IMPORTING ERROR = ERROR_FLAG IFELD =MESSG = MESSAGE MSGLN = MESSAGE_LENGTH.
CS_BI_BOM_CREATE_BATCH_INPUT CALL FUNCTION 'CS_BI_BOM_CREATE_BATCH_INPUT' EXPORTING BDC_FLAG = SPACE GROUP_DATA = BGR00 TCODE_MODE = TCODE_MODE TCODE_UPDATE = 'A'
IMPORTING MSGID = T100-ARBGB MSGNO = T100-MSGNR MSGTY = MSGTY MSGV1 = MSGV1 MSGV2 = MSGV2 MSGV3 = MSGV3 MSGV4 = MSGV4
TABLES BOM_HEADER = BOM_HEADER BOM_ITEM = BOM_ITEMS BOM_SUB_ITEM = BOM_SUB_ITEMS.
WRITE_MESSAGE CALL FUNCTION 'WRITE_MESSAGE' EXPORTING MSGTY = MSGTY MSGID = MSGID MSGNO = MSGNO MSGV1 = MSGV1 MSGV2 = MSGV2 MSGV3 = MSGV3 MSGV4 = MSGV4 MSGV5 = SPACE
IMPORTING ERROR = ERROR_FLAG MESSG = MESSAGE MSGLN = MESSAGE_LENGTH.
CS_BI_BOM_CHANGE_BATCH_INPUT CALL FUNCTION 'CS_BI_BOM_CHANGE_BATCH_INPUT' EXPORTING BDC_FLAG = SPACE BOM_HEADER = BOM_HEADER_NEW GROUP_DATA = BGR00 TCODE_MODE = TCODE_MODE TCODE_UPDATE = 'A'
IMPORTING MSGID = T100-ARBGB MSGNO = T100-MSGNR MSGTY = MSGTY MSGV1 = MSGV1 MSGV2 = MSGV2 MSGV3 = MSGV3 MSGV4 = MSGV4
TABLES BOM_ITEM = BOM_ITEMS_NEW BOM_SUB_ITEM = BOM_SUB_ITEMS.
WRITE_MESSAGE CALL FUNCTION 'WRITE_MESSAGE' EXPORTING MSGTY = MSGTY MSGID = MSGID MSGNO = MSGNO MSGV1 = MSGV1 MSGV2 = MSGV2 MSGV3 = MSGV3 MSGV4 = MSGV4 MSGV5 = SPACE
IMPORTING ERROR = ERROR_FLAG MESSG = MESSAGE MSGLN = MESSAGE_LENGTH.
WRITE_MESSAGE CALL FUNCTION 'WRITE_MESSAGE' EXPORTING MSGTY = MSGTY MSGID = MSGID MSGNO = MSGNO MSGV1 = MSGV1 MSGV2 = MSGV2 MSGV3 = MSGV3 MSGV4 = MSGV4 MSGV5 = SPACE
IMPORTING ERROR = ERROR_FLAG MESSG = MESSAGE MSGLN = MESSAGE_LENGTH.
CS_CI_BOM_READ CALL FUNCTION 'CS_CI_BOM_READ' EXPORTING EMATNR = MAST-MATNR EWERKS = MAST-WERKS ESTLAL = MAST-STLAL ESTLAN = MAST-STLAN EAENNR = AENR-AENNR EDATUV = AENR-DATUV FLG_DISPLAY = DISPLAY_MODE FLG_SUBITEMS = INC_SUBITEMS
IMPORTING ABICSK = BOM_HEADER_OLD ASTZUB = STZUB
TABLES BOM_ITEMS = BOM_ITEMS_OLD BOM_SUBITEMS = BOM_SUB_ITEMS_OLD
EXCEPTIONS ALT_INVALID = 04 ALT_NOT_EXIST = 08 BOM_INVALID = 12 BOM_NOT_EXIST = 16 FOREIGN_LOCK = 20 NO_AUTH = 24 SYSTEM_FAILURE = 28.
CALL FUNCTION 'DETERMINE_CONVERSION_ROUTINE' EXPORTING TABLE = 'BICSK' FIELD = 'STLAL'
IMPORTING CONVE = CONVE.
CONVERT_FIELD_TO_EXTERN_FORMAT CALL FUNCTION 'CONVERT_FIELD_TO_EXTERN_FORMAT' EXPORTING IFELD = BICSK-STLAL CONVE = CONVE
IMPORTING EFELD = BICSK-STLAL.
DETERMINE_CONVERSION_ROUTINE CALL FUNCTION 'DETERMINE_CONVERSION_ROUTINE' EXPORTING TABLE = 'BICSK' FIELD = 'STLAL'
IMPORTING CONVE = CONVE.
CONVERT_FIELD_TO_EXTERN_FORMAT CALL FUNCTION 'CONVERT_FIELD_TO_EXTERN_FORMAT' EXPORTING IFELD = BICSK-STLAL CONVE = CONVE
IMPORTING EFELD = BICSK-STLAL.
DETERMINE_CONVERSION_ROUTINE CALL FUNCTION 'DETERMINE_CONVERSION_ROUTINE' EXPORTING TABLE = 'BICSK' FIELD = 'MATNR'
IMPORTING CONVE = CONVE.
CONVERT_FIELD_TO_EXTERN_FORMAT CALL FUNCTION 'CONVERT_FIELD_TO_EXTERN_FORMAT' EXPORTING IFELD = BICSK-MATNR CONVE = CONVE
IMPORTING EFELD = BICSK-MATNR.
DETERMINE_CONVERSION_ROUTINE CALL FUNCTION 'DETERMINE_CONVERSION_ROUTINE' EXPORTING TABLE = 'BICSK' FIELD = 'WERKS'
IMPORTING CONVE = CONVE.
CONVERT_FIELD_TO_EXTERN_FORMAT CALL FUNCTION 'CONVERT_FIELD_TO_EXTERN_FORMAT' EXPORTING IFELD = BICSK-WERKS CONVE = CONVE
IMPORTING EFELD = BICSK-WERKS.
DETERMINE_CONVERSION_ROUTINE CALL FUNCTION 'DETERMINE_CONVERSION_ROUTINE' EXPORTING TABLE = 'BICSK' FIELD = 'MATNR'
IMPORTING CONVE = CONVE.
CONVERT_FIELD_TO_EXTERN_FORMAT CALL FUNCTION 'CONVERT_FIELD_TO_EXTERN_FORMAT' EXPORTING IFELD = BICSK-MATNR CONVE = CONVE
IMPORTING EFELD = BICSK-MATNR.
DETERMINE_CONVERSION_ROUTINE CALL FUNCTION 'DETERMINE_CONVERSION_ROUTINE' EXPORTING TABLE = 'BICSK' FIELD = 'WERKS'
IMPORTING CONVE = CONVE.
CONVERT_FIELD_TO_EXTERN_FORMAT CALL FUNCTION 'CONVERT_FIELD_TO_EXTERN_FORMAT' EXPORTING IFELD = BICSK-WERKS CONVE = CONVE
IMPORTING EFELD = BICSK-WERKS.
DETERMINE_CONVERSION_ROUTINE CALL FUNCTION 'DETERMINE_CONVERSION_ROUTINE' EXPORTING TABLE = 'BICSK' FIELD = 'STLAN'
IMPORTING CONVE = CONVE.
CONVERT_FIELD_TO_EXTERN_FORMAT CALL FUNCTION 'CONVERT_FIELD_TO_EXTERN_FORMAT' EXPORTING IFELD = BICSK-STLAN CONVE = CONVE
IMPORTING EFELD = BICSK-STLAN.
WRITE_MESSAGE CALL FUNCTION 'WRITE_MESSAGE' EXPORTING MSGTY = MSGTY MSGID = MSGID MSGNO = MSGNO MSGV1 = MSGV1 MSGV2 = MSGV2 MSGV3 = MSGV3 MSGV4 = MSGV4 MSGV5 = SPACE
IMPORTING ERROR = ERROR_FLAG MESSG = MESSAGE MSGLN = MESSAGE_LENGTH.
CS_CI_AENNR_CHECK CALL FUNCTION 'CS_CI_AENNR_CHECK' EXPORTING EAENNR = AENR-AENNR EMATNR = MAST-MATNR ESTLAN = MAST-STLAN EWERKS = MAST-WERKS
IMPORTING ADATUV = DATUV
EXCEPTIONS CALL_INVALID = 04 CANNOT_GENERATE_OBJECT = 08 ECN_NOT_EXIST = 12 INTERFACE_INCOMPLETE = 16 KEY_INCOMPLETE = 20 KEY_INVALID = 24 NO_CHANGES_FOUND = 28 NO_RECORD_FOUND = 32 OBJECT_LOCKED = 36 TCC01_ERROR = 40 TYPE_NO_CHANGES = 44.
DETERMINE_CONVERSION_ROUTINE CALL FUNCTION 'DETERMINE_CONVERSION_ROUTINE' EXPORTING TABLE = 'AENR' FIELD = 'AENNR'
IMPORTING CONVE = CONVE.
CONVERT_FIELD_TO_EXTERN_FORMAT CALL FUNCTION 'CONVERT_FIELD_TO_EXTERN_FORMAT' EXPORTING IFELD = BICSK-AENNR CONVE = CONVE
IMPORTING EFELD = BICSK-AENNR.
DETERMINE_CONVERSION_ROUTINE CALL FUNCTION 'DETERMINE_CONVERSION_ROUTINE' EXPORTING TABLE = 'AENR' FIELD = 'AENNR'
IMPORTING CONVE = CONVE.
CONVERT_FIELD_TO_EXTERN_FORMAT CALL FUNCTION 'CONVERT_FIELD_TO_EXTERN_FORMAT' EXPORTING IFELD = BICSK-AENNR CONVE = CONVE
IMPORTING EFELD = BICSK-AENNR.
DETERMINE_CONVERSION_ROUTINE CALL FUNCTION 'DETERMINE_CONVERSION_ROUTINE' EXPORTING TABLE = 'AENR' FIELD = 'AENNR'
IMPORTING CONVE = CONVE.
CONVERT_FIELD_TO_EXTERN_FORMAT CALL FUNCTION 'CONVERT_FIELD_TO_EXTERN_FORMAT' EXPORTING IFELD = BICSK-AENNR CONVE = CONVE
IMPORTING EFELD = BICSK-AENNR.
DETERMINE_CONVERSION_ROUTINE CALL FUNCTION 'DETERMINE_CONVERSION_ROUTINE' EXPORTING TABLE = 'AENR' FIELD = 'AENNR'
IMPORTING CONVE = CONVE.
CONVERT_FIELD_TO_EXTERN_FORMAT CALL FUNCTION 'CONVERT_FIELD_TO_EXTERN_FORMAT' EXPORTING IFELD = BICSK-AENNR CONVE = CONVE
IMPORTING EFELD = BICSK-AENNR.
WRITE_MESSAGE CALL FUNCTION 'WRITE_MESSAGE' EXPORTING MSGTY = MSGTY MSGID = MSGID MSGNO = MSGNO MSGV1 = MSGV1 MSGV2 = MSGV2 MSGV3 = MSGV3 MSGV4 = MSGV4 MSGV5 = SPACE
IMPORTING ERROR = ERROR_FLAG MESSG = MESSAGE MSGLN = MESSAGE_LENGTH.
CS_CI_AENNR_READ CALL FUNCTION 'CS_CI_AENNR_READ' EXPORTING EAENNR = RC29A-AENNR
IMPORTING AAENR = AENR
TABLES WA = AENVC_TAB
EXCEPTIONS NO_AUTHORIZATION = 04 NO_RECORD_FOUND = 08.
DETERMINE_CONVERSION_ROUTINE CALL FUNCTION 'DETERMINE_CONVERSION_ROUTINE' EXPORTING TABLE = 'AENR' FIELD = 'AENNR'
IMPORTING CONVE = CONVE.
CONVERT_FIELD_TO_EXTERN_FORMAT CALL FUNCTION 'CONVERT_FIELD_TO_EXTERN_FORMAT' EXPORTING IFELD = RC29A-AENNR CONVE = CONVE
IMPORTING EFELD = RC29A-AENNR.
WRITE_MESSAGE CALL FUNCTION 'WRITE_MESSAGE' EXPORTING MSGTY = MSGTY MSGID = MSGID MSGNO = MSGNO MSGV1 = MSGV1 MSGV2 = MSGV2 MSGV3 = MSGV3 MSGV4 = MSGV4 MSGV5 = SPACE
IMPORTING ERROR = ERROR_FLAG MESSG = MESSAGE MSGLN = MESSAGE_LENGTH.
REVISION_LEVEL_SELECT CALL FUNCTION 'REVISION_LEVEL_SELECT' EXPORTING AEOBJ = TCC01-AEOBJ MATNR = BICSK-MATNR REVLV = BICSK-REVLV
IMPORTING ADATUV = AUX_DATUV
EXCEPTIONS DATE_NOT_FOUND = 04 ECN_NOT_FOUND = 08 ECN_NO_REVISION = 12 INPUT_INCOMPLETE = 16 INPUT_INCONSISTENT = 20 REVISION_NOT_FOUND = 24 VERSION_NOT_FOUND = 28.
DETERMINE_CONVERSION_ROUTINE CALL FUNCTION 'DETERMINE_CONVERSION_ROUTINE' EXPORTING TABLE = 'MARA' FIELD = 'MATNR'
IMPORTING CONVE = CONVE.
CONVERT_FIELD_TO_EXTERN_FORMAT CALL FUNCTION 'CONVERT_FIELD_TO_EXTERN_FORMAT' EXPORTING IFELD = BICSK-MATNR CONVE = CONVE
IMPORTING EFELD = BICSK-MATNR.
WRITE_MESSAGE CALL FUNCTION 'WRITE_MESSAGE' EXPORTING MSGTY = MSGTY MSGID = MSGID MSGNO = MSGNO MSGV1 = MSGV1 MSGV2 = MSGV2 MSGV3 = MSGV3 MSGV4 = MSGV4 MSGV5 = SPACE
IMPORTING ERROR = ERROR_FLAG MESSG = MESSAGE MSGLN = MESSAGE_LENGTH.
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 MCBOMF30 or its description.