SAP Reports / Programs | Plant Maintenance | Maintenance Processing | Maintenance Notifications(PM-WOC-MN) SAP PM
MIWO0F40 SAP ABAP INCLUDE - PM Notification
MIWO0F40 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 MIWO0F40 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 MIWO0F40. "Basic submit
SUBMIT MIWO0F40 AND RETURN. "Return to original report after report execution complete
SUBMIT MIWO0F40 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: PM Notification
INCLUDES used within this REPORT MIWO0F40
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:
CODE_GROUP_COMPARE CALL FUNCTION 'CODE_GROUP_COMPARE' EXPORTING CDGRP_MAIN = lcdgrp "Aus BerSchema CDGRP_NEW = CDGRP EXCEPTIONS CDGRP_INVALID_PATTERN = 4.
QPK1_GP_CODE_SELECTION CALL FUNCTION 'QPK1_GP_CODE_SELECTION' EXPORTING I_KATALOGART = LKATART I_CODEGRUPPE = CDGRP I_CODE = H_CODE I_SPRACHE = SY-LANGU I_WINX1 = 10 I_WINX2 = 60 I_WINY1 = 5 I_WINY2 = 25 I_PICKUP_MODE = lpick I_DISPLAY_MODE = ldisp I_RETURN_IF_ONE = lretn TABLES T_QPK1CDTAB = iqpk1cd EXCEPTIONS NO_MATCH_IN_RANGE = 01 NO_USER_SELECTION = 02.
CODE_TAKEOVER_SELECTION CALL FUNCTION 'CODE_TAKEOVER_SELECTION' EXPORTING IQPK1CD = IQPK1CD INDEX = ICODEINDEX TABLES SQKAT = IOTCD.
CODE_TAKEOVER_SELECTION CALL FUNCTION 'CODE_TAKEOVER_SELECTION' EXPORTING IQPK1CD = IQPK1CD INDEX = ICODEINDEX TABLES SQKAT = IFECD.
CODE_TAKEOVER_SELECTION CALL FUNCTION 'CODE_TAKEOVER_SELECTION' EXPORTING IQPK1CD = IQPK1CD INDEX = ICODEINDEX TABLES SQKAT = IURCD.
CODE_TAKEOVER_SELECTION CALL FUNCTION 'CODE_TAKEOVER_SELECTION' EXPORTING IQPK1CD = IQPK1CD INDEX = ICODEINDEX TABLES SQKAT = ISMCD.
CODE_TAKEOVER_SELECTION CALL FUNCTION 'CODE_TAKEOVER_SELECTION' EXPORTING IQPK1CD = IQPK1CD INDEX = ICODEINDEX TABIX = ltabix TABLES SQKAT = IMACD.
CODE_TAKEOVER_SELECTION CALL FUNCTION 'CODE_TAKEOVER_SELECTION' EXPORTING IQPK1CD = IQPK1CD INDEX = ICODEINDEX TABLES SQKAT = IqmCD.
DYNP_VALUES_UPDATE CALL FUNCTION 'DYNP_VALUES_UPDATE' EXPORTING DYNAME = programm DYNUMB = SY-DYNNR TABLES DYNPFIELDS = LDYNPREAD EXCEPTIONS INVALID_ABAPWORKAREA = 01 INVALID_DYNPROFIELD = 02 INVALID_DYNPRONAME = 03 INVALID_DYNPRONUMMER = 04 INVALID_REQUEST = 05 NO_FIELDDESCRIPTION = 06 UNDEFIND_ERROR = 07.
CATALOGUE_SELECTION CALL FUNCTION 'CATALOGUE_SELECTION' EXPORTING RBNR = urbnr QMART = viqmel-qmart IMPORTING E_RIWO02 = lriwo02 EXCEPTIONS CDGRP_NOT_VALID_PATTERN = 04.
CODE_GROUP_COMPARE_GROUP CALL FUNCTION 'CODE_GROUP_COMPARE_GROUP' EXPORTING I_riwo02 = lriwo02 IMPORTING RETCD = URETCD TABLES ICDGR = ICDGR.
CHANGE_REPORT_PATTERN CALL FUNCTION 'CHANGE_REPORT_PATTERN' EXPORTING REQUI = EQUZ-RBNR RIFLO = IFLO-RBNR Rmara = mtqss-rbnrm IQ80 = TQ80 Iriwo02 = riwo02 IAKTYP = T365-AKTYP IMPORTING Eriwo02 = riwo02 TABLES ICDGR = ICDGR.
READ_CATALOGUE_TEXT CALL FUNCTION 'READ_CATALOGUE_TEXT' EXPORTING IQ80 = TQ80 IMPORTING TXTKATFE = RIWO00-TXTKTFE TXTKATMA = RIWO00-TXTKTMA TXTKATOT = RIWO00-TXTKTOT TXTKATUR = RIWO00-TXTKTUR TXTKATsa = RIWO00-TXTKTsa TXTKATSM = RIWO00-TXTKTSM.
EXPORT_WORKAREA CALL FUNCTION 'EXPORT_WORKAREA' IMPORTING E_ILOA = ILOA E_RIWO1 = RIWO1 EEQUI = EQUI EEQUZ = EQUZ EIFLO = IFLO.
ADDRESS_GET_DATA * call function 'ADDRESS_GET_DATA' * exporting * entry_adrnr = viqmel-adrnr_iloa * importing * company_data = sadr * exceptions * addr_not_exist = 01 * wrong_data = 02.
PM_PARTNER_DATA_IMPORT CALL FUNCTION 'PM_PARTNER_DATA_IMPORT' EXPORTING PARVW_INT = TQ80-PARVW_INT PARVW_LIEF = TQ80-PARVW_LIEF PARVW_KUND = TQ80-PARVW_KUND PARVW_AP = TQ80-PARVW_AP PARVW_VERA = TQ80-PARVW_VERA PARVW_AUTO = TQ80-PARVW_AUTO AUFNR = VIQMEL-AUFNR EQUNR = VIQMEL-EQUNR PARGR = TQ80-PARGR SPART = VIQMEL-SPART TPLNR = VIQMEL-TPLNR VKORG = VIQMEL-VKORG VTWEG = VIQMEL-VTWEG OBJNR = VIQMEL-OBJNR OBTYP = TQ8T-QMELT SADR_FLAG = INDADR SADR_WA = SADR.
PM_PARTNER_DETERMINE CALL FUNCTION 'PM_PARTNER_DETERMINE' EXPORTING DATE = RIWO1-SDATE TIME = RIWO1-SZEIT EQUNR = RIWO1-EQUNR TPLNR = RIWO1-TPLNR.
PM_OBJECT_INFO CALL FUNCTION 'PM_OBJECT_INFO' EXPORTING ALWAYS = SPACE SERVICE = YX INFO_WIND = TQ80-INFO_WIND KDAUF = VIQMEL-KDAUF "P30K064493 KDPOS = VIQMEL-KDPOS. "P30K064493
CALL FUNCTION 'PM_OBJECT_INFO' EXPORTING ALWAYS = SPACE INFO_WIND = TQ80-INFO_WIND KDAUF = VIQMEL-KDAUF "P30K064493 KDPOS = VIQMEL-KDPOS. "P30K064493
DYNP_VALUES_UPDATE CALL FUNCTION 'DYNP_VALUES_UPDATE' EXPORTING DYNAME = programm DYNUMB = SY-DYNNR TABLES DYNPFIELDS = LDYNPREAD EXCEPTIONS INVALID_ABAPWORKAREA = 01 INVALID_DYNPROFIELD = 02 INVALID_DYNPRONAME = 03 INVALID_DYNPRONUMMER = 04 INVALID_REQUEST = 05 NO_FIELDDESCRIPTION = 06 UNDEFIND_ERROR = 07.
DYNP_VALUES_READ CALL FUNCTION 'DYNP_VALUES_READ' EXPORTING DYNAME = programm DYNUMB = SY-DYNNR TRANSLATE_TO_UPPER = YX TABLES DYNPFIELDS = LDYNPREAD EXCEPTIONS INVALID_ABAPWORKAREA = 01 INVALID_DYNPROFIELD = 02 INVALID_DYNPRONAME = 03 INVALID_DYNPRONUMMER = 04 INVALID_REQUEST = 05 NO_FIELDDESCRIPTION = 06 UNDEFIND_ERROR = 07.
DYNP_VALUES_READ CALL FUNCTION 'DYNP_VALUES_READ' EXPORTING DYNAME = programm DYNUMB = SY-DYNNR TABLES DYNPFIELDS = LDYNPREAD EXCEPTIONS INVALID_ABAPWORKAREA = 01 INVALID_DYNPROFIELD = 02 INVALID_DYNPRONAME = 03 INVALID_DYNPRONUMMER = 04 INVALID_REQUEST = 05 NO_FIELDDESCRIPTION = 06 UNDEFIND_ERROR = 07.
QPK1_GP_GROUP_PICKUP CALL FUNCTION 'QPK1_GP_GROUP_PICKUP' EXPORTING I_KATALOGART = ukatart I_CODEGRUPPE = ugroup I_SPRACHE = SY-LANGU I_DISPLAY_MODE = ' ' I_RETURN_IF_ONE = 'X' I_NO_USAGEINDICATION = 'X' IMPORTING E_QPK1GR = icdgrp EXCEPTIONS NO_MATCH_IN_RANGE = 01 NO_USER_SELECTION = 02.
PM_CHECK_OBJECT_STATUS CALL FUNCTION 'PM_CHECK_OBJECT_STATUS' EXPORTING I_EQ_OBJNR = P_EQUI_OBJNR I_TP_OBJNR = P_IFLO_OBJNR I_N_EQUNR = RIWO1-EQUNR I_N_TPLNR = RIWO1-TPLNR I_O_EQUNR = *VIQMEL-EQUNR I_O_TPLNR = *VIQMEL-TPLNR I_AKTYP = T365-AKTYP EXCEPTIONS STATUS_NOT_ALLOWED = 1.
PM_CHECK_OBJECT_STATUS CALL FUNCTION 'PM_CHECK_OBJECT_STATUS' EXPORTING I_EQ_OBJNR = P_EQUI_OBJNR I_TP_OBJNR = P_IFLO_OBJNR I_AKTYP = T365-AKTYP I_STCHK = YX EXCEPTIONS STATUS_NOT_ALLOWED = 1.
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 MIWO0F40 or its description.