Disallow opening of two screens with same plant.

Question

Hi Gurus!
I need to block the plant entered in a particular screen so that others cant use the same plant to run the report. For example if I use a plant say 200 in a screen for example 1000 with other entries like division , year , month and material, and run the report it will allow me , but at the same time another user wants to execute the same same screen  or program with same plant 200 , I want the report o block that plant or the screen itself so that other user wont be able to enter the report and make the changes corresponding to the same plant at the same time, to avoid confusiioon qmong themselves.
Is it possible to do so , if so how do I go about doing it.
Regards
Aarav

Answer 1

your logic is incorrect. You need to execute the code within enque / dequeue only if sy-subrc = 0.
Right now it is gettign executed for all cases
*&      Form  valid_plant
*       validate whether plant entered in selection screen
*       exists in database or not
FORM valid_plant .
DATA : lv_key TYPE rstable-varkey  .
  CONCATENATE sy-mandt p_werks INTO lv_key .
  IF NOT ( p_werks IS INITIAL AND
             p_lgort IS INITIAL AND
             p_matnr IS INITIAL AND
             p_mjahr IS INITIAL AND
             p_monat IS INITIAL ).
CALL FUNCTION 'ENQUEUE_E_TABLEE'
EXPORTING
   MODE_RSTABLE         = 'E'
   TABNAME              = 'ZPRFACTOR'
   VARKEY               = lv_key
IF SY-SUBRC  0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  message i000 with text-000.
                        <<<--------- Move this ENDIF to down
    SELECT SINGLE werks FROM t001w INTO t001w-werks
           WHERE werks = p_werks.
    IF sy-subrc NE 0.
      MESSAGE e048(zmm) WITH p_werks.
    ENDIF.
CALL FUNCTION 'DEQUEUE_E_TABLEE'
EXPORTING
   MODE_RSTABLE       = 'E'
   TABNAME            = 'ZPRFACTOR'
   VARKEY             = lv_key       .
ENDIF.  --- Move ENDIF here from above
  ENDIF.
ENDFORM.