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