IREAD_SM_PM_SUBS SAP ABAP INCLUDE - SM/PM Order extraction subroutines.
IREAD_SM_PM_SUBS 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 IREAD_SM_PM_SUBS 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 IREAD_SM_PM_SUBS. "Basic submit
SUBMIT IREAD_SM_PM_SUBS AND RETURN. "Return to original report after report execution complete
SUBMIT IREAD_SM_PM_SUBS VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: SM/PM Order extraction subroutines.
INCLUDES used within this REPORT IREAD_SM_PM_SUBS
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:
READ_TEXT CALL FUNCTION 'READ_TEXT' EXPORTING id = x_id language = langu name = x_name object = 'AUFK' TABLES lines = struc_header_ltext.
I_SMPM_EQUIPMENT_GET CALL FUNCTION 'I_SMPM_EQUIPMENT_GET' EXPORTING equnr = equnr * LANGU = CHANGING techobj = f_techobj.
I_SMPM_FUNCLOC_GET CALL FUNCTION 'I_SMPM_FUNCLOC_GET' EXPORTING tplnr = tplnr * LANGU = CHANGING techobj = f_techobj.
GET_ASSEMBLY_TEXT CALL FUNCTION 'GET_ASSEMBLY_TEXT' EXPORTING baugruppe = f_techobj-bautl "#EC DOM_EQUAL * werks = IMPORTING baugruppentext = f_techobj-bautx. "#EC DOM_EQUAL
I_SMPM_PARTNER_GET CALL FUNCTION 'I_SMPM_PARTNER_GET' EXPORTING objnr = struc_header_objnr TABLES int_partner = int_hdrpartner.
ADDR_GET CALL FUNCTION 'ADDR_GET' EXPORTING address_selection = struc_addrsel read_texts = 'X' IMPORTING address_value = struc_addr1 address_text = struc_addrtext.
ADDR_CONVERT_SADR_TO_ADDR1_VAL CALL FUNCTION 'ADDR_CONVERT_SADR_TO_ADDR1_VAL' EXPORTING sadr = struc_sadr IMPORTING addr1_val = struc_addr1.
ADDR_CONVERT_SADR_TO_ADDR1_VAL CALL FUNCTION 'ADDR_CONVERT_SADR_TO_ADDR1_VAL' EXPORTING sadr = struc_sadr IMPORTING addr1_val = struc_addr1.
STATUS_CHECK CALL FUNCTION 'STATUS_CHECK' EXPORTING * BYPASS_BUFFER = ' ' * CLIENT = SY-MANDT objnr = int_prt-objnr status = 'I0013' "deleted EXCEPTIONS object_not_found = 1 status_not_active = 2 OTHERS = 3.
ROUND CALL FUNCTION 'ROUND' EXPORTING decimals = 1 input = x_kbeasoll * SIGN = ' ' IMPORTING output = x_round1 " int_split-arbei EXCEPTIONS input_invalid = 1 overflow = 2 type_invalid = 3 OTHERS = 4.
ROUND CALL FUNCTION 'ROUND' EXPORTING decimals = 1 input = x_kbearest * SIGN = ' ' IMPORTING output = x_round2 "int_split-dauno EXCEPTIONS input_invalid = 1 overflow = 2 type_invalid = 3 OTHERS = 4.
STATUS_CHECK CALL FUNCTION 'STATUS_CHECK' EXPORTING * BYPASS_BUFFER = ' ' * CLIENT = SY-MANDT objnr = kbsta status = 'I0117' "Dispatched EXCEPTIONS object_not_found = 1 status_not_active = 2 OTHERS = 3.
HR_INTEGRATION_CHECK CALL FUNCTION 'HR_INTEGRATION_CHECK' IMPORTING plvar = plvar.
RHPP_R_PROFILE_READ CALL FUNCTION 'RHPP_R_PROFILE_READ' EXPORTING * begda = begda * endda = endda with_stext = 'X' with_qk_info = 'X' TABLES objects = i_req * ERR_OBJECTS = profile = i_reqqual EXCEPTIONS no_authority = 1 wrong_otype = 2 object_not_found = 3 undefined = 4 OTHERS = 5.
STATUS_TEXT_EDIT CALL FUNCTION 'STATUS_TEXT_EDIT' EXPORTING * CLIENT = SY-MANDT flg_user_stat = 'X' objnr = objnr only_active = 'X' spras = int_notif-kzmla IMPORTING * ANW_STAT_EXISTING = * E_STSMA = line = int_notif-sttxt "#EC DOM_EQUAL user_line = int_notif-ustxt. "#EC DOM_EQUAL
CR_WORKSTATION_READ CALL FUNCTION 'CR_WORKSTATION_READ' EXPORTING id = arbpl msgty = 'S' IMPORTING arbpl = int_notif-arbple "#EC DOM_EQUAL * ECRHD = * KTEXT = * WERKS = EXCEPTIONS not_found = 1 OTHERS = 2.
I_SMPM_DEPTRESP_GET CALL FUNCTION 'I_SMPM_DEPTRESP_GET' EXPORTING objnr = objnr IMPORTING dept_resp = int_notif-deptresp dept_descr = int_notif-deptdescr.
I_SMPM_ADDRESS_GET CALL FUNCTION 'I_SMPM_ADDRESS_GET' EXPORTING adrnr = int_notif-adrnr IMPORTING address = struc_notadr EXCEPTIONS OTHERS = 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 IREAD_SM_PM_SUBS or its description.