// Update all accounts that are now overdue by adding a 15% commission charge
EXEC SQL
UPDATE accounts
SET ord_value=ord_value*1.15, due_date = date()+30
WHERE paid_date < date();
 
// Declare the cursor to select records from the accounts table
EXEC SQL
DECLARE accounts CURSOR FOR
SELECT name, address, ord_value, balance
FROM accounts
WHERE ord_date < date(); 
 
// Open the cursor
EXEC SQL
OPEN accounts;
 
// Fetch records one at a time from the cursor and update them
EXEC SQL
FETCH accounts
INTO m_name, m_address, m_ord_value, m_balance;
DO WHILE sqlcode = 0
IF .not. empty(m_name) .and. m_balance <> 0
EXEC SQL
UPDATE accounts
SET ord_value = ord_value*1.15, due_date = date()+30
WHERE CURRENT OF accounts;
ENDIF
EXEC SQL
FETCH accounts INTO m_name, m_address, m_ord_value, m_balance;
ENDDO
 
// Close the cursor and free up any resources used for the cursor
EXEC SQL
CLOSE accounts;
EXEC SQL
DROP CURSOR accounts;
 
// Update an encrypted table
EXEC SQL
UPDATE encacc<key_1,key_2,key_3>
SET ord_value=ord_value*1.15, due_date = date()+30
WHERE paid_date < date();