Query nur drucken, wenn Ergebnissätze vorhanden sind?

[Fuerchau]

Wie wärs mit einem vorherigen OVRPRTF ... HOLD(*YES) ?
Dann wird erst nach expliziter Freigabe gedruckt.

Altenrativ:
1. Aufruf mit Ausgabe in Datei, wenn per RTVMBRD NBRCURRCD (oder so) Sätze vorhanden, dann 2. Aufruf mit Druckausgabe.

[cbe]

Hallo Daniel,

Vorschlag: anstatt direkt zu drucken schreib das Ergebnis des Queries in eine Datei und frag dann ab, ob Sätze drin sind.
Wenn ja, kannst Du entweder das Query nochmal ausführen als Druck oder die Tempdatei ausgeben, je nachdem, wie laufzeitaufwendig das Query ist.

DCL        VAR(&NBRCURRCD) TYPE(*DEC) LEN(10 0) 
...
RTVMBRD    FILE(QTEMP/FTP1000P) NBRCURRCD(&NBRCURRCD) 
IF         COND(&NBRCURRCD > 0) THEN(DO)
...

So machen wir es, nur dass wir die Queries dann per eMail versenden. (Listen mag ich nicht so gern, die kann ich z.B. vom homeOffice sclecht lesen ...)


Gruß,
Christian

[uwer]

Hier die Lösung von CBE noch einmal etwas ausführlicher:

/* Wenn durch die 1. Query mindestens ein Satz gespeichert wird: */
/* Aufrufen der 2. Query */

RUNQRY QRY(QRY01) OUTTYPE(*OUTFILE) +
OUTFILE(QTEMP/QRY01P *FIRST *RPLFILE)

RTVMBRD FILE(QTEMP/QRY01P) NBRCURRCD(&NBRCURRCD)

IF COND(&NBRCURRCD *NE 0) THEN(DO)
RUNQRY QRY(QRY01)
ENDDO