Query nur drucken, wenn Ergebnissätze vorhanden sind?

[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