[59223] in SAPr3-news
Re: Gibt es Report für IDOC-Eingang über ASCII-File-Schnittstelle
daemon@ATHENA.MIT.EDU (Jens Hoetger)
Fri Apr 13 09:37:08 2007
To: sapr3-news@mit.edu
Date: Fri, 13 Apr 2007 15:35:11 +0200
From: Jens Hoetger <Jens.Hoetger@de.bosch.com>
Message-ID: <sa1v13l3k62uuaeu9fsu18j33ruqinftth@4ax.com>
On 13 Apr 2007 06:00:25 -0700, michael.sbs@freenet.de wrote:
> Hallo Jens,
>danke für die schnelle Antwort. Das Fremdsystem ist eine Waage mit PC
>und liefert Trackingnummer und Gewichte zu Lieferungen, die zeitnah in
>die SAP-Lieferung kommen sollen, um sie auch auf die Transportpapiere
>drucken zu können. Aus diesem Grunde scheidet das Zusammenfügen der
>Dateien auf dem Quellsystem (PC) und Sammelverarbeitung aus.
>An Deinem Beispiel-Source-Code - wenn es ABAP/4 ist - bin ich
>interessiert und wäre dafür dankbar.
>mit freundlichen Grüßen
>Michael ( michael.sbs@freenet.de )
Hallo Michael,
hier das Stueckchen Sourcecode (findet sich so oder doch ziemlich
aehnlich aber auch in etlichen SAP-Programmen: RO_F4_FILE_APPL_SERVER,
RSAU_SELECT_EVENTS, RSWATCH0, RSBDCANA, RSTR0006, ...).
Was dann noch fehlt, ist das Einlesen der Dateien (OPEN DATASET...,
READ...), die Ausgabe in eine neue Datei (TRANSFER...) und das Löschen
oder Verschieben der verarbeiteten Dateien nach Abarbeitung durch
RSEINB00 (ggf. durch log. OS-Kommando (-> SM69)).
...
CALL 'C_DIR_READ_START' ID 'DIR' FIELD A_DIR_NAME
ID 'FILE' FIELD A_GENERIC_NAME
ID 'ERRNO' FIELD FILE-ERRNO
ID 'ERRMSG' FIELD FILE-ERRMSG.
DO.
CALL 'C_DIR_READ_NEXT'
ID 'TYPE' FIELD FILE-TYPE
ID 'NAME' FIELD FILE-NAME
ID 'LEN' FIELD FILE-LEN
ID 'OWNER' FIELD FILE-OWNER
ID 'MTIME' FIELD FILE-MTIME
ID 'MODE' FIELD FILE-MODE
ID 'ERRNO' FIELD FILE-ERRNO
ID 'ERRMSG' FIELD FILE-ERRMSG.
CASE SY-SUBRC.
WHEN 0.
* ok
WHEN 1.
EXIT.
WHEN OTHERS. " SY-SUBRC >= 2
ENDCASE.
ENDDO.
CALL 'C_DIR_READ_FINISH'
ID 'ERRNO' FIELD ERRNO
ID 'ERRMSG' FIELD ERRMSG.
...
--
Jens Hoetger
-> http://www.scribblepapers.de.vu
