Vielleicht vorher mit dem Befehl RTVMBRD die Anzahl Datensätze ermitteln.

Code:
RTVMBRD    FILE(QTEMP/DATEI) NBRCURRCD(&NBRRP)        
                                                        
IF         COND(&NBRRP *EQ 0) THEN(DO)                  
SNDMSG     MSG('Keine Daten +         
             vorhanden!') TOMSGQ(*HSTLOG) MSGTYPE(*INFO)
                              ENDDO
Achtung: Der Befehl geht eigentlich auf eine Teildatei, aber wenn nur eine vorhanden, dann passts ja.

Gruß Plinzen