Странности передачи параметров в формах

Insect

Для получения списка файлов директории есть стандартный метод: cl_gui_frontend_services=>directory_list_files
Чтобы не заморачиваться лишними буквами, обернул вызов этого метода в форму. Вот таким кодом:

Code:

form GET_DIR_LIST tables FTABLE  "type FILE_INFO
                              using  DIRNAME.
 
  data: count TYPE i, S_DIRNAME type STRING.
  S_DIRNAME = DIRNAME. "согласуем типы

  call method CL_GUI_FRONTEND_SERVICES=>DIRECTORY_LIST_FILES
    exporting DIRECTORY  = S_DIRNAME
                  FILES_ONLY   = 'X'
                  DIRECTORIES_ONLY = ' '
    changing  FILE_TABLE   = FTABLE
                   COUNT         = COUNT.
endform.

Вызываем форму вот таким образом:

Code:

  data: DIRFILES type standard table of FILE_INFO.
  perform GET_DIR_LIST tables DIRFILES using  'D:\'.

Компилируем - всё ОК, но при вызове получаем дамп про несоответствие типов между FILE_TABLE и FTABLE.
Ладно. Убираем обертку ввиде формы и вызываем непосредственно код внутри формы. Всё прекрасно работает.
Т.е. такое впечатление, что передача таблицы через форму искажает её тип..((((
Эксперименты с приделыванием хвостов с типом к определению формы ничего не дали..((
Есть у кого какие мнения насчет борьбы с этой вот странностью?

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

John Doe

Внутри формы таблицу типизируйте.

Code:

FORM get_dir_list TABLES ftable STRUCTURE file_info
USING dirname.

  DATA: count TYPE i, s_dirname TYPE string.
  s_dirname = dirname. "ñîãëàñóåì òèïû

  CALL METHOD cl_gui_frontend_services=>directory_list_files
    EXPORTING
      directory        = s_dirname
      files_only       = 'X'
      directories_only = ' '
    CHANGING
      file_table       = ftable[]
      count            = count.
ENDFORM.                    "GET_DIR_LIST

Insect

Thank за идею. На самом деле, даже типизировать не пришлось.
Фишка оказалась в добавке хвоста [] к имени таблицы: FTABLE[]. Т.е. вызов метода должен быть таким:

Code:

call method CL_GUI_FRONTEND_SERVICES=>DIRECTORY_LIST_FILES
    exporting DIRECTORY        = S_DIRNAME
              FILES_ONLY       = 'X'
              DIRECTORIES_ONLY = ' '
    changing  FILE_TABLE       = FTABLE[color=#BF0040][b][][/b][/color]
              COUNT            = COUNT.

Bully

Insect, пожалуйста, используй тег code для оформления ABAP-кода.

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

Странности передачи параметров в формах

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