SAP R/3 форум ABAP консультантов
Russian ABAP Developer's Club

Home - FAQ - Search - Memberlist - Usergroups - Profile - Log in to check your private messages - Register - Log in - English
Blogs - Weblogs News

запись переменной в файл



 
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> ABAP
View previous topic :: View next topic  
Author Message
rudeman
Специалист
Специалист



Joined: 21 Sep 2007
Posts: 55
Location: Киев

PostPosted: Wed Dec 12, 2007 4:48 pm    Post subject: запись переменной в файл Reply with quote

Подскажите плиз, как записать переменную в файл? Именно просто одну переменную, а не таблицу? Файл при этом нада создать.
Заранее благодарен.

_________________
Приятно когда программа из стадии "Блин, она не компилится!" переходит в стадию "Блин, она не работает!"
Back to top
View user's profile Send private message
vga
Мастер
Мастер


Age: 170
Joined: 04 Oct 2007
Posts: 1218
Location: Санкт-Петербург

PostPosted: Wed Dec 12, 2007 10:17 pm    Post subject: Reply with quote

У меня для отладки такой ФМ написан. Использовал для отладки фоновых процессов или field-exit.

Таблицы в словаре
ZERU_DEBUG
name(30) TYPE c
value(30) TYPE c

Пример использования:
Code:
 
DATA: lt_debug TYPE TABLE OF ZERU_DEBUG WITH HEADER LINE.
  REFRESH lt_debug.
  lt_debug-name = '->'.
  lt_debug-value = 0.
  APPEND lt_debug.

  lt_debug-name = 'bklas'.
  lt_debug-value = ls_mbew-bklas.
  APPEND lt_debug.

  lt_debug-name = 'werks'.
  lt_debug-value = ls_mbew-bwkey.
  APPEND lt_debug.

  lt_debug-name = 'matnr'.
  lt_debug-value = ls_mbew-matnr.
  APPEND lt_debug.

  CALL FUNCTION 'ZERUF_SAVE_DEBUG'
    EXPORTING
      I_FILENAME = 'A_debug.txt'
      I_MODE     = SPACE "создавать новый файл
      I_GUI        = SPACE "файл на сервере приложений
    TABLES
      T_DEBUG = lt_debug
    EXCEPTIONS
      OTHERS = 1.


Code:
FUNCTION ZERUF_SAVE_DEBUG.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     REFERENCE(I_FILENAME) TYPE  LOCALFILE DEFAULT '_DEBUG_.TXT'
*"     REFERENCE(I_MODE) DEFAULT 'A'
*"     REFERENCE(I_GUI)
*"  TABLES
*"      T_DEBUG STRUCTURE  ZERU_DEBUG
*"  EXCEPTIONS
*"      FILE_OPEN_ERROR
*"      FILE_WRITE_ERROR
*"      INVALID_FILESIZE
*"      INVALID_TYPE
*"      NO_BATCH
*"      UNKNOWN_ERROR
*"      INVALID_TABLE_WIDTH
*"      GUI_REFUSE_FILETRANSFER
*"      CUSTOMER_ERROR
*"----------------------------------------------------------------------

  IF I_GUI IS INITIAL.
    IF I_MODE IS INITIAL.
      OPEN DATASET I_FILENAME FOR OUTPUT IN TEXT MODE.
    ELSE.
      OPEN DATASET I_FILENAME FOR APPENDING IN TEXT MODE.
    ENDIF.
    IF NOT sy-subrc IS INITIAL.
      RAISE sy-subrc.
    ENDIF.
    LOOP AT T_DEBUG.
      TRANSFER T_debug TO I_FILENAME.
    ENDLOOP.
    CLOSE DATASET I_FILENAME.
  ELSE.
    CALL FUNCTION 'WS_DOWNLOAD'
     EXPORTING
          FILENAME                = I_FILENAME
          FILETYPE                = 'DAT'
          MODE                    = I_MODE
     TABLES
          DATA_TAB                = T_DEBUG
     EXCEPTIONS
          FILE_OPEN_ERROR         = 1
          FILE_WRITE_ERROR        = 2
          INVALID_FILESIZE        = 3
          INVALID_TYPE            = 4
          NO_BATCH                = 5
          UNKNOWN_ERROR           = 6
          INVALID_TABLE_WIDTH     = 7
          GUI_REFUSE_FILETRANSFER = 8
          CUSTOMER_ERROR          = 9
          OTHERS                  = 10
            .
    IF NOT sy-subrc IS INITIAL.
      RAISE sy-subrc.
    ENDIF.
  ENDIF.
ENDFUNCTION.
Back to top
View user's profile Send private message Blog Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> ABAP All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum


All product names are trademarks of their respective companies. SAPNET.RU websites are in no way affiliated with SAP AG.
SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver and any other are registered trademarks of SAP AG.
Every effort is made to ensure content integrity. Use information on this site at your own risk.