ALTER PROCEDURE "DBA"."test_cursor"( /* [IN | OUT | INOUT] parameter_name parameter_type [DEFAULT default_value], ... */ )

BEGIN
                
    declare test_crsr cursor for select DBA.Orders.ORD_ID_PK from Orders
    for update of ORD_CONTENT;
    DECLARE err_notfound EXCEPTION FOR SQLSTATE '02000';
    DECLARE order_id INTEGER;

    open test_crsr;
    testloop:
    LOOP
      
        fetch next test_crsr into order_id;
        
        IF SQLSTATE = err_notfound THEN 
         LEAVE testloop;
        END IF;
    
        update Orders set ORD_CONTENT = 'Pasadena' where current of test_crsr;

    END LOOP testloop;
    CLOSE test_crsr;
    DEALLOCATE CURSOR test_crsr;
END