Активные транзакции(программы)

Pavel.Lozhka

Привет всем,

Может кто то подскажет как через абап или готовые ф.м. получить список активных программ транзакций как в sm04 . :oops:

Перерыл кучу доки а ничего путевого не нашел.

Задача такова что при запуске программы проверить нет ли запущенных таких же( или других из списка) программ в системе.

Заранее спасибо

РМщик

Code:

REPORT ZTEST.

DATA: BEGIN OF USR_TABL OCCURS 10.
        INCLUDE STRUCTURE UINFO.
DATA: END OF USR_TABL.
DATA: TH_OPCODE(1) TYPE X VALUE 6.


CALL 'ThUsrInfo' ID 'OPCODE' FIELD TH_OPCODE
ID 'TAB' FIELD USR_TABL-*SYS*.

LOOP AT USR_TABL.
    WRITE:/ USR_TABL-BNAME, USR_TABL-TCODE.
ENDLOOP.

Pavel.Lozhka

РМщик написал(а):

Code:

REPORT ZTEST.

Спасибо ,
Однако в данном случае это не устраивает структура USR_TABL
(MANDT BNAME TCODE TERM ZEIT и т.д.) не содержит кодов программ и отображает только активные как в см50 и если прога. гуевая и загруженна то там она даже не фигурируент.

Он

а может через объект блокирования с полем, содержащим имя программы, сделать?

Pavel.Lozhka

Он написал:

а может через объект блокирования с полем, содержащим имя программы, сделать?

Можно конечно , но меня теперь интересует сам принцып.
На сколько я знаю в любой БД есть табл. с перечнем сессий .
Неужели САП не может дать то же

.

Он

Так сессии же выше указали как достать, через код транзакции в таблице TSTC взять имена программ...

Все это может режить вашу первоначальноописанную задачу.

<Yuri>

Code:

DATA: BEGIN OF COMMON PART USR.
  DATA: BEGIN OF USR_TABL OCCURS 10.
          INCLUDE STRUCTURE USRINFO.
  DATA: END OF USR_TABL.
DATA: END OF COMMON PART USR.

DATA: TH_OPCODE(1)         TYPE X.

CONSTANTS: OPCODE_LIST   LIKE TH_OPCODE VALUE 2,
           OPCODE_LONG_LIST   LIKE TH_OPCODE VALUE 6.

call 'ThUsrInfo' id 'OPCODE' field OPCODE_LIST
      id 'TABUSR' field usr_tabl-*sys*.

Будет как в sm04.

РМщик

Pavel.Lozhka написал(а):

Привет всем,

получить список активных программ транзакций как в sm04 Заранее

sy-uname

Pavel.Lozhka написал(а):

Привет всем,

Может кто то подскажет как через абап или готовые ф.м. получить список активных программ транзакций как в sm04 . :oops:

Перерыл кучу доки а ничего путевого не нашел.

Задача такова что при запуске программы проверить нет ли запущенных таких же( или других из списка) программ в системе.

Заранее спасибо

А зачем это нужно?

Для разграничения доступа к совместноиспользуемым объектам в сапе существует механизм объектов блокирования - почему бы не воспользоваться им?

Да и поиском по сайту так же следует пользоваться - подобная тема уже поднималась пару месяцев назад.

РМщик

Code:

REPORT ZTEST.

DATA: BEGIN OF USR_INFO OCCURS 10.
DATA:   FIELD(40),
        VALUE(80).
DATA: END OF USR_INFO.

DATA: BEGIN OF SPIS OCCURS 0,
         PROGNAME(80),
       END OF SPIS.

DATA: OPCODE_USR_INFO(1) TYPE X  VALUE 52.
DATA: BEGIN OF USR_TABL OCCURS 10.
        INCLUDE STRUCTURE UINFO.
DATA: END OF USR_TABL.
DATA: TH_OPCODE(1) TYPE X VALUE 6.


CLEAR: SPIS, SPIS[].

CALL 'ThUsrInfo' ID 'OPCODE' FIELD TH_OPCODE
ID 'TAB' FIELD USR_TABL-*SYS*.

LOOP AT USR_TABL.
  REFRESH USR_INFO.

  CALL 'ThUsrInfo' ID 'OPCODE' FIELD OPCODE_USR_INFO
    ID 'TID' FIELD USR_TABL-TID
    ID 'TABLE' FIELD USR_INFO-*SYS*.

  LOOP AT USR_INFO WHERE FIELD CS 'programInfo'.
    APPEND USR_INFO-VALUE TO SPIS.
  ENDLOOP.

ENDLOOP.

LOOP AT SPIS.
    WRITE:/ SPIS-PROGNAME.
ENDLOOP.

Pavel.Lozhka

[quote="РМщик"]

Code:

REPORT ZTEST.

DATA: BEGIN OF USR_INFO OCCURS 10.
DATA:   FIELD(40),
        VALUE(80).
DATA: END OF USR_INFO.

DATA: BEGIN OF SPIS OCCURS 0,
         PROGNAME(80),
       END OF SPIS.

DATA: OPCODE_USR_INFO(1) TYPE X  VALUE 52.
DATA: BEGIN OF USR_TABL OCCURS 10.
        INCLUDE STRUCTURE UINFO.
DATA: END OF USR_TABL.
DATA: TH_OPCODE(1) TYPE X VALUE 6.


CLEAR: SPIS, SPIS[].

CALL 'ThUsrInfo' ID 'OPCODE' FIELD TH_OPCODE
ID 'TAB' FIELD USR_TABL-*SYS*.

LOOP AT USR_TABL.
  REFRESH USR_INFO.

  CALL 'ThUsrInfo' ID 'OPCODE' FIELD OPCODE_USR_INFO
    ID 'TID' FIELD USR_TABL-TID
    ID 'TABLE' FIELD USR_INFO-*SYS*.

  LOOP AT USR_INFO WHERE FIELD CS 'programInfo'.
    APPEND USR_INFO-VALUE TO SPIS.
  ENDLOOP.

ENDLOOP.

LOOP AT SPIS.
    WRITE:/ SPIS-PROGNAME.
ENDLOOP.

Это именно то чо я искал

Спасибо

DKiyanov

Маленькое замечание : ThUsrInfo - вернёт данные только по текущему application серверу...если у вас их больше одного надо сделать соотв. ФМ и вызвать на каждой инстанции см. ФМ RFC_GET_LOCAL_DESTINATIONS

Правила форума

Активные транзакции(программы)

Кто сейчас на конференции