System performance issue due to multiple submission of a job

Question

For month end recoincilation users run few critical reports which are quite resource consuming.
In order to control this, want to restrict the usage of such  reports. For example if one session is active (Foreground or background) user couldn't submit another job or gets a pop up with an error mesage.
Searched SDN for this and couldn't find much.
anya

Answer 1

Anya since this is the ABAP forum and I happen to be an ABAP programmer I can give you an ABAP solution. This would involve changes to the code in all these reports so you would need the help of an ABAP programmer if you are not one.
a) Create a Z table containing 3 fields
1) Client of type MANDT  (Primary key field)
2)Program Name  of type PROGRAM_ID (Primary key field)
3) User name of type XUBNAME (Regular field).
b) Create table maintenance for this internal table.
c) Create one record for each of the programs you want to regulate. You only need to enter the program name initially and leave the user name blank.
d) In all the ABAP programs make the following change.
1) Under the START-OF-SELECTION event of the report lock the use function module ENQUEUE_E_TABLEE to lock the record in the Ztable for the program being executed. Look at the sample code below.
TABLES: <ztable>.
data: w_message(100) TYPE c,
        w_locked(1) TYPE c.
CALL FUNCTION 'ENQUEUE_E_TABLEE'
  EXPORTING
    tabname              = <ztable name>
    varkey               = <concatenation of mandt and sy-cprog>
  EXCEPTIONS
   foreign_lock         = 1
   system_failure       = 2
   OTHERS               = 3.
IF sy-subrc EQ 1.
  SELECT SINGLE *
    FROM <ztable>
    INTO <ztable>
    WHERE program FIELD name EQ sy-cprog.
  IF sy-subrc EQ 0.
    CONCATENATE 'Program'
                sy-cprog
                'is currently being used by'
                <ztable>-<user name>
      INTO w_message SEPARATED BY space.
    MESSAGE e208(00) WITH w_message.
  ENDIF.
ELSEIF sy-subrc EQ 0.
  w_locked = 'X'.
  SELECT SINGLE *
    FROM <ztable>
    INTO <ztable>
    WHERE program FIELD name EQ sy-cprog.
  IF sy-subrc EQ 0.
    <ztable>-user name> = sy-uname.
    MODIFY <ztable> FROM <ztable>.
  ENDIF.
ENDIF.
e) At the event END-OF-SELECTION (at the end of the program) use function module DEQUEUE_E_TABLEE to unlock the record. Look at sample code below.
CASE w_locked.
  WHEN 'X'.
    CALL FUNCTION 'DEQUEUE_E_TABLEE'
      EXPORTING
        tabname          = <ztable name>
        varkey             = <concatenation of mandt and sy-cprog>.
ENDCASE.
This code is designed to allow just one user or job to run the program at a time. The second person will be issued an error message informing him/her that the program is being used by <user name>.