FOREACH (result set cursor)

Syntax

FOREACH cid
   [ USING pvar {IN|OUT|INOUT} [,...] ]
   [ INTO fvar [,...] ]
   [ WITH REOPTIMIZATION ]
       {
         statement
       | CONTINUE FOREACH
       | EXIT FOREACH
       }
       [...] 
END FOREACH

1. cid is the identifier of the database cursor.
2. pvar is a variable containing an input value for an SQL parameter.
3. fvar is a variable used as fetch buffer.

Usage

Use the FOREACH instruction to retrieve and process database rows that were selected by a query. This instruction is equivalent to using the OPEN, FETCH and CLOSE cursor instructions:

1. Open the specified cursor
2. Fetch the rows selected
3. Close the cursor (after the last row has been fetched)

You must declare the cursor (by using the DECLARE instruction) before the FOREACH instruction can retrieve the rows. A compile-time error occurs unless the cursor was declared prior to this point in the source module. You can reference a sequential cursor, a scroll cursor, a hold cursor, or an update cursor, but FOREACH only processes rows in sequential order.

The FOREACH statement performs successive fetches until all rows specified by the SELECT statement are retrieved. Then the cursor is automatically closed. It is also closed if a WHENEVER NOT FOUND exception handler within the FOREACH loop detects a NOTFOUND condition.

After a FOREACH loop, STATUS and SQLCA.SQLCODE will not be set to NOTFOUND(100) if no rows are returned by the query: If no error occurred, these registers will hold the value zero.

The USING clause is required to provide the SQL parameter buffers, if the cursor was declared with a prepared statement that includes (?) question mark placeholders.

The IN, OUT or INOUT options can be used to call stored procedures having input / output parameters and generating a result set. Use the IN, OUT, or INOUT options to indicate if a parameter is respectively for input, output, or both.

The INTO clause can be used to provide the fetch buffers that receive the row values.

Use the WITH REOPTIMIZATION clause to indicate that the query execution plan has to be re-optimized.

The CONTINUE FOREACH instruction interrupts processing of the current row and starts processing the next row. The runtime system fetches the next row and resumes processing at the first statement in the block.

The EXIT FOREACH instruction interrupts processing and ignores the remaining rows of the result set.

The IN, OUT, or INOUT options can only be used for simple variables; you cannot specify those options for a complete record with the record.* notation.

MAIN
   DEFINE clist ARRAY[200] OF RECORD
           cnum INTEGER,
           cname CHAR(50)
         END RECORD
   DEFINE i INTEGER
   DATABASE stores 
   DECLARE c1 CURSOR FOR SELECT customer_num, cust_name FROM customer 
   LET i=0
   FOREACHc1 INTO clist[i+1].*
      LET i=i+1
      DISPLAY clist[i].*
   END FOREACH
   DISPLAY "Number of rows found: ", i 
END MAIN