EWURFRSH SAP ABAP Report - EMU Conversion: Check Batch Jobs for Refresh in Procedure Monitor

EWURFRSH is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for Program EWURFRSH checks whether the batch jobs for programs which have status STR are still active in the active package...see full standard documentation available for this report. Also check out the submitted Comments related to this SAP report and the details below to see which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC.

If you would like to execute this report or see the full code listing simply enter EWURFRSH 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 EWURFRSH

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:

EWU_PAKET_GET
CALL FUNCTION 'EWU_PAKET_GET'
     CHANGING
          PAKET                  = PAKET
     EXCEPTIONS
          ACTIVE_PAKET_NOT_FOUND = 1
          OTHERS                 = 2.

STUM_WP_TOTAL_ACTIVITY
CALL FUNCTION 'STUM_WP_TOTAL_ACTIVITY'
*    EXPORTING
*         GET_ONLY_RESTRICTED_DATA = ' '
*         WITH_CPU                 = 0
*         SHOW_STATUS_ON_GUI       = ' '
*         GET_NO_DB_LOCK_INFO      = ' '
     TABLES
          WP_TOTAL_INFO            = WP_TOTAL_INFO
          COMMUNICATION_ERRORS     = COMMUNICATION_ERRORS
          USED_WP                  = USED_WP.

BP_JOB_CHECKSTATE
    CALL FUNCTION 'BP_JOB_CHECKSTATE'
         EXPORTING
              DIALOG                       = 'N'
              JOBCOUNT                     = I_EWUPGSTAT-JOBCOUNT
              JOBNAME                      = I_EWUPGSTAT-JOBNAME
         EXCEPTIONS
              CHECKING_OF_JOB_HAS_FAILED   = 1
              CORRECTING_JOB_STATUS_FAILED = 2
              INVALID_DIALOG_TYPE          = 3
              JOB_DOES_NOT_EXIST           = 4
              NO_CHECK_PRIVILEGE_GIVEN     = 5
              READY_SWITCH_TOO_DANGEROUS   = 6
              OTHERS                       = 7.

SHOW_JOBSTATE
    CALL FUNCTION 'SHOW_JOBSTATE'
         EXPORTING
              JOBCOUNT         = I_EWUPGSTAT-JOBCOUNT
              JOBNAME          = I_EWUPGSTAT-JOBNAME
         IMPORTING
              ABORTED          = ABORTED
              FINISHED         = FINISHED
              PRELIMINARY      = PRELIMINARY
              READY            = READY
              RUNNING          = RUNNING
              SCHEDULED        = SCHEDULED
         EXCEPTIONS
              JOBCOUNT_MISSING = 1
              JOBNAME_MISSING  = 2
              JOB_NOTEX        = 3
              OTHERS           = 4.

DEQUEUE_EEWUPGSTAT
        CALL FUNCTION 'DEQUEUE_EEWUPGSTAT'
             EXPORTING
                  MODE_EWUPGSTAT = 'E'
                  MANDT          = SY-MANDT
                  PAKET          = EWUPGSTAT-PAKET
                  PROGRAMM       = EWUPGSTAT-PROGRAMM
                  _SCOPE         = '1'
                  _SYNCHRON      = 'X'
             EXCEPTIONS
                  OTHERS         = 1.

DD_PR_OPEN
  CALL FUNCTION 'DD_PR_OPEN'
       EXPORTING
            DEVICE        = 'T'
            FORMAT        = 'S'
            LANG1         = SY-LANGU
            LANG2         = 'E'
            MAXBUF        = -1
            MODUS         = 'A'
            NAME          = EWUPGSTAT_WA-PROTNAME
       IMPORTING
            ID            = ID
       EXCEPTIONS
            CANNOT_OPEN   = 1
            ILLEGAL_VALUE = 2
            OTHERS        = 3.

DD_PR_WRITE
  CALL FUNCTION 'DD_PR_WRITE'
       EXPORTING
            ARBGB        = 'MQ'
            ID           = ID
            MSGNR        = '057'
            PAR_NO       = 4
            S1           = EWUPGSTAT_WA-JOBNAME
            S2           = SPACE
            S3           = SPACE
            S4           = SPACE
            SEVER        = 'E'
       EXCEPTIONS
            CANNOT_FLUSH = 1
            CANNOT_WRITE = 2
            ILLEGAL_ID   = 3
            OTHERS       = 4.

DD_PR_WRITE
  CALL FUNCTION 'DD_PR_WRITE'
       EXPORTING
            ARBGB        = 'MQ'
            ID           = ID
            MSGNR        = '037'
            PAR_NO       = 4
            S1           = EWUPGSTAT_WA-PROGRAMM
            S2           = SY-DATUM
            S3           = SY-UZEIT
            S4           = 'ERR'
            SEVER        = 'A'
       EXCEPTIONS
            CANNOT_FLUSH = 1
            CANNOT_WRITE = 2
            ILLEGAL_ID   = 3
            OTHERS       = 4.

DD_PR_FLUSH
  CALL FUNCTION 'DD_PR_FLUSH'
       EXPORTING
            ID           = ID
            OUT          = 'X'
       EXCEPTIONS
            CANNOT_FLUSH = 1
            ILLEGAL_ID   = 2
            OTHERS       = 3.

DD_PR_CLOSE
  CALL FUNCTION 'DD_PR_CLOSE'
       EXPORTING
            ID         = ID
       EXCEPTIONS
            DAMAGED    = 1
            ILLEGAL_ID = 2
            OTHERS     = 3.

DB_COMMIT
  CALL FUNCTION 'DB_COMMIT'
       EXCEPTIONS
            OTHERS = 1.