SAP Reports / Programs | Plant Maintenance(PM) SAP PM

Home SAP Development ABAP Coding SAP Fiori SAP Training SAP Tables SAP Objects...

RIPRIF01 SAP ABAP INCLUDE - PM: Print Programs - General Form Routines: Include

SAP T-Codes / Example ABAP code
ABAP OO / SAP Function Modules
ABAP reports / SAP Error Messages
SAP Tables / SAP Video Training

RIPRIF01 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 RIPRIF01 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 RIPRIF01. "Basic submit
SUBMIT RIPRIF01 AND RETURN. "Return to original report after report execution complete
SUBMIT RIPRIF01 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: Print Programs - General Form Routines: Include

INCLUDES used within this REPORT RIPRIF01

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:

WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING " write an underline element = 'UNDERLINE' window = 'MAIN'.

T024I_READ
      CALL FUNCTION 'T024I_READ'
        EXPORTING
          ingrp    = caufvd-ingpr
          iwerk    = caufvd-iwerk
        IMPORTING
          struct   = h_t024i
        EXCEPTIONS
          no_entry = 1
          OTHERS   = 2.

QPK1_CODE_TEXT CALL FUNCTION 'QPK1_CODE_TEXT' EXPORTING i_katalogart = iviqmfe-fekat i_codegruppe = iviqmfe-fegrp i_code = iviqmfe-fecod i_sprache = print_language IMPORTING e_text = iviqmfe-txtcdgr e_grouptext = iviqmfe-txtgr EXCEPTIONS no_match_in_range = 1 OTHERS = 2.

QPK1_CODE_TEXT CALL FUNCTION 'QPK1_CODE_TEXT' EXPORTING i_katalogart = iviqmfe-otkat i_codegruppe = iviqmfe-otgrp i_code = iviqmfe-oteil i_sprache = print_language IMPORTING e_text = iviqmfe-txtcdgrot e_grouptext = iviqmfe-txtgrot EXCEPTIONS no_match_in_range = 1 OTHERS = 2.

QPK1_CODE_TEXT CALL FUNCTION 'QPK1_CODE_TEXT' EXPORTING i_katalogart = iviqmma-mnkat i_codegruppe = iviqmma-mngrp i_code = iviqmma-mncod i_sprache = print_language IMPORTING e_text = iviqmma-txtcdgr e_grouptext = iviqmma-txtgr EXCEPTIONS no_match_in_range = 1 OTHERS = 2.

QPK1_CODE_TEXT CALL FUNCTION 'QPK1_CODE_TEXT' EXPORTING i_katalogart = iviqmsm-mnkat i_codegruppe = iviqmsm-mngrp i_code = iviqmsm-mncod i_sprache = print_language IMPORTING e_text = iviqmsm-txtcdgr e_grouptext = iviqmsm-txtgr EXCEPTIONS no_match_in_range = 1 OTHERS = 2.

QPK1_CODE_TEXT CALL FUNCTION 'QPK1_CODE_TEXT' EXPORTING i_katalogart = iviqmur-urkat i_codegruppe = iviqmur-urgrp i_code = iviqmur-urcod i_sprache = print_language IMPORTING e_text = iviqmur-txtcdgr e_grouptext = iviqmur-txtgr EXCEPTIONS no_match_in_range = 1 OTHERS = 2.

QPK1_CODE_TEXT CALL FUNCTION 'QPK1_CODE_TEXT' EXPORTING i_katalogart = iqkat-katalogart i_codegruppe = iqkat-codegruppe i_code = iqkat-code i_sprache = print_language IMPORTING e_text = iqkat-kurztextcd e_grouptext = iqkat-kurztextgr EXCEPTIONS no_match_in_range = 1 OTHERS = 2.

QPK1_CODE_TEXT CALL FUNCTION 'QPK1_CODE_TEXT' EXPORTING i_katalogart = viqmel-qmkat i_codegruppe = viqmel-qmgrp i_code = viqmel-qmcod i_sprache = print_language IMPORTING e_text = fact_txtcdgr e_grouptext = fact_txtgr EXCEPTIONS no_match_in_range = 1 OTHERS = 2.

QPK1_CODE_TEXT CALL FUNCTION 'QPK1_CODE_TEXT' EXPORTING i_katalogart = catalog_type i_codegruppe = code_group i_code = code i_sprache = print_language IMPORTING e_text = text * e_grouptext = EXCEPTIONS no_match_in_range = 1 OTHERS = 2.

CR_WORKSTATION_READ CALL FUNCTION 'CR_WORKSTATION_READ' EXPORTING id = viqmel-arbpl msgty = 'W' IMPORTING ecrhd = crhd EXCEPTIONS not_found = 01.

CO_IU_TPMUS_READ CALL FUNCTION 'CO_IU_TPMUS_READ' EXPORTING uname = sy-uname read_from_buffer = 'X' IMPORTING e_tpmus = ls_tpmus EXCEPTIONS no_selection = 1 OTHERS = 2.

OPEN_FORM CALL FUNCTION 'OPEN_FORM' EXPORTING archive_index = g_toa_dara_tab archive_params = g_arc_params_tab dialog = space " SAPSCRIPT diaglog device = dest_device form = t390-form " the form to print language = print_language " options = itcpo.

PM_DETERMINE_OUTPUT_DEVICE CALL FUNCTION 'PM_DETERMINE_OUTPUT_DEVICE' EXPORTING in_itcpo = itcpo IMPORTING out_device = ret_device.

CR_WORKSTATION_READ CALL FUNCTION 'CR_WORKSTATION_READ' EXPORTING id = IMPORTING arbpl = rcr01-arbpl ecrhd = crhd ktext = rcr01-ktext werks = rcr01-werks EXCEPTIONS not_found = 01. " ignore this !!!!

CR_WORKSTATION_READ CALL FUNCTION 'CR_WORKSTATION_READ' EXPORTING id = afvgd-arbid IMPORTING ecrhd = crhd_tmp EXCEPTIONS not_found = 1 OTHERS = 2.

CLOSE_FORM CALL FUNCTION 'CLOSE_FORM' IMPORTING result = itcpp " Information can be useful EXCEPTIONS " eg dest, spool nr etc unopened = 1.

CLOSE_FORM CALL FUNCTION 'CLOSE_FORM' TABLES otfdata = lt_otfdata EXCEPTIONS unopened = 1.

WRITE_FORM

CALL FUNCTION 'WRITE_FORM' EXPORTING element = 'TITLE' window = 'TITLE'. " Constant window in FORM

WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING element = 'TITLE_PAGE' window = 'MAIN'.

WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING element = 'TITLE_BLOCK' window = 'MAIN'.

WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING element = 'NOTIF_HEADER_SHORT' window = 'MAIN'.

WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING element = 'NOTIF_HEADER_DETAIL' window = 'MAIN'.

WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING element = 'END_OF_REPORT' window = 'MAIN'.

WRITE_FORM_LINES
  CALL FUNCTION 'WRITE_FORM_LINES'
    EXPORTING
      header    = table_header
      window    = window
    IMPORTING
      frompage  = frompage       " not interested ?
    TABLES
      lines     = table_lines
    EXCEPTIONS
      function  = 01
      type      = 02
      unopened  = 03
      unstarted = 04
      window    = 05.

PM_BUILD_PRINT_KEY CALL FUNCTION 'PM_BUILD_PRINT_KEY' " Build PMPL print key EXPORTING " based on for pm_appl = t390-pm_appl " prt_depth = depth " which paper depth viqmel = viqmel wqmfe = wqmfe caufvd = caufvd afvgd = afvgd resbd = resbd IMPORTING pmpl = pmpl.

ENQUEUE_EPMPL CALL FUNCTION 'ENQUEUE_EPMPL' EXPORTING pm_appl = pmpl-pm_appl "Lock print_key = pmpl-print_key pm_paper = pmpl-pm_paper _scope = lv_enqueue_scope _wait = yes EXCEPTIONS foreign_lock = 01 system_failure = 02.

PM_UPDATE_PMPL CALL FUNCTION 'PM_UPDATE_PMPL' IN UPDATE TASK EXPORTING indupd = c_insert wpmpl = pmpl.

PM_UPDATE_PMPL CALL FUNCTION 'PM_UPDATE_PMPL' EXPORTING indupd = c_insert wpmpl = pmpl.

DEQUEUE_EPMPL CALL FUNCTION 'DEQUEUE_EPMPL' EXPORTING pm_appl = pmpl-pm_appl print_key = pmpl-print_key pm_paper = pmpl-pm_paper.

CONTROL_FORM CALL FUNCTION 'CONTROL_FORM' EXPORTING command = cmd EXCEPTIONS unopened = 01 unstarted = 02.

PM_PARTNER_ROLL_TEXT CALL FUNCTION 'PM_PARTNER_ROLL_TEXT' EXPORTING parvw = ihpad-parvw language = print_language IMPORTING vtext = ihpad-vtext.

WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING element = 'PARTNER_INFO' window = 'MAIN'.

FUNC_LOCATION_READ CALL FUNCTION 'FUNC_LOCATION_READ' EXPORTING tplnr = functional_location IMPORTING iflo_wa = iflo EXCEPTIONS iflot_not_found = 01 iloa_not_found = 02.

EQUIPMENT_READ
  CALL FUNCTION 'EQUIPMENT_READ'
    EXPORTING
      equi_no        = equipment_nr
    IMPORTING
      efhm           = efhm
      eqkt           = eqkt
      equi           = equi
      equz           = equz
      iloa           = iloa
    EXCEPTIONS
      auth_no_begrp  = 01
      auth_no_iwerk  = 02
      auth_no_swerk  = 03
      eqkt_not_found = 04
      equi_not_found = 05
      equz_not_found = 06
      iloa_not_found = 07.

PM_GET_PARTNER_INFO CALL FUNCTION 'PM_GET_PARTNER_INFO' EXPORTING object_number = object_nr TABLES ihpad_tab_exp = ihpad_cop.

READ_TEXT
  CALL FUNCTION 'READ_TEXT'
    EXPORTING
      id              = text_id
      language        = print_language
      name            = text_name
      object          = text_object
    IMPORTING
      header          = table_header
    TABLES
      lines           = table_lines
    EXCEPTIONS
      id              = 01
      language        = 02
      name            = 03
      not_found       = 04
      object          = 05
      reference_check = 06.

MATERIAL_READ_MAQM CALL FUNCTION 'MATERIAL_READ_MAQM' EXPORTING schluessel = mtcom IMPORTING matdaten = mtqss TABLES seqmat01 = dummy_tab EXCEPTIONS material_not_found = 04.

STATUS_TEXT_EDIT CALL FUNCTION 'STATUS_TEXT_EDIT' EXPORTING flg_user_stat = yes objnr = p_objnr spras = print_language IMPORTING line = p_sttxt EXCEPTIONS object_not_found = 01.

CLAP_DDB_GET_CLASSIFICATION CALL FUNCTION 'CLAP_DDB_GET_CLASSIFICATION' EXPORTING object = local_object obtab = local_object_tab spras = print_language TABLES allocations = intklassen EXCEPTIONS no_allocation = 1 set_aennr = 2 change_nr_not_exist = 3 date_in_past = 4 error_class = 5 error_date_restriction = 6 error_status = 7 OTHERS = 8.

WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING element = 'CLASS'.

CACL_OBJECT_READ_VALIDATION
    CALL FUNCTION 'CACL_OBJECT_READ_VALIDATION'
      EXPORTING
        object_type              = local_object_tab
        class_type               = intklassen-klart
        class                    = intklassen-class
        with_unassigned_characts = ' '
        with_inherited_characts  = ' '
        language                 = print_language
      TABLES
        object_identification    = object_identification
        charact_values           = charact_values
      EXCEPTIONS
        error                    = 1
        warning                  = 2
        OTHERS                   = 3.

WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING element = 'CLASS_FEATURE'.

WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING element = 'CLASS_FEATURE_INHERITED'.

SSFC_BASE64_ENCODE CALL FUNCTION 'SSFC_BASE64_ENCODE' EXPORTING bindata = lv_symbol_data IMPORTING b64data = lv_string EXCEPTIONS OTHERS = 1.

SSFC_BASE64_ENCODE CALL FUNCTION 'SSFC_BASE64_ENCODE' EXPORTING bindata = lv_icon_data IMPORTING b64data = lv_string.

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 RIPRIF01 or its description.

RIPRIF01 - PM: Print Programs - General Form Routines: Include
RIPRID01 - PM: Include Print - DATA
RIPRGI02 - PM: Operation Control Ticket Version 1
RIPRGI02 - PM: Operation Control Ticket Version 1
RIPRGI01 - PM: Operation Control Ticket Version 1
RIPRGI01 - PM: Operation Control Ticket Version 1

RGJV_CC_RECLASS_EVT

RIARCEQ_DFPS_DELETE_DISTR_INFO

RFVIRT13

RFVIRCCOLLATERAL01

RFVIDUV3TOP

RHIQU464_LOGDISPLAYTOP

RHRFPM_CHK_SEL_GENF01

RGJVBRTHSCR