MCDOCF40 SAP ABAP INCLUDE - I
MCDOCF40 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 MCDOCF40 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 MCDOCF40. "Basic submit
SUBMIT MCDOCF40 AND RETURN. "Return to original report after report execution complete
SUBMIT MCDOCF40 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: I
INCLUDES used within this REPORT MCDOCF40
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:
CALCULATE_LENGTH_TO_TRANSFER CALL FUNCTION 'CALCULATE_LENGTH_TO_TRANSFER' EXPORTING cadsy = cadsys pcode = c_pcode ucode = c_ucode strln = nd_string_length IMPORTING error = error_flag messg = message msgln = message_length setnm = tcim-setnm.
DETERMINE_CONVERSION_ROUTINE CALL FUNCTION 'DETERMINE_CONVERSION_ROUTINE' EXPORTING table = 'DRAW' field = 'DOKNR' IMPORTING conve = conve.
CONVERT_FIELD_TO_EXTERN_FORMAT CALL FUNCTION 'CONVERT_FIELD_TO_EXTERN_FORMAT' EXPORTING ifeld = c_doknr conve = conve IMPORTING efeld = c_doknr.
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 = space msgv2 = space msgv3 = space msgv4 = space 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 = space msgv2 = space msgv3 = space msgv4 = space msgv5 = space IMPORTING error = error_flag messg = message msgln = message_length.
DETERMINE_CONVERSION_ROUTINE CALL FUNCTION 'DETERMINE_CONVERSION_ROUTINE' EXPORTING table = 'DRAW' field = 'DOKNR' IMPORTING conve = conve.
DOCNUMBER_CHECK_IN_EXIT CALL FUNCTION 'DOCNUMBER_CHECK_IN_EXIT' EXPORTING ex_dokar = c_dokar ex_doknr = c_doknr IMPORTING doknr = c_doknr.
CONVERT_FIELD_TO_INTERN_FORMAT CALL FUNCTION 'CONVERT_FIELD_TO_INTERN_FORMAT' EXPORTING efeld = c_doknr dtype = 'CHAR' conve = conve IMPORTING error = error_flag ifeld = c_doknr messg = message msgln = message_length.
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 = .
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 = .
WRITE_MESSAGE CALL FUNCTION 'WRITE_MESSAGE' EXPORTING msgty = msgty msgid = msgid msgno = msgno msgv1 = space msgv2 = space msgv3 = space msgv4 = space 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 = space msgv3 = space msgv4 = space 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 = space msgv3 = space msgv4 = space msgv5 = space IMPORTING error = error_flag messg = message msgln = message_length.
ENQUEUE_EMCVDOK CALL FUNCTION 'ENQUEUE_EMCVDOK' EXPORTING dokar = draw-dokar doknr = draw-doknr dokvr = draw-dokvr doktl = draw-doktl EXCEPTIONS foreign_lock = 04 system_failure = 08.
WRITE_MESSAGE CALL FUNCTION 'WRITE_MESSAGE' EXPORTING msgty = msgty msgid = msgid msgno = msgno msgv1 = msgv1 msgv2 = msgv2 msgv3 = space msgv4 = space msgv5 = space IMPORTING error = error_flag messg = message msgln = message_length.
CALL FUNCTION 'WRITE_MESSAGE' EXPORTING msgty = msgty msgid = msgid msgno = msgno msgv1 = space msgv2 = space msgv3 = space msgv4 = space 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 = 'TCIM' msgv2 = cadsys msgv3 = f_pcode msgv4 = f_ucode msgv5 = 'U' IMPORTING error = error_flag messg = message msgln = message_length.
WRITE_MESSAGE CALL FUNCTION 'WRITE_MESSAGE' EXPORTING msgty = msgty msgid = msgid msgno = msgno msgv1 = total_length msgv2 = space msgv3 = space msgv4 = space 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 = 'TCIU' msgv2 = tcim-setnm msgv3 = space msgv4 = space msgv5 = space IMPORTING error = error_flag messg = message msgln = message_length.
CONVERT_DATE_TO_INTERN_FORMAT CALL FUNCTION 'CONVERT_DATE_TO_INTERN_FORMAT' EXPORTING datum =
dtype = tcit_tab-dtype IMPORTING idate = error = error_flag messg = message msgln = message_length.
CONVERT_FIELD_TO_INTERN_FORMAT CALL FUNCTION 'CONVERT_FIELD_TO_INTERN_FORMAT' EXPORTING efeld =
dtype = tcit_tab-dtype conve = tcit_tab-conve IMPORTING error = error_flag ifeld = messg = message msgln = message_length.
KEY_ZU_OBJEKT CALL FUNCTION 'KEY_ZU_OBJEKT' EXPORTING objekt = f_dokob IMPORTING key1 = keyf-keyf01 key2 = keyf-keyf02 key3 = keyf-keyf03 key4 = keyf-keyf04 key5 = keyf-keyf05 key6 = keyf-keyf06 key7 = keyf-keyf07 key8 = keyf-keyf08 key9 = keyf-keyf09 key10 = keyf-keyf10 len1 = leng-leng01 len2 = leng-leng02 len3 = leng-leng03 len4 = leng-leng04 len5 = leng-leng05 len6 = leng-leng06 len7 = leng-leng07 len8 = leng-leng08 len9 = leng-leng09 len10 = leng-leng10 EXCEPTIONS no_objekt = 04.
WRITE_MESSAGE CALL FUNCTION 'WRITE_MESSAGE' EXPORTING msgty = msgty msgid = msgid msgno = msgno msgv1 = space msgv2 = space msgv3 = space msgv4 = space msgv5 = space IMPORTING error = error_flag messg = message msgln = message_length.
CONVERT_FIELD_TO_INTERN_FORMAT CALL FUNCTION 'CONVERT_FIELD_TO_INTERN_FORMAT' EXPORTING efeld =
dtype = field_tab-datatype conve = convxx IMPORTING error = error_flag ifeld = messg = message msgln = message_length.
FTP_UNREGISTER * call function 'FTP_UNREGISTER' * exporting rfc_destination = ftp_destination.
IMPORT_DYNPRO CALL FUNCTION 'IMPORT_DYNPRO' EXPORTING dylang = d020s-spra dyname = d020s-prog dynumb = d020s-dnum request = d020s-type IMPORTING header = d020s TABLES ftab = dynpro_fields EXCEPTIONS dylanguage_invalid = 04 dylanguage_not_inst = 08 dyname_invalid = 12 dynproload_not_found = 16 dynumb_invalid = 20 ftab_invalid = 24 header_invalid = 28 internal_error = 32 no_dynpro = 36 no_ftab_row = 40 no_memory = 44 request_invalid = 48.
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 = 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.
WRITE_MESSAGE CALL FUNCTION 'WRITE_MESSAGE' EXPORTING msgty = msgty msgid = msgid msgno = msgno msgv1 = space msgv2 = space msgv3 = space msgv4 = space msgv5 = space IMPORTING error = error_flag messg = message msgln = message_length.
CV00_DATA_INIT CALL FUNCTION 'CV00_DATA_INIT'.
LESEN_DOKUMENT CALL FUNCTION 'LESEN_DOKUMENT' EXPORTING activity = activity ddoknr = draw-doknr ddokar = draw-dokar ddoktl = draw-doktl ddokvr = draw-dokvr dlangu = langu dmandt = draw-mandt IMPORTING exdraw = draw exdrat = drat_row extdwst = tdwst_row ltexnam = ltxtname TABLES exdrad = drad_tab exdrap = drap_tab EXCEPTIONS not_found = 04 no_auth = 08.
WRITE_MESSAGE CALL FUNCTION 'WRITE_MESSAGE' EXPORTING msgty = msgty msgid = msgid msgno = msgno msgv1 = msgv1 msgv2 = msgv2 msgv3 = space msgv4 = space msgv5 = space IMPORTING error = error_flag messg = message msgln = message_length.
RFC_PING CALL FUNCTION 'RFC_PING' DESTINATION FTP_DESTINATION EXCEPTIONS COMMUNICATION_FAILURE = 1 EXCEPTIONS SYSTEM_FAILURE = 2.
RFC_PING CALL FUNCTION 'RFC_PING' DESTINATION 'SAPGUI' EXCEPTIONS COMMUNICATION_FAILURE = 1 EXCEPTIONS SYSTEM_FAILURE = 2.
KEY_ZU_OBJEKT CALL FUNCTION 'KEY_ZU_OBJEKT' EXPORTING objekt = doc_objects-dokob IMPORTING key1 = keyf-keyf01 key2 = keyf-keyf02 key3 = keyf-keyf03 key4 = keyf-keyf04 key5 = keyf-keyf05 key6 = keyf-keyf06 key7 = keyf-keyf07 key8 = keyf-keyf08 key9 = keyf-keyf09 key10 = keyf-keyf10 len1 = kfln-kfln01 len2 = kfln-kfln02 len3 = kfln-kfln03 len4 = kfln-kfln04 len5 = kfln-kfln05 len6 = kfln-kfln06 len7 = kfln-kfln07 len8 = kfln-kfln08 len9 = kfln-kfln09 len10 = kfln-kfln10 EXCEPTIONS no_objekt = 04.
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 MCDOCF40 or its description.