RQECOM40 SAP ABAP Report - Creation of QM Orders
RQECOM40 is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for The program allows the mass maintenance of fields for the QM order and the individual QM order in the inspection setup of the material master...see full standard documentation available for this report. Also check out the submitted Comments related to this SAP report and the details below to see which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC.
If you would like to execute this report or see the full code listing simply enter RQECOM40 into the relevant SAP transactions such as SE38 or SE80
Transaction Code(s):
Below is a list of transaction codes which are relevant to this SAP report
QK04 - Create QM order
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 RQECOM40. "Basic submit
SUBMIT RQECOM40 AND RETURN. "Return to original report after report execution complete
SUBMIT RQECOM40 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Selection Text: ZSCHL_A = D .
Selection Text: WERK = D .
Selection Text: USER9 = D .
Selection Text: USER8 = D .
Selection Text: USER7 = D .
Selection Text: USER6 = D .
Selection Text: USER5 = D .
Selection Text: USER4 = D .
Selection Text: USER3 = D .
Selection Text: USER2 = D .
Selection Text: USER1 = D .
Selection Text: USER0 = D .
Selection Text: PRCTR_A = D .
Selection Text: KTEXT_A = D .
Selection Text: KOSTL_K = D .
Selection Text: KOKRS_K = D .
Selection Text: KALSM_A = D .
Selection Text: GSBER_A = D .
Selection Text: FUNCAREA = D .
Selection Text: AWSLS_A = D .
Selection Text: AUFNR_K = D .
Selection Text: AUART = D .
Selection Text: G_MD4_A = Standard settlement receiver
Selection Text: G_MD3_A = Spec. settlement rule
Selection Text: AUFEX = D .
Title: Creation of QM Orders
Text Symbol: P0C = Plnt &1
Text Symbol: P0B = the creation of an order
Text Symbol: P0A = An error has occurred during
Text Symbol: P02 = Detailed notif.
Text Symbol: P01 = Cont.
Text Symbol: P00 = Error during order creation
Text Symbol: F01 = My default
Text Symbol: 00E = Order type
Text Symbol: 00C = Additional data for the new QM order
Text Symbol: 00B = Specifications for account assignment of new QM order
Text Symbol: 00A = Organization
INCLUDES used within this REPORT RQECOM40
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:
AUTHORITY_CHECK_TCODE CALL FUNCTION 'AUTHORITY_CHECK_TCODE' EXPORTING TCODE = 'QK04' EXCEPTIONS OK = 0 NOT_OK = 1 OTHERS = 2.
RM_KOKRS_TO_PLANT_FIND CALL FUNCTION 'RM_KOKRS_TO_PLANT_FIND' EXPORTING WERKS = WERK IMPORTING E_KOKRS = G_KOKRS COMPCODE = G_FAREA_INFO-BUKRS EXCEPTIONS BUKRS_NOT_FOUND = 00 KOKRS_NOT_FOUND = 00.
RM_KOKRS_TO_PLANT_FIND CALL FUNCTION 'RM_KOKRS_TO_PLANT_FIND' EXPORTING WERKS = WERK IMPORTING E_KOKRS = G_KOKRS COMPCODE = G_FAREA_INFO-BUKRS EXCEPTIONS BUKRS_NOT_FOUND = 00 KOKRS_NOT_FOUND = 00.
K_CHECK_ZSCHL CALL FUNCTION 'K_CHECK_ZSCHL' EXPORTING I_ZSCHL = ZSCHL_A.
K_VALUE_REQUEST_ZSCHL CALL FUNCTION 'K_VALUE_REQUEST_ZSCHL' EXPORTING DISPLAY = ' ' FIELDNAME = 'ZSCHL' TABNAME = 'KOMG' IMPORTING SELECT_VALUE = ZSCHL_A.
CO_F4_AUART CALL FUNCTION 'CO_F4_AUART' EXPORTING AUTYP_IMP = '06' IMPORTING AUART_EXP = AUART.
MESSAGES_INITIALIZE CALL FUNCTION 'MESSAGES_INITIALIZE' EXPORTING COLLECT_AND_SEND = ' '.
KK_F_PKOSA_INSERT CALL FUNCTION 'KK_F_PKOSA_INSERT' EXPORTING COMMIT_IMP = SPACE QMKONT_IMP = L_KONT IMPORTING PKOSANR_EXP = L_AUFNR EXCEPTIONS INSERT_NOT_OK = 01 NO_SETTLEMENT_RULE = 02.
STATUS_BUFFER_REFRESH CALL FUNCTION 'STATUS_BUFFER_REFRESH'.
MESSAGES_STOP CALL FUNCTION 'MESSAGES_STOP' EXCEPTIONS A_MESSAGE = 01 E_MESSAGE = 02 I_MESSAGE = 00 W_MESSAGE = 03.
MESSAGES_SHOW CALL FUNCTION 'MESSAGES_SHOW' EXPORTING CORRECTIONS_OPTION = ' ' OBJECT = ' ' SEND_IF_ONE = ' ' SHOW_LINNO = 'X' EXCEPTIONS NO_MESSAGES = 01.
RM_KOKRS_TO_PLANT_FIND CALL FUNCTION 'RM_KOKRS_TO_PLANT_FIND' EXPORTING WERKS = P_WERK IMPORTING COMPCODE = L_BUKRS E_KOKRS = L_KOKRS EXCEPTIONS BUKRS_NOT_FOUND = 01 KOKRS_NOT_FOUND = 02.
READ_COSTCENTER CALL FUNCTION 'READ_COSTCENTER' EXPORTING DATAB = SY-DATUM DATBI = SY-DATUM KOKRS = P_KOKRS KOSTL = P_KOSTL IMPORTING SUBRC = L_SUBRC TABLES SEL_INT = L_TAB.
K_ORDER_READ CALL FUNCTION 'K_ORDER_READ' EXPORTING AUFNR = P_AUFNR IMPORTING AUTYP = L_AUTYP "nur Typ 01 zugelassen BUKRS = L_BUKRS_AUF STAKZ = L_STAKZ "statistischer Auftrag EXCEPTIONS NOT_FOUND = 01.
CO_RM_COMPANYCODE_FIND CALL FUNCTION 'CO_RM_COMPANYCODE_FIND' EXPORTING WERKS = P_WERK IMPORTING COMPCODE = L_BUKRS.
KK_F_PKOSA_GENERATE CALL FUNCTION 'KK_F_PKOSA_GENERATE' EXPORTING PKOSA_IMP = PKOSA RUECK_RELE = C_KREUZ EXCEPTIONS OTHERS = 1.
POPUP_TO_DECIDE CALL FUNCTION 'POPUP_TO_DECIDE' EXPORTING DEFAULTOPTION = '1' TEXTLINE1 = 'Es ist ein Fehler bei der Erzeugung '(P0A) TEXTLINE2 = 'eines Auftrages aufgetreten.'(P0B)
CO_RM_COMPANYCODE_FIND CALL FUNCTION 'CO_RM_COMPANYCODE_FIND' EXPORTING WERKS = P_WERK IMPORTING COMPCODE = L_BUKRS.
CALL FUNCTION 'TQSS1_READ' EXPORTING I_WERKS = P_WERK IMPORTING E_TQSS1 = P_TQSS1_AUF EXCEPTIONS NO_ENTRY = 1 OTHERS = 2.
K_ORDER_TYPE_GET CALL FUNCTION 'K_ORDER_TYPE_GET' EXPORTING PAR_AUART = P_AUART PAR_SPRAS = SY-LANGU IMPORTING PAR_AUTYP = L_AUTYP.
CO_RM_COMPANYCODE_FIND CALL FUNCTION 'CO_RM_COMPANYCODE_FIND' EXPORTING WERKS = P_PLANT IMPORTING COMPCODE = L_COMPANY_CODE.
K_DATE_TO_PERIOD_CONVERT CALL FUNCTION 'K_DATE_TO_PERIOD_CONVERT' EXPORTING I_DATE = SY-DATLO I_KOKRS = P_CONTROLLING_AREA IMPORTING E_GJAHR = TKA00-GJAHR EXCEPTIONS OTHERS = 1.
K_KOKRS_READ CALL FUNCTION 'K_KOKRS_READ' EXPORTING GJAHR = TKA00-GJAHR KOKRS = P_CONTROLLING_AREA IMPORTING E_TKA00 = TKA00 EXCEPTIONS OTHERS = 1.
READ_CUSTOMIZED_MESSAGE CALL FUNCTION 'READ_CUSTOMIZED_MESSAGE' EXPORTING I_ARBGB = 'KO' I_DTYPE = 'W' I_MSGNR = '438' IMPORTING E_MSGTY = L_MESSAGE_TYPE EXCEPTIONS OTHERS = 1.
KE_PROFIT_CENTER_CHECK CALL FUNCTION 'KE_PROFIT_CENTER_CHECK' EXPORTING BUKRS = L_COMPANY_CODE DATUM = SY-DATLO PRCTR = P_PROFIT_CENTER TEST_KOKRS = P_CONTROLLING_AREA READ_TEXT = SPACE.
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 RQECOM40 or its description.