CPYFRMIMPF

[Fuerchau]

Nun habe ich auch mal ein Problem, bei dem mir sicherlich jemand helfen kann:

1. CPYFRMIMPF unterstützt bei Dezimalfeldern wohl keine aufbereiteten Zahlen, z.B. 1.204,70 wird nicht akzeptiert, 1204,70 aber wohl.
Jemand eine Idee dazu ?
Umgangen habe ich das mit einem Zeichenfeld und der Umwandlung im Programm per %dec(), ist aber eigentlich unschön.

2. Nach dem CPYFRMIMPF MBROPT(*REPLACE) bleibt die Zieldatei geöffnet.
Nachfolgende CPY's fallen daher auf die Nase, da die Datei nicht gelöscht wird.
RCLRSC und RCLACTGRP (auch mit *ELIGIBLE) helfen da leider nicht.
Wie kann ich also den CPYFRMIMPF zum Schließen der Datei bewegen ?
Ich muss ja mehrere Dateien in einer Schleife importieren und kann ja wohl nicht immer eine neue PF generieren.

Release V5R4M0.

[RobertMack]

Idee zu 2: versuche mal, die Zieldatei vor dem Kopieren mit ALCOBJ exklusiv zuzordnen und anschließend wieder freizugeben (der DLCOBJ könnte es bringen...)

[holgerscherer]

Nun habe ich auch mal ein Problem, bei dem mir sicherlich jemand helfen kann:

Muss Dich leider enttäuschen:
1) geht nicht, enweder . oder , als Trenner. Die Tausendergruppierung verwirrt diese alte S36er Routine
2) das muss ein Käfer sein. Probier mal Roberts Idee.

-h

[Khholm]

zu 2.

mal PTF's einspielen. Habe auch V5R4M0 und das getestet, klappt einwandfrei.

Gr

Karl-Heinz

[Fuerchau]

Nun ja, das System geht schon seltsame Wege.

Also:
Der CPYFRMIMPF verwendet SQL für den Insert in die Zieltabelle.
Anschließend läuft mein SQLRPGLE, dass diese Tabelle per SQL liest und in die Originaltabellen verteilt.

SQL macht nun leider einen Lazy-Close, m.a.W, der ODP des CPYFRMIMPF für Output und der ODP meines Programmes für Input sind beide noch offen.

Der nächste CPYFRMIMPF will die Zieldatei nun zurücksetze, was durch dein Input-ODP aber nicht zulässig ist.

Mein SQLRPG habe ich nun mit "option closqlcsr=*endmod" ergänzt.
Nach Ende des CPYFRMIMPF und meines Programmes sind immer noch beide ODP's offen.

Allerdings beim internen Aufruf des CLRPFM des CPYFRMIMPF stellt das System wohl fest, dass diese beiden ODP's nicht mehr benötigt werden und schließt diese nun.
Der CLRPFM wird nun korrekt durchgeführt.

Einziger Nachteil ist noch, sobald das gesamte CLP fertig ist, verbleiben diese ODP's bis zum ENDJOB.
Da ich aber vorhabe, das als Batch-Job zu machen, ist das auch egal.