RIPRIF02 SAP ABAP INCLUDE - PM: Order Printing INCLUDE
RIPRIF02 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 RIPRIF02 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 RIPRIF02. "Basic submit
SUBMIT RIPRIF02 AND RETURN. "Return to original report after report execution complete
SUBMIT RIPRIF02 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: Order Printing INCLUDE
INCLUDES used within this REPORT RIPRIF02
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:
T024I_READ CALL FUNCTION 'T024I_READ' EXPORTING INGRP = CAUFVD-INGPR IWERK = CAUFVD-IWERK IMPORTING STRUCT = T024I EXCEPTIONS NO_ENTRY = 1 OTHERS = 2.
CR_WORKSTATION_READ CALL FUNCTION 'CR_WORKSTATION_READ' EXPORTING ID = CAUFVD-GEWRK MSGTY = 'W' IMPORTING ECRHD = CRHD EXCEPTIONS NOT_FOUND = 01.
CO_ZK_TEXTKEY_CAUFV CALL FUNCTION 'CO_ZK_TEXTKEY_CAUFV' EXPORTING AUFNR = CAUFVD-AUFNR IMPORTING LTSCH = STXH-TDNAME.
STATUS_TEXT_EDIT CALL FUNCTION 'STATUS_TEXT_EDIT' EXPORTING FLG_USER_STAT = YES OBJNR = CAUFVD-OBJNR ONLY_ACTIVE = YES SPRAS = PRINT_LANGUAGE IMPORTING LINE = CAUFVD-STTXT USER_LINE = CAUFVD-ASTTX EXCEPTIONS OBJECT_NOT_FOUND = 1 OTHERS = 2.
CR_WORKSTATION_READ CALL FUNCTION 'CR_WORKSTATION_READ' " Read the workstation EXPORTING " for texts to print ID = AFVGD-ARBID " MSGTY = 'W' " IMPORTING " RCR01 work area is ARBPL = RCR01-ARBPL " used in FORMS ECRHD = CRHD " KTEXT = RCR01-KTEXT " WERKS = RCR01-WERKS " EXCEPTIONS " NOT_FOUND = 01.
CO_TA_T430_READ CALL FUNCTION 'CO_TA_T430_READ' " Read control key EXPORTING " to text for print flags PLNAW = '*' " SPRAS = PRINT_LANGUAGE " The controls are checked STEUS = AFVGD-STEUS " before printing certain IMPORTING " operations types STRUCT = T430 " TEXT = T430T-TXT " EXCEPTIONS " NO_ENTRY = 01. "
STATUS_TEXT_EDIT CALL FUNCTION 'STATUS_TEXT_EDIT' EXPORTING OBJNR = AFVGD-OBJNR ONLY_ACTIVE = YES SPRAS = PRINT_LANGUAGE IMPORTING LINE = AFVGD-VSTTXT EXCEPTIONS OBJECT_NOT_FOUND = 1 OTHERS = 2.
STATUS_TEXT_EDIT CALL FUNCTION 'STATUS_TEXT_EDIT' EXPORTING OBJNR = IRESBD-OBJNR ONLY_ACTIVE = YES SPRAS = PRINT_LANGUAGE IMPORTING LINE = IRESBD-STTXT EXCEPTIONS OBJECT_NOT_FOUND = 1 OTHERS = 2.
MAKT_SINGLE_READ CALL FUNCTION 'MAKT_SINGLE_READ' EXPORTING MATNR = IRESBD-MATNR SPRAS = PRINT_LANGUAGE IMPORTING WMAKT = lv_makt EXCEPTIONS WRONG_CALL = 1 NOT_FOUND = 2 OTHERS = 3.
WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'MAINT_PLAN_DETAIL' WINDOW = 'MAIN'.
WRITE_FORM CALL FUNCTION 'WRITE_FORM' " Print pos detail.
WRITE_FORM CALL FUNCTION 'WRITE_FORM' " Print pos detail.
WRITE_FORM CALL FUNCTION 'WRITE_FORM' " EXPORTING ELEMENT = 'OPERATION' " main operation details WINDOW = 'MAIN'.
WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'EXTERNAL_WORK' WINDOW = 'MAIN'.
WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'INTERNAL_WORK' " main operation details WINDOW = 'MAIN'.
WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'INTERNAL_WORK' " main operation details WINDOW = 'MAIN'.
WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'EXTERNAL_WORK' WINDOW = 'MAIN'.
CONTROL_FORM CALL FUNCTION 'CONTROL_FORM' " start on new page EXPORTING COMMAND = 'NEW-PAGE'.
CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'OBJECT_TITLE' " Order object title WINDOW = 'MAIN'.
WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'OBJECT_LIST' " Order object list WINDOW = 'MAIN'.
CO_ZK_TEXTKEY_CAUFV CALL FUNCTION 'CO_ZK_TEXTKEY_CAUFV' EXPORTING AUFNR = CAUFVD-AUFNR IMPORTING LTSCH = TEXT_OBJECT_NAME.
CO_ZK_TEXTKEY_AFVG CALL FUNCTION 'CO_ZK_TEXTKEY_AFVG' EXPORTING APLZL = AFVGD-APLZL AUFPL = AFVGD-AUFPL IMPORTING LTSCH = TEXT_OBJECT_NAME.
STATUS_CHECK CALL FUNCTION 'STATUS_CHECK' EXPORTING OBJNR = AFVGD-OBJNR " check opertion STATUS = STATUS_PRINT " for I0007 EXCEPTIONS OBJECT_NOT_FOUND = 01 STATUS_NOT_ACTIVE = 02.
STATUS_CHANGE_INTERN CALL FUNCTION 'STATUS_CHANGE_INTERN' EXPORTING OBJNR = AFVGD-OBJNR TABLES STATUS = STAT_TAB EXCEPTIONS OBJECT_NOT_FOUND STATUS_INCONSISTENT STATUS_NOT_ALLOWED.
STATUS_CHECK CALL FUNCTION 'STATUS_CHECK' EXPORTING OBJNR = RESBD-OBJNR " check Material comp STATUS = STATUS_PRINT " for I0007 EXCEPTIONS OBJECT_NOT_FOUND = 01 STATUS_NOT_ACTIVE = 02.
STATUS_CHANGE_INTERN CALL FUNCTION 'STATUS_CHANGE_INTERN' EXPORTING OBJNR = RESBD-OBJNR "set material comp TABLES STATUS = STAT_TAB " as printed EXCEPTIONS OBJECT_NOT_FOUND STATUS_INCONSISTENT STATUS_NOT_ALLOWED.
STATUS_UPDATE_DIALOG CALL FUNCTION 'STATUS_UPDATE_DIALOG'."post status changes now
CF_UT_MP_AS_PRT_ACTIVE_CHECK CALL FUNCTION 'CF_UT_MP_AS_PRT_ACTIVE_CHECK' IMPORTING EV_MEASPOINT_AS_PRT_ACTIVE = LV_MEASPOINT_AS_PRT_ACTIVE.
WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'PRT_EQUI' WINDOW = 'MAIN'.
WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'PRT_MAT' WINDOW = 'MAIN'.
WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'PRT_OTHER' WINDOW = 'MAIN'.
WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'PRT_DOCUMENT' WINDOW = 'MAIN'.
WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'PRT_MPO' WINDOW = 'MAIN'.
CO_ZK_TEXTKEY_AFFH CALL FUNCTION 'CO_ZK_TEXTKEY_AFFH' EXPORTING AUFPL = AFFHD-AUFPL MANDT = SYST-MANDT PZLFH = AFFHD-PZLFH IMPORTING LTSCH = TEXT_OBJECT_NAME.
CO_ZK_TEXTKEY_RESB CALL FUNCTION 'CO_ZK_TEXTKEY_RESB' EXPORTING RSNUM = RESBD-RSNUM RSPOS = RESBD-RSPOS RSART = RESBD-RSART IMPORTING LTSCH = TEXT_OBJECT_NAME.
READ_PD_WORKCENTER CALL FUNCTION 'READ_PD_WORKCENTER' EXPORTING PDWORK_IMP = PDWORK IMPORTING PDWORK_EXP = PDWORK EXCEPTIONS NO_INTEGRATION = 01 INVALID_ARBID = 02 WORKCENTER_NOT_FOUND = 03.
WRITE_FORM CALL FUNCTION 'WRITE_FORM' " EXPORTING ELEMENT = 'OPERATION' " main operation details WINDOW = 'MAIN'.
WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'EXTERNAL_WORK' " WINDOW = 'MAIN'.
WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'INTERNAL_WORK' " main operation details WINDOW = 'MAIN'.
WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'PERMIT' WINDOW = 'MAIN'.
WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'GRANT' WINDOW = 'MAIN'.
READ_DMS_POSTSCRIPT_TEXT CALL FUNCTION 'READ_DMS_POSTSCRIPT_TEXT' EXPORTING DOCUMENT = DOKNR DOCUMENT_TYPE = DOKAR DOCUMENT_PART = DOKTL DOCUMENT_VERS = DOKVR LANGUAGE = PRINT_LANGUAGE IMPORTING EPS_TEXT_HEADER = TABLE_HEADER TABLES EPS_TEXT_LINES = TABLE_LINES EXCEPTIONS EPS_TEXT_NOT_FOUND = 01.
STATUS_CHECK CALL FUNCTION 'STATUS_CHECK' EXPORTING OBJNR = OBJNR STATUS = STATUS_PRINT EXCEPTIONS OBJECT_NOT_FOUND = 01 STATUS_NOT_ACTIVE = 02.
WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'SRV' EXCEPTIONS OTHERS = 01.
MS_SUBDIVISION_FOR_PRINT CALL FUNCTION 'MS_SUBDIVISION_FOR_PRINT' EXPORTING PACKNO = PACKNO ONLINE_DATA = 'X' TABLES GLIEDERUNG = GLIEDERUNG EXCEPTIONS PACKNO_NOT_EXIST = 1 OTHERS = 2.
MS_SERVICES_FOR_PRINT CALL FUNCTION 'MS_SERVICES_FOR_PRINT' EXPORTING PACKNO = GLIEDERUNG-SUB_PACKNO ONLINE_DATA = 'X' TABLES LEISTUNG = LEISTUNG EXCEPTIONS NO_SERVICES_FOUND = 01.
WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'SERVICES' EXCEPTIONS OTHERS = 01.
WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'SERVICES' EXCEPTIONS OTHERS = 01.
SELECT_TEXT CALL FUNCTION 'SELECT_TEXT' EXPORTING ID = THEAD-TDID LANGUAGE = THEAD-TDSPRAS NAME = THEAD-TDNAME OBJECT = THEAD-TDOBJECT IMPORTING ENTRIES = ENTRIES TABLES SELECTIONS = XTHEAD.
WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'ITEM_TEXT' EXCEPTIONS OTHERS = 01.
WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'TIME_DATA' EXCEPTIONS OTHERS = 1.
MS_READ_AND_CHECK_FORMULA CALL FUNCTION 'MS_READ_AND_CHECK_FORMULA' EXPORTING I_FORMELNR = ML_ESLL-FORMELNR NO_ERRORS = 'X' IMPORTING E_FORMEL = FORMEL TABLES VARIABLEN = VARIABLEN EXCEPTIONS OTHERS = 0.
WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'FORMEL_KOPF' EXCEPTIONS OTHERS = 1.
WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'FORMEL_BODY' 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 RIPRIF02 or its description.