Lock Object in Module Pool

[Former Member]

Hi Experts,

I have created two screens 100 and 200.

In 100,i have button 'CHANGE'.When  i click on change button  called 200 screen.

My question is ,when multiple user using same Z-Transaction ,first user doing changes in 200 screen so second user need to call 200 screen in display mode when first user making changes.

How to do this?

i had created lock object and called FM in my program but i am not getting it.

Please give me any solution.

Thanks and Regards,

Ravi Teja

[rosenberg_eitan]

Hi,

Please search for "record level record lock in sap abap"

Based on the result of calling the generated Enqueue function you can set the screen in PBO .

2014/07/07 : Please look at DEMO_TRANSACTION_ENQUEUE

Regards.

[Former Member]

Hi Eitan,

In demo program DEMO_TRANSACTION_ENQUEUE they given that

CALL TRANSACTION 'TCODE NAME'  AND SKIP FIRST SCREEN.

Same syntax i written in my module pool program ,it is not working but

if i give CALL SCREEN 'screen number'  it is working .

Any reason.

Thanks and regrads,

Ravi.

[rosenberg_eitan]

Hi,

This is the code of DEMO_TRANSACTION_ENQUEUE here:

I do not see "CALL TRANSACTION 'TCODE NAME'  AND SKIP FIRST SCREEN."

Regards.

1. REPORT  demo_transaction_enqueue MESSAGE-ID sabapdocu.
3. TABLES  sflight.
5. DATA  text(8) TYPE c.
7. DATA  ok_code TYPE sy-ucomm.
9. CALL SCREEN 100.
11. MODULE init OUTPUT.
12.   SET PF-STATUS 'BASIC'.
13.   sflight-carrid = 'LH'. sflight-connid = '400'.
14. ENDMODULE.
16. MODULE exit INPUT.
17.   LEAVE PROGRAM.
18. ENDMODULE.
20. MODULE enqueue INPUT.
21.   CASE ok_code.
22.     WHEN 'ENQUEUE'.
23.       CALL FUNCTION 'ENQUEUE_EDEMOFLHT'
24.            EXPORTING
25.                 mode_sflight   = 'X'
26.                 carrid         = sflight-carrid
27.                 connid         = sflight-connid
28.                 fldate         = sflight-fldate
29.            EXCEPTIONS
30.                 foreign_lock   = 1
31.                 system_failure = 2
32.                 OTHERS         = 3.
34.       CASE sy-subrc.
35.         WHEN 0.
36.           MESSAGE i888 WITH 'Enqueue successful'(001).
37.         WHEN 1.
38.           text = sy-msgv1.
39.           MESSAGE e888 WITH 'Record already'(002) 'locked by'(003)
40.                                                    text.
41.           CALL TRANSACTION 'SM12'.
42.         WHEN 2 OR 3.
43.           MESSAGE e888 WITH 'Error in enqueue!'(004)
44.                             'SY-SUBRC:' sy-subrc.
45.       ENDCASE.
46.     WHEN 'DEQUEUE'.
47.       CALL FUNCTION 'DEQUEUE_EDEMOFLHT'
48.            EXPORTING
49.                 mode_sflight = 'X'
50.                 carrid       = sflight-carrid
51.                 connid       = sflight-connid
52.                 fldate       = sflight-fldate
53.            EXCEPTIONS
54.                 OTHERS       = 1.
55.       CASE sy-subrc.
56.         WHEN 0.
57.           MESSAGE i888 WITH 'Dequeue successful'(005).
58.         WHEN 1.
59.           MESSAGE e888 WITH 'Error in dequeue!'(006).
60.       ENDCASE.
61.     WHEN 'SM12'.
62.       CALL TRANSACTION 'SM12'.
63.   ENDCASE.
65. ENDMODULE.
67. MODULE select INPUT.
68.   CASE ok_code.
69.     WHEN 'SELECT'.
70.       SELECT * FROM sflight WHERE carrid = sflight-carrid
71.                               AND connid = sflight-connid
72.                               AND fldate = sflight-fldate.
73.       ENDSELECT.
74.       MESSAGE i888 WITH 'SY-SUBRC:' sy-subrc.
75.   ENDCASE.
76. ENDMODULE.

[Former Member]

Hi,

sorry,it is CALL TRANSACTION 'SM12' AT 43 line and i need to use

CALL TRANSACTION 'TCODE NAME' AND SKIP FIRST SCREEN and i need to display data in display

mode.

[rosenberg_eitan]

Hi,

If you want just to display data why lock it ?

For example use MM03 and not MM02 .

In your original question you were talking about screen 100 and 200 in the same program ?

regards.

[rosenberg_eitan]

Hi,

DEMO_TRANSACTION_ENQUEUE is used to demonstrate record level locking and only that

Regards.

[Former Member]

we have only one tcode for all display ,change and create,so if one user change data and another

user trying to change same record ,need get message RECORD  and data  should be display

in display mode for same record.

i have done it by using call screen screen number but

call transaction tcode name and skip first screen is not working in module pool?

can you give any information for above one .

[Former Member]

Hi,

K fine,

then what is the solution for above reply

[rosenberg_eitan]

Hi,

If the called program is a Z* program I suggest that you add to it "record level locking" .

Also add to the called program "Display" mode using a different transaction code like many SAP program do (I did mention MM02 and MM03 )

Regards.