ошибка при вызове perform

DaV

Hello,

есть следующая проблема в программе объявлена таблица (в самой программе не используется только в перформах ) и структура

Code:

*Tabelle
DATA:
      lt_user_name TYPE TABLE OF v_username ,
      lt_messages_detail TYPE TABLE OF bapiret2,
      lt_messages_change TYPE TABLE OF bapiret2 .

*Type

TYPES: BEGIN  OF  type_protokol,
  bname TYPE bapibname,
  alt_nachname TYPE bu_namep_l,
  symbol(3) TYPE c,
  new_nachname TYPE bu_namep_l,
  tatigkeit(1) TYPE c,
  t_meldung LIKE lt_messages_detail,
END OF type_protokol.

*Tabelle
DATA:  lt_protokol TYPE TABLE OF type_protokol .

*Struckure
DATA:
      ls_user_name TYPE  v_username ,
      ls_person_data TYPE bapibus1006_central_person,
      ls_protokol TYPE type_protokol.

***
вызывается перформа к примеру

Code:

    CLEAR lv_type_protokol.
          lv_type_protokol = 1.
PERFORM schreiben_protokol       TABLES lt_protokol using lv_type_protokol .

ее код

Code:

FORM schreiben_protokol  TABLES pt_protokol  STRUCTURE ls_protokol using pv_type_protokol like lv_type_protokol.

  CASE lv_type_protokol.
    WHEN 1.         "Fehler bei Lese der Daten des Users, keine Änderung
      ls_protokol-bname = lv_username.
      ls_protokol-tatigkeit = space.
      REFRESH ls_protokol-t_meldung .
      MOVE lt_messages_detail TO ls_protokol-t_meldung .


    WHEN 2.          "Fehler bei der Änderung, Return-Tabelle der Funktion 'BBP_USER_CHANGE' ist nicht leer.

      ls_protokol-bname = lv_username.
      ls_protokol-symbol = '->'.
      ls_protokol-new_nachname = ls_person_data-lastname.
      ls_protokol-tatigkeit = space.
      REFRESH ls_protokol-t_meldung .
      MOVE lt_messages_change TO ls_protokol-t_meldung .

    WHEN 3.         " Ordnung, Anderung wurde erfolgreich gemacht
      ls_protokol-bname = lv_username.
      ls_protokol-symbol = '->'.
      ls_protokol-new_nachname = ls_person_data-lastname.
      ls_protokol-tatigkeit = 'X'.
  ENDCASE.

  APPEND ls_protokol TO pt_protokol.

при расширенной проверка возникает предупреждение, что в стороке FORM schreiben_protokol TABLES pt_protokol STRUCTURE ls_protokol
таблица pt_protokol относится к двум полям pt_protokol[] и header line,

как Вы думаете из-за чего такое может быть?

Rokhay

После передачи параметра как TABLE таблица стала со строкой заголовка. Т.е появилось два объекта с одинаковым именем - структура и таблица. Об этом вас предупреждают.

DaV

Rokhay написал:

После передачи параметра как TABLE таблица стала со строкой заголовка. Т.е появилось два объекта с одинаковым именем - структура и таблица

но при вызове другой перформы с той же самой таблицей такого предупреждения нет

sy-uname

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

но при вызове другой перформы с той же самой таблицей такого предупреждения нет

Какой другой?

Rokhay

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

но при вызове другой перформы с той же самой таблицей такого предупреждения нет

дело вообще не в перформе, а в появлении структуры с тем же именем.
При повторной передаче параметров в другую подпрограмму никаких изменений в структуре глобальных данных не происходит.

Проверьте программу, состоящую из кода:

Code:

TYPES: BEGIN  OF  type_protokol,
  bname TYPE bapibname,
  alt_nachname TYPE bu_namep_l,
  symbol(3) TYPE c,
  new_nachname TYPE bu_namep_l,
  tatigkeit(1) TYPE c,
END OF type_protokol.

DATA:  lt_protokol TYPE TABLE OF type_protokol WITH HEADER LINE.

DaV

Rokhay написал:

дело вообще не в перформе, а в появлении структуры с тем же именем.
При повторной передаче параметров в другую подпрограмму никаких изменений в структуре глобальных данных не происходит.

сделал ошибка осталась.

sy-uname написал(а):

Какой другой?

к примеру

Code:

PERFORM aenderung_nachname_erweitern TABLES lt_protokol .

Code:

FORM aenderung_nachname_erweitern TABLES lt_protokol .

  lv_len  = STRLEN( ls_person_data-lastname ) + STRLEN( p_zusatz ).
....
endform.

Rokhay

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

сделал ошибка осталась.

Ну да. А вы чего ожидали?

VID

Сколько мучался с этими параметрами для подпрограмм, объявленных через TABLES ... STRUCTURE ..., что теперь просто пишу TABLES ... и все. И все работает.

DKiyanov

ИМНО
В вашем случае правильнее было бы написать:

Code:

FORM schreiben_protokol  TABLES pt_protokol TYPE STANDARD TABLE type_protokol USING pv_type_protokol like lv_type_protokol.

собственно что STRUCTURE что TYPE в данном случае нужны для того чтобы можно было по человечески обращаться к полям в header_line таблицы, если вы header_line использовать не собираетесь (а вы его и не используете) то и типизация его вам не нужна и можно делать как написал VID

ЗЫ хз почему САП отказался от header_line, а я их всё равно использую

Jelena

IMHO Help все достаточно подробно объясняет:

Цитата:

... TABLES table_parameters

Effect
TABLES is used to declare table parameters table_parameters. Table parameters are obsolete formal parameters that are typed as internal standard tables with header lines. The addition TABLES can be listed only before USING or CHANGING.

If an internal table without header line or a table body is transferred as an actual parameter to this type of formal parameter, then an empty local header line is generated in the subroutine. If an internal table with header line is used as the actual parameter, then both the table body and the header line are passed to the subroutine. For formal parameters defined with TABLES, no pass by value is possible.

Notes
Formal parameters defined with TABLES can be replaced by formal parameters defined with USING or CHANGING. A local work area can also be created in the subroutine using the addition LIKE LINE OF itab of statement DATA.

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

ошибка при вызове perform

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