RPUTCPU1_PBSF02 SAP ABAP INCLUDE - Include RPUTCPU1_PBSF02

RPUTCPU1_PBSF02 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 RPUTCPU1_PBSF02 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.

Text pool values

INCLUDES used within this REPORT RPUTCPU1_PBSF02

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:

RH_PNNNN_IDOCSDATA_CONVERT
    CALL FUNCTION 'RH_PNNNN_IDOCSDATA_CONVERT'
      EXPORTING
        ACT_PNNNN        = WPLOG
        ACT_INFTY        = WPLOG-INFTY
        ACT_SUBTY        = WPLOG-SUBTY
      IMPORTING
        ACT_IDOC         = SPOOL_SATZ
      EXCEPTIONS
        PNNNN_NOT_ACTIVE = 1
        IDOC_NOT_ACTIVE  = 2
        PADNN_NOT_ACTIVE = 3
        PNNNN_TOO_SHORT  = 4
        IDOC_TOO_SHORT   = 5
        PADNN_TOO_SHORT  = 6
        CONVERSION_ERROR = 7
        OTHERS           = 8.

LVC_FIELDCATALOG_MERGE
  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
      I_STRUCTURE_NAME = 'P10P_STREE'
    CHANGING
      CT_FIELDCAT      = P_FIELDCATALOG.

ICON_CREATE
  CALL FUNCTION 'ICON_CREATE'                               "#EC *
    EXPORTING
      NAME                  = ICON_REMOVE_FROM_SELECTION
      INFO = 'Errors occurred'(M01)
      ADD_STDINF = 'X'
    IMPORTING
      RESULT                = P_ICON_RED
    EXCEPTIONS
      OTHERS = 0.

ICON_CREATE
  CALL FUNCTION 'ICON_CREATE'                               "#EC *
    EXPORTING
      NAME                  = ICON_INCLUDE_IN_SELECTION
      INFO = 'No errors'(M02)
      ADD_STDINF = 'X'
    IMPORTING
      RESULT                = P_ICON_GREEN
    EXCEPTIONS
      OTHERS = 0.

REUSE_ALV_HIERSEQ_LIST_DISPLAY
    CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
         EXPORTING
              I_CALLBACK_PROGRAM       = G_REPID
*           I_CALLBACK_PF_STATUS_SET = ' '
*           I_CALLBACK_USER_COMMAND  = ' '
              IS_LAYOUT                = GS_LAYOUT
              IT_FIELDCAT              = GT_FIELDCAT[]
              I_TABNAME_HEADER         = G_TABNAME_HEADER
              I_TABNAME_ITEM           = G_TABNAME_ITEM
              IS_KEYINFO               = GS_KEYINFO
         TABLES
              T_OUTTAB_HEADER          = PERNR_ITAB
              T_OUTTAB_ITEM            = LIST_ITEM_ITAB.

HR_DISPLAY_ERROR_LIST
    CALL FUNCTION 'HR_DISPLAY_ERROR_LIST'
      EXPORTING
        NO_POPUP         = 'X'
        NO_PRINT         = SPACE
      TABLES
        ERROR            = HRERROR
      EXCEPTIONS
        INVALID_LINESIZE = 1
        OTHERS           = 2.

REUSE_ALV_FIELDCATALOG_MERGE
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      I_INTERNAL_TABNAME = G_TABNAME_ITEM
      I_STRUCTURE_NAME   = 'P10P_STREE'
    CHANGING
      CT_FIELDCAT        = E01_LT_FIELDCAT[].

HR_DISPLAY_ERROR_LIST
    CALL FUNCTION 'HR_DISPLAY_ERROR_LIST'
      TABLES
        ERROR            = HRERROR_DETAIL
      EXCEPTIONS
        INVALID_LINESIZE = 1
        OTHERS           = 2.

RH_READ_INFTY
  CALL FUNCTION 'RH_READ_INFTY'
    EXPORTING
      PLVAR                = PLVAR       "current active version
      OTYPE                = Q_OTYPE     "Q
      OBJID                = QUAL_OBJID  "id of object
      INFTY                = '1000'      "object infotype
      ISTAT                = '1'         "active planning status
      BEGDA                = P1001_BEGDA "qualification begda
      ENDDA                = P1001_ENDDA "qualification endda
    TABLES
      INNNN                = P_IT1000
    EXCEPTIONS
      ALL_INFTY_WITH_SUBTY = 1
      NOTHING_FOUND        = 2
      NO_OBJECTS           = 3
      WRONG_CONDITION      = 4
      WRONG_PARAMETERS     = 5
      OTHERS               = 6.