I am READing ADABAS database , so do we have any condition for “NO RECORDS FOUND”, like what we have in FIND statement to read / access a database.
Thanks in advance
There is no such clause for the READ statement. You test the condition yourself, after the READ loop.
R. READ EMP BY NAME FROM 'Ralph' TO 'Ralph' ... END-READ IF *COUNTER (R.) = 0 THEN WRITE 'Just like IF NO RECORDS FOUND' END-IF
You cannot test this condition within the loop, not even with AT END OF DATA.