FOR CustCursor AS c_customer CURSOR FOR SELECT CustomerNumber ,CustomerName FROM Customer DO SET hCustNbr = CustCursor.CustomerNumber; SET hCustName = CustCursor.CustomerName; DELETE FROM Customer WHERE CURRENT OF c_customer; END FOR;
FOR CustCursor AS c_customer CURSOR FOR SELECT CustomerNumber ,CustomerName FROM Customer DO SET hCustNbr = CustCursor.CustomerNumber; SET hCustName = CustCursor.CustomerName; DELETE FROM Customer WHERE CURRENT OF c_customer; END FOR;