ALLBASE/SQL Reference Manual (36216-90216)

598 Chapter12
SQL Statements S - Z
WHILE
OPEN QtyCursor;
WHILE ::sqlcode <> 100 DO
FETCH QtyCursor INTO :PartName, :Quantity
PRINT :PartName;
PRINT :Quantity;
ENDWHILE;
CLOSE QtyCursor;
END;
EXECUTE PROCEDURE ShowOrders;