J. Notes for Users of QUEL : QUEL Notes for the Writing 4GL Statements Chapter : Using the Inquire_ingres Statement
 
Share this page                  
Using the Inquire_ingres Statement
The following QUEL example uses rowcount to determine how many rows were found by a retrieve statement. It can also be used to see how many rows were added by an append statement or affected by a replace or delete statement:
partstbl := retrieve (parts.all);
inquire_ingres (rcount = rowcount);
if rcount < 1 then
  message "No records were found";
endif;
When used in conjunction with retrieve statements, the following rules apply:
A singleton retrieve always causes inquire_ingres to return a value of 0 or 1 for rowcount.
For attached queries, the value is the number of rows actually viewed by the user, as controlled by the next statement in the submenu.
This example uses errorno and errortext to check the results of a database operation:
delete employee 
  where employee.empnum = empnum;
inquire_ingres (errno = errorno, 
  txt = errortext);
if errno != 0 then
  message "Delete error " + varchar(errno) + " " + txt;
  sleep 3;
endif;