Lock change of ztransaction while using in migo

Question

hi all,
in general how do we stop change of a document while it is edited in other transaction .
Ex : if  PO number is in use while doing MIGO it will stop us editing in ME22n.
i have a similar requirement , we have a modulepool program ZMRN_CREATE, ZMRN_CHANGE jst like ME21n ME22n .
the number generated here  is used in MIGO , how can i stop editing or change of MRN number while it is in use in MIGO screen.
Thanks in advance...Pl help in this regard...
Deepak.

Answer 1

Hi Deepak ,
Use this report in your program to lock and unlock your tcode in the background.
use SUBMIT statement in your current module pool.
REPORT Z_LOCK_UNLOCK_TRANSACTIONS
LINE-SIZE 80
MESSAGE-ID 00.
* Program to lock and unlock transactions
* Suvendu Swain
TABLES: TSTC.
DATA: LOCK_TEXT(30).
*SELECTION-SCREEN begin.
SELECT-OPTIONS: S_TCODE FOR TSTC-TCODE OBLIGATORY NO INTERVALS.
PARAMETERS: P_LOCK RADIOBUTTON GROUP A,
P_UNLOCK RADIOBUTTON GROUP A DEFAULT 'X'.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'SM01'.
IF SY-SUBRC NE 0.
MESSAGE E172 WITH TEXT-010.
STOP.
ENDIF.
IF P_LOCK &H3D 'X'.
LOCK_TEXT &H3D TEXT-008.
ELSE.
LOCK_TEXT &H3D TEXT-009.
ENDIF.
LOOP AT S_TCODE.
CALL FUNCTION 'Z_LOCK_UNLOCK_TRANSACTIONS'
EXPORTING
TCODE &H3D S_TCODE-LOW
LOCK &H3D P_LOCK
UNLOCK &H3D P_UNLOCK
EXCEPTIONS
FAIL_TO_LOCK &H3D 1
FAIL_TO_UNLOCK &H3D 2
INVALID_TCODE &H3D 3
INVALID_OPTIONS &H3D 4
TRANSACTION_ALREADY_LOCKED &H3D 5
TRANSACTION_ALREADY_UNLOCKED &H3D 6
OTHERS &H3D 7.
CASE SY-SUBRC.
WHEN 0.
WRITE:/ TEXT-001, S_TCODE-LOW, LOCK_TEXT.
WHEN 1.
WRITE:/ TEXT-002, S_TCODE-LOW.
WHEN 2.
WRITE:/ TEXT-003, S_TCODE-LOW.
WHEN 3.
WRITE:/ TEXT-004, S_TCODE-LOW.
WHEN 4.
WRITE:/ TEXT-005, S_TCODE-LOW.
WHEN 5.
WRITE:/ TEXT-006, S_TCODE-LOW.
WHEN 6.
WRITE:/ TEXT-007, S_TCODE-LOW.
ENDCASE.
ENDLOOP.
hope this will solve your problem.
cheers,
Suvendu
Edited by: Suvendu Swain on May 10, 2009 10:27 AM