hplsql/src/test/queries/db/cursor_attributes.sql

DECLARE 
  CURSOR c1 IS SELECT 'A' FROM src LIMIT 1;
  v1 VARCHAR(30);
BEGIN
  IF c1%ISOPEN THEN
    DBMS_OUTPUT.PUT_LINE('%ISOPEN failed');
  ELSE 
    DBMS_OUTPUT.PUT_LINE('%ISOPEN correct');
  END IF; 
  
  OPEN c1;

  IF c1%ISOPEN THEN
    DBMS_OUTPUT.PUT_LINE('%ISOPEN correct');
  ELSE 
    DBMS_OUTPUT.PUT_LINE('%ISOPEN failed');
  END IF; 
  
  IF c1%FOUND IS NULL THEN
    DBMS_OUTPUT.PUT_LINE('%FOUND correct');
  ELSE
    DBMS_OUTPUT.PUT_LINE('%FOUND failed');
  END IF;

  IF c1%NOTFOUND IS NULL THEN
    DBMS_OUTPUT.PUT_LINE('%NOTFOUND correct');
  ELSE
    DBMS_OUTPUT.PUT_LINE('%NOTFOUND failed');
  END IF;
  
  FETCH c1 INTO v1;
  
  IF c1%FOUND THEN
    DBMS_OUTPUT.PUT_LINE('%FOUND correct');
  ELSE
    DBMS_OUTPUT.PUT_LINE('%FOUND failed');
  END IF;

  IF c1%NOTFOUND THEN
    DBMS_OUTPUT.PUT_LINE('%NOTFOUND failed');
  ELSE
    DBMS_OUTPUT.PUT_LINE('%NOTFOUND correct');
  END IF;  
  
  FETCH c1 INTO v1;
  
  IF c1%FOUND THEN
    DBMS_OUTPUT.PUT_LINE('%FOUND failed');
  ELSE
    DBMS_OUTPUT.PUT_LINE('%FOUND correct');
  END IF;

  IF c1%NOTFOUND THEN
    DBMS_OUTPUT.PUT_LINE('%NOTFOUND correct');
  ELSE
    DBMS_OUTPUT.PUT_LINE('%NOTFOUND failed');
  END IF;  

  CLOSE c1; 
END;