READ database

, , ,
1

Hi ,
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

2

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.