не судите строго...

Kanev

вот написал программку, которая должна эмулировать действия пользователя, собственно что она и делает...(на вопрос зачем, скажу сразу, что нравится транзакция sm04 и активность некоторых людей прямо таки удивляет :wink:

), ...
если есть возможность улучшить(уверен, что есть) поделитесь соображениями, может весь подход стоит изменить...

Code:

REPORT  z_xxx.

TABLES: tstc.

DATA: random_number TYPE int4,
      rnd_value LIKE  datatype-char0128,
      temp_num(2) TYPE c,
      trans(4) TYPE c,
      trans_code(4) TYPE c.
DATA: gv_counter TYPE int4.
DATA:    bdcdata LIKE bdcdata  OCCURS 0 WITH HEADER LINE.

START-OF-SELECTION.

  PARAMETERS p_module(2) TYPE c.            "Выбор области(se, su, fi etc)
  PARAMETERS p_time TYPE i DEFAULT 1.     "Время задержки в секундах
  PARAMETERS p_iter TYPE i DEFAULT 100.     "Количество итераций

END-OF-SELECTION.
  WHILE gv_counter LT p_iter.
    PERFORM random_transactions.
    gv_counter = gv_counter + 1.
  ENDWHILE.

*&---------------------------------------------------------------------*
*&      Form  random_transactions
*&---------------------------------------------------------------------*
FORM random_transactions.

* PERFORM bdc_field USING 'BDC_OKCODE' '=N'.
  PERFORM bdc_field USING 'BDC_OKCODE' '=BACK'.

  CALL FUNCTION 'SXMS_CREATE_RANDOM_NUMBER'
    IMPORTING
      random_number = random_number.

  CALL FUNCTION 'RANDOM_C'
    EXPORTING
      len_min   = 2
      len_max   = 2
      char_min  = 1
      char_max  = 26
    IMPORTING
      rnd_value = rnd_value.

  MOVE random_number TO temp_num.
* CONCATENATE rnd_value temp_num INTO trans_code.
  CONCATENATE p_module temp_num INTO trans_code.

  SELECT COUNT( * ) FROM tstc WHERE tcode EQ trans_code.
  IF sy-dbcnt NE 0.
    WRITE: / 'Transaction code: ', trans_code.
    CALL FUNCTION 'C14Z_WAIT_N_SECONDS'
      EXPORTING
        i_no_of_seconds = p_time.
    CALL TRANSACTION trans_code USING bdcdata MODE 'N'.
  ENDIF.
* WRITE: / 'Transaction code not in list: ', trans_code.


ENDFORM.                    "random_transactions
*----------------------------------------------------------------------*
*        Start new screen                                              *
*----------------------------------------------------------------------*
FORM bdc_dynpro USING program dynpro.
  CLEAR bdcdata.
  bdcdata-program  = program.
  bdcdata-dynpro   = dynpro.
  bdcdata-dynbegin = 'X'.
  APPEND bdcdata.
ENDFORM.                    "BDC_DYNPRO

*----------------------------------------------------------------------*
*        Insert field                                                  *
*----------------------------------------------------------------------*
FORM bdc_field USING fnam fval.
  IF NOT fval IS INITIAL.
    CLEAR bdcdata.
    bdcdata-fnam = fnam.
    bdcdata-fval = fval.
    CONDENSE bdcdata-fval.
    APPEND bdcdata.
  ENDIF.
ENDFORM.                    "BDC_FIELD 

P.S. написано исключительно в целях самообучения...очень сырая версия...

Он

Я бы посоветовал использовать реальные транзакции, а не генерить их имена, учитывая, что ваши имена генерятся не правильно и не в одну существующую транзакцию не попал. Берите транзакции из TADIR OBJECT = 'TRAN'. Можно убрать стэйтмент TABLES, не нужна одна из подпрограмм для пакета, параметры у вас объявлены в секции START-OF-SELECTION, хотя там не должны быть... обработка должна идти в этом блоке.... это так по мелочам если... успехов в обучении;)

Snegurenok

на месте базиса убил бы ... 20 таких прог убьют производительность ... на ура

Kanev

Snegurenok написал(а):

на месте базиса убил бы ... 20 таких прог убьют производительность ... на ура

для избежания этого и введен таймер: если поставить минут на 10 задержку, то вроде как не слишком грузишь систему...

Uukrul

Kanev написал(а):

Snegurenok написал(а):

на месте базиса убил бы ... 20 таких прог убьют производительность ... на ура

для избежания этого и введен таймер: если поставить минут на 10 задержку, то вроде как не слишком грузишь систему...

Таймер, ну это когда на расстрел админы поведут, то расстреляют сразу и наверное, без мучений... так что за таймер молодец... адназначна.

Kanev

Uukrul написал(а):

Kanev написал(а):

Snegurenok написал(а):

на месте базиса убил бы ... 20 таких прог убьют производительность ... на ура

для избежания этого и введен таймер: если поставить минут на 10 задержку, то вроде как не слишком грузишь систему...

Таймер, ну это когда на расстрел админы поведут, то расстреляют сразу и наверное, без мучений... так что за таймер молодец... адназначна.

смысл ваши слов для меня остался загадкой

, я надеюсь Вы понимаете, что программа носит скорее экспериментальный и юмористический оттенок

Snegurenok

угу - а первый приз в этой юморине - программе из одной строчки

DELETE FROM bkpf.

Kanev

Snegurenok написал(а):

угу - а первый приз в этой юморине - программе из одной строчки

DELETE FROM bkpf.

весь смысл в том, чтоб в системе не гадить...
поэтому это изначально ясно...

Snegurenok

Kanev написал(а):

Snegurenok написал(а):

угу - а первый приз в этой юморине - программе из одной строчки

DELETE FROM bkpf.

весь смысл в том, чтоб в системе не гадить...
поэтому это изначально ясно...

т.е. отбирать ресурсы системы непонятно на что - ето не гадить системе ? - ну тогда число PI считайте уж -хоть какая то польза для науки будет ...

Kanev

Snegurenok написал(а):

Kanev написал(а):

Snegurenok написал(а):

угу - а первый приз в этой юморине - программе из одной строчки

DELETE FROM bkpf.

весь смысл в том, чтоб в системе не гадить...
поэтому это изначально ясно...

т.е. отбирать ресурсы системы непонятно на что - ето не гадить системе ? - ну тогда число PI считайте уж -хоть какая то польза для науки будет ...

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

Snegurenok

во всем можно найти положительные моменты - особенно много их в добавлении себе в обход безопсности профиля SAP_ALL

Kanev

Snegurenok написал(а):

во всем можно найти положительные моменты - особенно много их в добавлении себе в обход безопсности профиля SAP_ALL

а это Вы к чему? :shock:

Sten

топик можно в раздел Юмор смело переносить - посмеялся, спасибо!

Preatos

Kanev написал(а):

вот написал программку, которая должна эмулировать действия пользователя, собственно что она и делает...(на вопрос зачем, скажу сразу, что нравится транзакция sm04 и активность некоторых людей прямо таки удивляет :wink:

), ...
если есть возможность улучшить(уверен, что есть) поделитесь соображениями, может весь подход стоит изменить...

Code:

REPORT  z_xxx.

TABLES: tstc.

DATA: random_number TYPE int4,
      rnd_value LIKE  datatype-char0128,
      temp_num(2) TYPE c,
      trans(4) TYPE c,
      trans_code(4) TYPE c.
DATA: gv_counter TYPE int4.
DATA:    bdcdata LIKE bdcdata  OCCURS 0 WITH HEADER LINE.

START-OF-SELECTION.

  PARAMETERS p_module(2) TYPE c.            "Выбор области(se, su, fi etc)
  PARAMETERS p_time TYPE i DEFAULT 1.     "Время задержки в секундах
  PARAMETERS p_iter TYPE i DEFAULT 100.     "Количество итераций

END-OF-SELECTION.
  WHILE gv_counter LT p_iter.
    PERFORM random_transactions.
    gv_counter = gv_counter + 1.
  ENDWHILE.

*&---------------------------------------------------------------------*
*&      Form  random_transactions
*&---------------------------------------------------------------------*
FORM random_transactions.

* PERFORM bdc_field USING 'BDC_OKCODE' '=N'.
  PERFORM bdc_field USING 'BDC_OKCODE' '=BACK'.

  CALL FUNCTION 'SXMS_CREATE_RANDOM_NUMBER'
    IMPORTING
      random_number = random_number.

  CALL FUNCTION 'RANDOM_C'
    EXPORTING
      len_min   = 2
      len_max   = 2
      char_min  = 1
      char_max  = 26
    IMPORTING
      rnd_value = rnd_value.

  MOVE random_number TO temp_num.
* CONCATENATE rnd_value temp_num INTO trans_code.
  CONCATENATE p_module temp_num INTO trans_code.

  SELECT COUNT( * ) FROM tstc WHERE tcode EQ trans_code.
  IF sy-dbcnt NE 0.
    WRITE: / 'Transaction code: ', trans_code.
    CALL FUNCTION 'C14Z_WAIT_N_SECONDS'
      EXPORTING
        i_no_of_seconds = p_time.
    CALL TRANSACTION trans_code USING bdcdata MODE 'N'.
  ENDIF.
* WRITE: / 'Transaction code not in list: ', trans_code.


ENDFORM.                    "random_transactions
*----------------------------------------------------------------------*
*        Start new screen                                              *
*----------------------------------------------------------------------*
FORM bdc_dynpro USING program dynpro.
  CLEAR bdcdata.
  bdcdata-program  = program.
  bdcdata-dynpro   = dynpro.
  bdcdata-dynbegin = 'X'.
  APPEND bdcdata.
ENDFORM.                    "BDC_DYNPRO

*----------------------------------------------------------------------*
*        Insert field                                                  *
*----------------------------------------------------------------------*
FORM bdc_field USING fnam fval.
  IF NOT fval IS INITIAL.
    CLEAR bdcdata.
    bdcdata-fnam = fnam.
    bdcdata-fval = fval.
    CONDENSE bdcdata-fval.
    APPEND bdcdata.
  ENDIF.
ENDFORM.                    "BDC_FIELD 

P.S. написано исключительно в целях самообучения...очень сырая версия...

Что-то я не пойму... у меня в логах только se38. может я ни туда смотрю... как посмотреть полный логв sm04? куда ткнуть то?

))

Kanev

Preatos написал:

Что-то я не пойму... у меня в логах только se38. может я ни туда смотрю... как посмотреть полный логв sm04? куда ткнуть то?

))

если вас понял правильно, то посмотреть , что запускалось/работает можно тут:
в SM04 кликните на пользователе...
еще есть STAT...
eще SM21...

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

не судите строго...

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