Subscribe

RSS Feed (xml)



Powered By

Skin Design:
Free Blogger Skins

Powered by Blogger

Friday, October 15, 2010

Simple macro that prevents runnig more than one instance of the same ABAP the same time

ZCHK_MYSELF_RUNNING 000 *Prevent the program from having more
ZCHK_MYSELF_RUNNING 001 *the one instance running the same time.
ZCHK_MYSELF_RUNNING 002 *Create this macro in TRMAC using SM31
ZCHK_MYSELF_RUNNING 003 *Insert the following single line in the
ZCHK_MYSELF_RUNNING 004 *program right after the REPORT state-
ZCHK_MYSELF_RUNNING 005 *ment: ZCHK_MYSELF_RUNNING SY-REPID.
ZCHK_MYSELF_RUNNING 010 DATA: PRG LIKE INDX-SRTFD. PRG = &1
ZCHK_MYSELF_RUNNING 011 CALL FUNCTION 'ENQUEUE_ESINDX' *
ZCHK_MYSELF_RUNNING 012 EXPORTING RELID = 'ZZ' *
ZCHK_MYSELF_RUNNING 013 SRTFD = PRG *
ZCHK_MYSELF_RUNNING 014 SRTF2 = 0 *
ZCHK_MYSELF_RUNNING 015 EXCEPTIONS FOREIGN_LOCK = 1 *
ZCHK_MYSELF_RUNNING 016 SYSTEM_FAILURE = 2
ZCHK_MYSELF_RUNNING 017 IF SY-SUBRC NE 0
ZCHK_MYSELF_RUNNING 018 WRITE: 'ERROR:',PRG,'is already running'
ZCHK_MYSELF_RUNNING 019 EXIT. ENDIF

No comments:

Blog Archive