Re: Lock Object in Module Pool

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.