Ракурсы

Element

Господа, что-то не могу найти ФМ для выгрузки в txt или распечатки в приличном виде содержимого Ракурса. Писать как-то не хочется, может есть стандартный?
И ещё вопросик: есть таблицы с очень длинными полями, настолько длинными, что при запросе содержимого таблицы система выдаёт месс об шоибке (ссылается на то что поле слишком длинно). Нет ли для чтения таких таблиц какого ФМ?

Заранее всем Спасибо!

s_ss

По второму вопросу:
У меня есть такие таблицы.
Запросы проходят без проблем.
Скорее всего неправильно указан тип полей.

РМщик

тут всего-то делов

Code:

REPORT  ZTEST290                                 .


DATA:       VR TYPE REF TO DATA,
            FILEN TYPE STRING.

PARAMETERS: TABNAM(16) MATCHCODE OBJECT DD_DBTB_16.
PARAMETERS: FILENAME LIKE  RLGRAP-FILENAME DEFAULT 'C:\TABLE.TXT'.

FIELD-SYMBOLS: <WA>,
               <P> TYPE STANDARD TABLE.

TABLES: DD02L.

START-OF-SELECTION.
  CLEAR DD02L.
  SELECT SINGLE * FROM DD02L WHERE TABNAME = TABNAM.
  IF  NOT DD02L-TABNAME IS INITIAL.
    CREATE DATA VR TYPE STANDARD TABLE OF (TABNAM).
    ASSIGN VR->* TO <P>.
    FILEN = FILENAME.
    CLEAR <P>. REFRESH <P>.
    SELECT * FROM (TABNAM) APPENDING TABLE <P>.
    CALL FUNCTION 'GUI_DOWNLOAD'
      EXPORTING
        FILENAME = FILEN
        FILETYPE = 'BIN'
      TABLES
        DATA_TAB = <P>
      EXCEPTIONS
        OTHERS   = 1.
    IF SY-SUBRC = 0.
      WRITE:/ 'Выгрузка прошла успешно в файл ',FILENAME.
    ELSE.
      WRITE:/ 'Ошибка выгрузки'.
    ENDIF.
  ELSE.
    WRITE:/ 'Неправильное имя таблицы/ракурса'.
  ENDIF.

Geolog

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

тут всего-то делов

Code:

...
  IF  NOT DD02L-TABNAME IS INITIAL.
    CREATE DATA VR TYPE STANDARD TABLE OF (TABNAM).
    ASSIGN VR->* TO <P>.
    FILEN = FILENAME.
    CLEAR <P>. REFRESH <P>.
    SELECT * FROM (TABNAM) APPENDING TABLE <P>.
    CALL FUNCTION 'GUI_DOWNLOAD'
      EXPORTING
        FILENAME = FILEN
        FILETYPE = 'BIN'
      TABLES
        DATA_TAB = <P>
      EXCEPTIONS
        OTHERS   = 1.
    IF SY-SUBRC = 0.
      WRITE:/ 'Выгрузка прошла успешно в файл ',FILENAME.
    ELSE.
      WRITE:/ 'Ошибка выгрузки'.
    ENDIF.
  ELSE.
    WRITE:/ 'Неправильное имя таблицы/ракурса'.
  ENDIF.

на CREATE DATA VR TYPE STANDARD TABLE OF (TABNAM) ругается
"Unable to interpret "TABLE". бла-бла-бла". 4.6C

EGF

В 4.6С создать таким образом объект данных, похоже, не удастся. Попробуйте воспользоваться методом create_dynamic_table класса cl_alv_table_create.

Гость

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

В 4.6С создать таким образом объект данных, похоже, не удастся. Попробуйте воспользоваться методом create_dynamic_table класса cl_alv_table_create.

Спасибо.

Заменил на:

CALL FUNCTION 'GET_FIELDTAB'
EXPORTING
tabname = tabnam
withtext = 'X'
TABLES
fieldtab = fieldtab.

LOOP at fieldtab.
MOVE-CORRESPONDING fieldtab TO fieldcat.
APPEND fieldcat.
ENDLOOP.

CALL METHOD cl_alv_table_create=>create_dynamic_table
EXPORTING
it_fieldcatalog = fieldcat[]
IMPORTING
ep_table = vr.

Только вот VR пустая всегда возвращается

. С чем может быть сязано? :roll:

EGF

Не совсем понял. Таким образом Вы заменили всего одну строку

Code:

CREATE DATA VR TYPE STANDARD TABLE OF (TABNAM).

А всё остальное, думаю, можно делать, как писал PMщик.

Geolog

Именно так - одну эту строку.

Все нормально, разобрался: vr->* содержит структуру динамически созданной таблицы.

Спасибо.

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

Ракурсы

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