interne Tabelle als csv-Datei auf Server speichern

[Meike1063]

Moin zusammen,

der oft erwähnte Baustein SAP_CONVERT_TO_CSV_FORMAT existiert in meinem System hier nicht.

Ich hab mir ein Testprogramm über "open dataset" geschrieben - aber das ist nicht das ware da es keine dynamischen Strukturen erkennt.

Jetzt ist die Frage, ob es eine Alternative gibt?

gruß

Sebastian

[Tron]

Moin Sebastian.
Ich würde mit dem Baustein RFC_READ_TABLE und semicolon als delimiter die Daten auf dem Server speichern.
Beispiel:

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. *&---------------------------------------------------------------------*
2. *& Report  YBC_WRITE_ITAB_TO_SERVER
3. *&
4. *&---------------------------------------------------------------------*
5. *&
6. *&
7. *&---------------------------------------------------------------------*
8. REPORT ybc_write_itab_to_server.
9.  
10. PARAMETERS i_tab TYPE dd02l-tabname DEFAULT 'SFLIGHT'.
11. PARAMETERS i_file TYPE rcgiedial-iefile LOWER CASE DEFAULT '\\SERVER\sapmnt\trans\tmp\000.csv'.
12.  
13. DATA:
14. lt_options TYPE TABLE OF rfc_db_opt,
15. lt_fields TYPE TABLE OF rfc_db_fld,
16. lt_data TYPE TABLE OF tab512,
17. ls_data TYPE tab512.
18.  
19. CALL FUNCTION 'RFC_READ_TABLE'
20.   EXPORTING
21.     query_table                = i_tab
22.     delimiter                  = ';'
23. *   NO_DATA                    = ' '
24. *   ROWSKIPS                   = 0
25. *   ROWCOUNT                   = 0
26.   TABLES
27.     options                    = lt_options
28.     fields                     = lt_fields
29.     data                       = lt_data
30.  EXCEPTIONS
31.    table_not_available        = 1
32.    table_without_data         = 2
33.    option_not_valid           = 3
34.    field_not_valid            = 4
35.    not_authorized             = 5
36.    data_buffer_exceeded       = 6
37.    OTHERS                     = 7.
38.  
39. IF sy-subrc <> 0 OR lt_data[] IS INITIAL.
40. EXIT.
41. ENDIF.
42.  
43. * open dataset for writing
44.   OPEN DATASET i_file FOR OUTPUT IN TEXT MODE
45.                ENCODING NON-UNICODE.
46.   IF NOT sy-subrc IS INITIAL.
47.    EXIT. "RAISE open_failed.
48.   ELSE.
49.  
50.     LOOP AT lt_data INTO ls_data.
51. *       write data in file
52.         TRANSFER ls_data TO i_file.
53.     IF sy-subrc NE 0.
54.       EXIT.
55.     ENDIF.
56.     ENDLOOP.
57.   ENDIF.
58.  
59.   CLOSE DATASET i_file.
60.  
61.  
62. *  DELETE DATASET i_file.

GeSHi ©

LG Jens