Небольшая подпрограмма (form debug) для дебага таблиц

boreich

Всем добрый день.

Возможно, это и не стОит отдельной темы, но люди иногда ищут именно по названию темы. Да, в плане кода, выглядит это всё отвратительно, но мне пригодилось =) Вообщем, эта форма выводит некоторые системные поля отдельным сообщением. Ничего особенного, но может кому-нибудь будет полезно. А если кто-то подскажет как можно это всё написать лучше - буду только благодарен. Поидее блок CONCATENATE - APPEND можно вынести и отдельно, но мне кажется здесь это не нужно. Собственно, это всё так выглядит из-за того, что я не смог найти символ перевода каретки в АБАП; можно было обойтись тогда и одной строкой вместо таблицы.

Code:

FORM debug.
  DATA: sy_table   LIKE tline OCCURS 12 WITH HEADER LINE,
        temp(4)    TYPE c.

  WRITE sy-tabix TO temp.
  CONCATENATE 'Строка таблицы______________' temp INTO sy_table.  APPEND sy_table.
  WRITE sy-fdpos TO temp.
  CONCATENATE 'Положение текстовой строки__' temp INTO sy_table.  APPEND sy_table.
  WRITE sy-dynnr TO temp.
  CONCATENATE 'Номер текущего экрана_______' temp INTO sy_table.  APPEND sy_table.
  WRITE sy-pfkey TO temp.
  CONCATENATE 'Текущий GUI статус__________' temp INTO sy_table.  APPEND sy_table.
  WRITE sy-pagno TO temp.
  CONCATENATE 'Текущая страница____________' temp INTO sy_table.  APPEND sy_table.
  WRITE sy-colno TO temp.
  CONCATENATE 'Текущий столбец_____________' temp INTO sy_table.  APPEND sy_table.
  WRITE sy-linno TO temp.
  CONCATENATE 'Текущая строка списка_______' temp INTO sy_table.  APPEND sy_table.
  WRITE sy-linct TO temp.
  CONCATENATE 'Число строк в списке________' temp INTO sy_table.  APPEND sy_table.
  WRITE sy-cucol TO temp.
  CONCATENATE 'Положение курсора(столбец)__' temp INTO sy_table.  APPEND sy_table.
  WRITE sy-curow TO temp.
  CONCATENATE 'Положение курсора(строка)___' temp INTO sy_table.  APPEND sy_table.
  WRITE sy-lsind TO temp.
  CONCATENATE 'Номер стекового списка______' temp INTO sy_table.  APPEND sy_table.
  WRITE sy-winco TO temp.
  CONCATENATE 'Столбец курсора в окне______' temp INTO sy_table.  APPEND sy_table.
  WRITE sy-winro TO temp.
  CONCATENATE 'Строка курсора в окне_______' temp INTO sy_table.  APPEND sy_table.

  CALL FUNCTION 'POPUP_WITH_TABLE_DISPLAY_OK'
    EXPORTING
      endpos_col    = 32
      endpos_row   = 10
      startpos_col   = 1
      startpos_row  = 1
      titletext          = ''
    TABLES
      valuetab        = sy_table.
ENDFORM.

pberezin

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

выводить msgbox-ы на экран - я так понимаю это "Колхозъ" по саповским канонам

AFH

Символ перевода строки: CL_ABAP_CHAR_UTILITIES=>NEWLINE. Хотя, наверное, в данном случае не поможет.

Если хочется поколхозить можно еще так:

Code:

data: ld_xml type xstring.
call transformation id source val = sy
                              result xml ld_xml.
cl_abap_browser=>show_xml(
            exporting
              xml_xstring  = ld_xml
          ).

Вместо sy может быть что угодно.

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

Небольшая подпрограмма (form debug) для дебага таблиц

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