SQLRPGLE und Printerfile

[Toschie]

Hallo ExAzubi,

danke für den Hinweis.
Diese Funktion hatte ich damals schon gefunden, aber nie ans Laufen bekommen.
Wenn ich

 /free                                                                     
   result = %ScanRpl ('NAME' : 'Tom' : string1);                           
 /End-Free

implementiere, dann erhalte ich die Meldung:
Das Token ist ungültig; das Token wird ignoriert.

Und der Cursor springt an das %-Zeichen.
Andere Funktionen wie z.B.

result = %replace ('Toronto': result);

funktionieren.

[Fuerchau]

Das liegt an der fehlenden Unterstützung des Editors.
Ignorieren und Compilieren, solange der Compiler nicht meckert ist das OK.

[Toschie]

Haha Danke
Ich Genie

Also die Funktion ist nun drin und es geht etwas schneller.
Das ist schon mal gut!

Was mir jetzt aufgefallen ist, das ein CL ständig einen OVRDB und einen DLTOVR macht.
Wir drucken hier im Batch und benötigen die OVR.
Kann ich irgendwie prüfen, ob der Job bereits eine Überschreibung auf eine gewisse Datei hat?

[Fuerchau]

Das gibt es schon per API.
Allerdings kostet dieser keine Performance solange die Datei nicht auch ständig auf und zu gemacht wird.
Das CL kann aber andererseits per DTAARA in der QTEMP vermerken dass der OVR schon aktiv ist.
Problematisch wird es dann wenn dann irgendwo ein DLTOVR *ALL läuft.

Die Frage ist wirklich, wo dein Programm die Performance verliert.
Welche Routine ist eben langsam und wird 1000de Male pro Write-Spool ausgeführt.