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
Bookmarks