topic Re: Locking the program in Application Development and Automation Discussions

Locking the program

Former Member — Wed, 26 Jul 2006 19:02:39 GMT

Hi All,

Is there any way that i can make the program run at a time only once, so that if one instance of it is running it should give a message to others saying program is already running.

Let me know is there any other way of doing it..

Thank You,

Suresh

Re: Locking the program

Former Member — Wed, 26 Jul 2006 19:06:29 GMT

You can import a variable intially and if it is set to X, do NOT execute the program and exit. Export a different value at the end of the program to that variable.

Regards,

Ravi

Re: Locking the program

ferry_lianto — Wed, 26 Jul 2006 19:09:08 GMT

Hi,

Please check this sample code from other thread.

Make sure that no one else is running this program
This is the locking mechanism for this program.

PROGRAM_NAME = SY-REPID.  
CALL FUNCTION 'ENQUEUE_ESINDX'       
  EXPORTING            
    SRTFD          = PROGRAM_NAME            
    SRTF2          = 0            
    _WAIT          = 2       
  EXCEPTIONS            
    FOREIGN_LOCK   = 1            
    SYSTEM_FAILURE = 2.  

IF SY-SUBRC <> 0.
*Give message that someone is running the program  
ENDIF.

Hope this will help.

Regards,

Ferry Lianto

Re: Locking the program

Former Member — Wed, 26 Jul 2006 19:10:13 GMT

Hi Ravi,

Your solution seems to be quite interesting, can you please explain it more clearly ? Please attach the piece of code if available .

Regards,

Varun .

Re: Locking the program

Manohar2u — Wed, 26 Jul 2006 19:10:20 GMT

Depends on whether it should be a userspecific or across the system.

If across the system then you need to flag in Z table at initial event start-of-selection and clear the flag at end of the program.

If with in the user's sessions use SET Parameter option.

Regds

Manohar

Re: Locking the program

Former Member — Wed, 26 Jul 2006 19:11:22 GMT

hi suresh,

check this thread..

hope this helps,

do reward if it helps,

priya.

Re: Locking the program

RichHeilman — Wed, 26 Jul 2006 19:11:25 GMT

You can use a lock object for the program.



report zrich_0001.


parameters: p_check.

at selection-screen output.

data: program type sy-repid.

program = sy-repid.
call function 'ENQUEUE_EPROG'
  exporting
   mode_trdir           = 'E'
   programm             = program
*   X_PROGRAMM           = ' '
*   _SCOPE               = '2'
*   _WAIT                = ' '
*   _COLLECT             = ' '
 exceptions
   foreign_lock         = 1
   system_failure       = 2
   others               = 3
          .
if sy-subrc <> 0.
  message id sy-msgid type sy-msgty number sy-msgno
          with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.

Regards,

Rich Heilman

Re: Locking the program

abdul_hakim — Wed, 26 Jul 2006 19:11:48 GMT

hi babu,

create a z table (for eg,zvalidate) with a field (for eg,flag)of length 1 and type char.

in the program you can check

select single * from zvalidate into wa where flag = space.

if sy-subrc ne 0 .

<throw error message?

else.

UPDATE zvalidate set flag = 'X'.

endif.

Cheers,

Abdul Hakim

Re: Locking the program

Former Member — Wed, 26 Jul 2006 22:13:07 GMT

Hi All,

I want the program not to be executed by others when some body else is already running or using the program.

I tried doing all the solutions.. given by you all... but its not working for me..

i am working in 4.0 B version of SAP..FYI.

thank you,

Suresh

Re: Locking the program

RichHeilman — Wed, 26 Jul 2006 22:57:15 GMT

If you implement my sample program above, it is not working? Run it and allow to sit on the selection screen, now run it in another session, do you not get an error message saying that the program is already in use?

REgards,

Rich Heilman

Re: Locking the program

Former Member — Wed, 26 Jul 2006 23:48:37 GMT

when i write the code its stopping the control from not editing the program.. but not executing the program..

Re: Locking the program

RichHeilman — Wed, 26 Jul 2006 23:51:34 GMT

Copy and paste the program code that I've provided, activate the program, now back out of the editor and run it directly from the first screen of SE38. Leave it on the selection screen. Open another session and run the program again. Since the other session is currently running the program, you should get a message right away when running the program in the other session. Is this not happening?

Regards,

Rich Heilman

Re: Locking the program

Former Member — Thu, 27 Jul 2006 00:02:12 GMT

NO it is not working

Re: Locking the program

Former Member — Thu, 27 Jul 2006 00:03:10 GMT

I want no body else to run the program when.. for eg: i am running it..

Re: Locking the program

RichHeilman — Thu, 27 Jul 2006 00:05:40 GMT

Suresh, this is exactly how my example program works in my r/3 system. It will not allow me to run it while its being ran in another session. Not sure why its not working for you. Are you sure that the lock is being applied. Run the program and let it sit on the selecition screen, now go to another session and go to SM12. Check to see if a lock exists.

Regards,

Rich Heilman

Re: Locking the program

Former Member — Thu, 27 Jul 2006 00:11:35 GMT

Sorry.. i didnt tell u this before..

There is no function module ENQUEUE_EPROG in 4.0 B, i am using ENQUEUE_ES_PROG.

Pls suggest.

Suresh

Re: Locking the program

RichHeilman — Thu, 27 Jul 2006 00:23:54 GMT

Ahhh......

Regards,

Rich Heilman

Re: Locking the program

RichHeilman — Thu, 27 Jul 2006 00:28:53 GMT

Please try this example. This works good in my system.



report zrich_0001.

data: program type sy-repid.

parameters: p_check.

load-of-program.

  program = sy-repid.

  call function 'ENQUEUE_ES_PROG'
   exporting
*    MODE_TRDIR           = 'E'
     name                 = program
*    X_NAME               = ' '
*    _SCOPE               = '2'
*    _WAIT                = ' '
*    _COLLECT             = ' '
   exceptions
     foreign_lock         = 1
     system_failure       = 2
     others               = 3
            .

  if sy-subrc <> 0.
    message e001(00) with 'Program currently in use'.
  endif.

Regards,

Rich Heilman

Re: Locking the program

Former Member — Thu, 27 Jul 2006 00:36:59 GMT

Hi Rich,

It is working now.. but when the message is displayed i dont see the selection screen contents.. on the screen..

if sy-subrc <> 0.

set cursor field 'P_FL_UNX'.

set screen 0.

message e009(zmd) with 'Program is in use by other user'.

leave to list-processing.

endif.

though i used the above code it still not showing up the values..

any help on this...

Suresh

Re: Locking the program

RichHeilman — Thu, 27 Jul 2006 00:39:02 GMT

You still want to show the selection screen if the program is being run by another user?

Regards,

Rich Heilman