Einlesen einer csv-Datei in SAP R/3
Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.
8 Beiträge
•
Seite 1 von 1
8 Beiträge
Seite 1 von 1
Hallo zusammen,
ich möchte gerne eine csv-Datei per BI ins SAP-System spielen.
Hat jemand kurz zusammenfassend einen Beispielcode?
Finde nur große, komplizierte Programme als Beispiel, bin aber noch nicht so fit darin!
Danke!
ich möchte gerne eine csv-Datei per BI ins SAP-System spielen.
Hat jemand kurz zusammenfassend einen Beispielcode?
Finde nur große, komplizierte Programme als Beispiel, bin aber noch nicht so fit darin!
Danke!
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Morsche,
REPORT Z_TEST.
TABLES: COAS, RLGRAP.
TYPES: BEGIN OF GETTYP,
AUFNR LIKE COAS-AUFNR,
ABKRS LIKE COAS-ABKRS,
FELDF1(20) TYPE C,
END OF GETTYP.
* ITAB, in der das TXT-File eingelesen wird
DATA: ITAB_GET TYPE STANDARD TABLE OF GETTYP,
WA_ITAB_GET LIKE LINE OF ITAB_GET.
* Mit der Maske kann das TXT-File ausgesucht werden
DATA: BEGIN OF MASKE,
',',
F01(30),
',',
'*.txt',
',',
F02(30),
',',
'*.*',
'.',
END OF MASKE.
* Dir-Name
PARAMETERS FRNT_NAM LIKE RLGRAP-FILENAME DEFAULT 'C:\TEMP\'.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR FRNT_NAM.
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
DEF_PATH = 'C:\'
MASK = MASKE
* MODE = 'O'
* TITLE = ' '
IMPORTING
FILENAME = FRNT_NAM
* RC =
EXCEPTIONS
INV_WINSYS = 1
NO_BATCH = 2
SELECTION_CANCEL = 3
SELECTION_ERROR = 4
OTHERS = 5.
END-OF-SELECTION.
* Upload des TXT-Files
CALL FUNCTION 'WS_UPLOAD'
EXPORTING
* CODEPAGE = ' '
FILENAME = FRNT_NAM
FILETYPE = 'DAT'
* HEADLEN = ' '
* LINE_EXIT = ' '
* TRUNCLEN = ' '
* USER_FORM = ' '
* USER_PROG = ' '
* DAT_D_FORMAT = ' '
* IMPORTING
* FILELENGTH =
TABLES
DATA_TAB = ITAB_GET
EXCEPTIONS
CONVERSION_ERROR = 1
FILE_OPEN_ERROR = 2
FILE_READ_ERROR = 3
INVALID_TYPE = 4
NO_BATCH = 5
UNKNOWN_ERROR = 6
INVALID_TABLE_WIDTH = 7
GUI_REFUSE_FILETRANSFER = 8
CUSTOMER_ERROR = 9
OTHERS = 10.
In der Itab_GET hast Du dann Deine Daten und
kannst dann den Batch Input schreiben!
Bitte beachte, dass hier nur ein TXT-File eingelesen wird, und kein CSV.
Du kannst das CSV ja als txt (mit TABS getrennt) abspeichern.
REPORT Z_TEST.
TABLES: COAS, RLGRAP.
TYPES: BEGIN OF GETTYP,
AUFNR LIKE COAS-AUFNR,
ABKRS LIKE COAS-ABKRS,
FELDF1(20) TYPE C,
END OF GETTYP.
* ITAB, in der das TXT-File eingelesen wird
DATA: ITAB_GET TYPE STANDARD TABLE OF GETTYP,
WA_ITAB_GET LIKE LINE OF ITAB_GET.
* Mit der Maske kann das TXT-File ausgesucht werden
DATA: BEGIN OF MASKE,
',',
F01(30),
',',
'*.txt',
',',
F02(30),
',',
'*.*',
'.',
END OF MASKE.
* Dir-Name
PARAMETERS FRNT_NAM LIKE RLGRAP-FILENAME DEFAULT 'C:\TEMP\'.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR FRNT_NAM.
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
DEF_PATH = 'C:\'
MASK = MASKE
* MODE = 'O'
* TITLE = ' '
IMPORTING
FILENAME = FRNT_NAM
* RC =
EXCEPTIONS
INV_WINSYS = 1
NO_BATCH = 2
SELECTION_CANCEL = 3
SELECTION_ERROR = 4
OTHERS = 5.
END-OF-SELECTION.
* Upload des TXT-Files
CALL FUNCTION 'WS_UPLOAD'
EXPORTING
* CODEPAGE = ' '
FILENAME = FRNT_NAM
FILETYPE = 'DAT'
* HEADLEN = ' '
* LINE_EXIT = ' '
* TRUNCLEN = ' '
* USER_FORM = ' '
* USER_PROG = ' '
* DAT_D_FORMAT = ' '
* IMPORTING
* FILELENGTH =
TABLES
DATA_TAB = ITAB_GET
EXCEPTIONS
CONVERSION_ERROR = 1
FILE_OPEN_ERROR = 2
FILE_READ_ERROR = 3
INVALID_TYPE = 4
NO_BATCH = 5
UNKNOWN_ERROR = 6
INVALID_TABLE_WIDTH = 7
GUI_REFUSE_FILETRANSFER = 8
CUSTOMER_ERROR = 9
OTHERS = 10.
In der Itab_GET hast Du dann Deine Daten und
kannst dann den Batch Input schreiben!
Bitte beachte, dass hier nur ein TXT-File eingelesen wird, und kein CSV.
Du kannst das CSV ja als txt (mit TABS getrennt) abspeichern.
Hi,
danke Tommad, aber es soll ein Programm werden, das später als Job eingeplant werden kann! Vielleicht findest du ja noch was, wäre echt nett!
danke "Gast" für den Quellcode, ich werd mir den mal ansehen. Da ich aber gerade im Projekt stecke und dort Anforderung ist, daß eine csv-Datei eingelesen wird, muß ich das auch einhalten!
Grüße,
Mary
danke Tommad, aber es soll ein Programm werden, das später als Job eingeplant werden kann! Vielleicht findest du ja noch was, wäre echt nett!
danke "Gast" für den Quellcode, ich werd mir den mal ansehen. Da ich aber gerade im Projekt stecke und dort Anforderung ist, daß eine csv-Datei eingelesen wird, muß ich das auch einhalten!
Grüße,
Mary
Hallo Mary,
hier ein kl. Beispiel in 40 Zeilen
(Code für BI aus einer Aufzeichnung für die TA FK02 mit
dem Transaktionsrekorder)
Gruß Andreas
hier ein kl. Beispiel in 40 Zeilen
(Code für BI aus einer Aufzeichnung für die TA FK02 mit
dem Transaktionsrekorder)
Code: Alles auswählen.
report ZTESTCSV no standard page heading line-size 255.
parameters file like rlgrap-filename.
DATA: WA(2000).
FIELD-SYMBOLS <FS1>.
DATA IDX LIKE SY-INDEX.
Data trenn value ';'.
DATA: BEGIN OF SPTAB OCCURS 0, CHAR40(40), END OF SPTAB.
DATA: BEGIN OF ITAB occurs 0, LIFNR TYPE LFA1-LIFNR,
BRSCH TYPE LFA1-BRSCH, END OF ITAB.
include bdcrecx1.
start-of-selection.
OPEN DATASET FILE FOR INPUT IN TEXT MODE.
DO.
READ DATASET FILE INTO WA.
IF SY-SUBRC <> 0. EXIT. ENDIF.
CHECK WA CN ' ;'. "Leersätze raus
REFRESH SPTAB.
CLEAR: SPTAB, ITAB, idx.
SPLIT WA AT trenn INTO TABLE SPTAB.
LOOP AT SPTAB.
add 1 to IDX.
ASSIGN COMPONENT IDX OF STRUCTURE ITAB TO <FS1>.
<FS1> = SPTAB-CHAR40.
ENDLOOP.
APPEND ITAB.
ENDDO.
perform open_group.
loop at itab.
*Einstieg
perform bdc_dynpro using 'SAPMF02K' '0106'.
perform bdc_field using 'BDC_OKCODE' '/00'.
perform bdc_field using 'RF02K-LIFNR' itab-lifnr.
perform bdc_field using 'RF02K-D0120' 'X'.
*D120
perform bdc_dynpro using 'SAPMF02K' '0120'.
perform bdc_field using 'BDC_OKCODE' '=UPDA'.
perform bdc_field using 'LFA1-BRSCH' itab-brsch.
perform bdc_transaction using 'FK02'.
endloop.
perform close_group.Gruß Andreas
Hi,
leider kann ich nicht so oft online gehen, deshalb jetzt eine kurze Antwort!
Danke Asaph, denke ich habe den Code soweit verstanden. Ich werd mal sehen, ob ich das hin kriege!
Leider muß ich das Programmieren in meinem Projekt jetzt etwas hinten anstellen, wenn ich später doch wieder hängen sollte weiß ich ja jetzt wo ich Hilfe kriege!
Gruß, Mary
leider kann ich nicht so oft online gehen, deshalb jetzt eine kurze Antwort!
Danke Asaph, denke ich habe den Code soweit verstanden. Ich werd mal sehen, ob ich das hin kriege!
Leider muß ich das Programmieren in meinem Projekt jetzt etwas hinten anstellen, wenn ich später doch wieder hängen sollte weiß ich ja jetzt wo ich Hilfe kriege!
Gruß, Mary
Seite 1 von 1
Vergleichbare Themen
4
Antw.
Antw.
2216
Views
Views
2
Antw.
Antw.
3718
Views
Views
7
Antw.
Antw.
3163
Views
Views
Frage die ABAP Experten
Über diesen Beitrag
Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.
Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch
Aktuelle Forenbeiträge
Newsletter Anmeldung
Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.Die letzte Ausgabe findest du hier.