-
Ablösung CPYTOPCD durch CPYTOIMPF
Hallo,
wir wollen den Befehl CPYTOPCD durch CPYTOIMPF ersetzen.
Die Umsetzung der Daten funktioniert so weit ganz gut.
Nur das Ausgabeergebnis ist leider nicht so, wie gewünscht.
Bei CPYTOPCD werden die Felder direkt aneinander "aufgereiht"
und bei Zahlenfeldern werden diese auch mit Nullen aufgefüllt.
Bsp. "001TESTNAME 00008,49KG"
Bei CPYTOIMPF habe ich eine Art Tab-Sprung nach jedem Feld
und die Zahlenfelder erhalten keine "führenden" Nullen
Bsp. "1 TESTNAME 8,49 KG"
Kann man diesen "Tab-Sprung" unterbinden? Die Befehlszeichenfolge ist:
CPYTOIMPF FROMFILE(FILE)
TOSTMF('\test\file.txt')
MBROPT(*REPLACE)
STMFCODPAG(819)
RCDDLM(*CRLF)
DTAFMT(*FIXED)
STRDLM(*NONE)
DECPNT(*COMMA)
Danke!
-
Hallo,
ich kann auf die Schnelle nur eine mögliche Alternative anbieten.
Anscheinend soll ja das Ergebnis ebenfalls eine feste Datenbreite haben und die Felder jeweils die Ausgangslänge beibehalten, womit die Funktionen vom CPYTOIMPF nicht zwingend erforderlich sind. Wenn also ein Zwischenschritt eingebaut werden könnte, würde ich diesenfalls mit dem Befehl CPYTOSTMF arbeiten. Dazu müsste allerdings die Ausgangsdatei zuvor (mit CPYF FMTOPT(*NOCHK)) in eine (temporäre) Datei kopiert werden, welche mit CRTPF (ohne DDS) erstellt wurde.
Dann sähe das in etwa so aus:
CRTPF FILE(QTEMP/XYZ) RCDLEN(1024) 'oder breiter
CPYF FROMFILE(FILE) TOFILE(QTEMP/XYZ) FMTOPT(*NOCHK)
CPYTOSTMF FROMMBR('qsys.lib/qtemp.lib/xyz.file/xyz.mbr') TOSTMF('/test/file.txt') STMFOPT(*REPLACE) STMFCODPAG(819)
Gut, was die Codepage angeht, weiß ich nicht Bescheid, da benutzen wir sonst immer *PCASCII. Weiterhin dürfte es auch nicht funktionieren, wenn Ausgangsfelder packed oder binär sind. Aber da es bei CPYTOPCD vorher auch geklappt hat, sollte das kein Problem sein.
Ohne Gewähr, ist vielleicht etwas zum rumspielen...
Gruß, Dufti
-
@Dufti
Danke! Der Umweg über die temporäre Datei hat funktioniert.
Trotzdem wäre eine direkte Lösung vorteilhafter.
Similar Threads
-
By malzusrex in forum IBM i Hauptforum
Antworten: 6
Letzter Beitrag: 14-12-06, 17:20
-
By mott in forum NEWSboard Programmierung
Antworten: 2
Letzter Beitrag: 09-10-06, 11:28
-
By Muchi in forum IBM i Hauptforum
Antworten: 11
Letzter Beitrag: 03-08-06, 09:41
-
By SUBUIS in forum IBM i Hauptforum
Antworten: 4
Letzter Beitrag: 09-05-06, 09:36
-
By Muchi in forum IBM i Hauptforum
Antworten: 7
Letzter Beitrag: 21-04-06, 13:54
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- You may not post attachments
- You may not edit your posts
-
Foren-Regeln
|
Erweiterte Foren Suche
Google Foren Suche
Forum & Artikel Update eMail
AS/400 / IBM i
Server Expert Gruppen
Unternehmens IT
|
Kategorien online Artikel
- Big Data, Analytics, BI, MIS
- Cloud, Social Media, Devices
- DMS, Archivierung, Druck
- ERP + Add-ons, Business Software
- Hochverfügbarkeit
- Human Resources, Personal
- IBM Announcements
- IT-Karikaturen
- Leitartikel
- Load`n`go
- Messen, Veranstaltungen
- NEWSolutions Dossiers
- Programmierung
- Security
- Software Development + Change Mgmt.
- Solutions & Provider
- Speicher – Storage
- Strategische Berichte
- Systemmanagement
- Tools, Hot-Tips
Auf dem Laufenden bleiben
|
Bookmarks