CREATE TABLE TABLE_FOR_CURSOR_PROC (
    ID      INTEGER GENERATED BY DEFAULT AS IDENTITY,
    NAME    VARCHAR(50) NOT NULL,
    STATUS  CHAR(1) NOT NULL
);

INSERT INTO TABLE_FOR_CURSOR_PROC (NAME, STATUS)
VALUES ('Первая строка', 'A');
INSERT INTO TABLE_FOR_CURSOR_PROC (NAME, STATUS)
VALUES ('Вторая строка', 'A');
INSERT INTO TABLE_FOR_CURSOR_PROC (NAME, STATUS)
VALUES ('Третья строка', 'A');


COMMIT;



SET TERM ^ ;

CREATE OR ALTER PROCEDURE smpl_cursor_proc_2 (
  paramdate  DATE NOT NULL,
  paramchar  CHAR(50) NOT NULL,
  paramchar1 CHAR(50) NOT NULL,
  paramchar2 CHAR(50) NOT NULL,
  paramint1  SMALLINT NOT NULL = 0,
  paramint2  SMALLINT NOT NULL = 0)
AS
BEGIN

END^

CREATE OR ALTER PROCEDURE smpl_cursor_proc_1
AS
  DECLARE VARIABLE v_operdate DATE;
BEGIN
  v_operdate = 'now';

  FOR
    SELECT t.id, t.name, t.status
    FROM table_for_cursor_proc t
    WHERE t.status = 'A'
    AS CURSOR crs
  DO
  BEGIN
    EXECUTE PROCEDURE smpl_cursor_proc_2(:v_operdate, crs.name, crs.status, '', crs.id);

    UPDATE table_for_cursor_proc SET
      status = 'P'
    WHERE CURRENT OF crs;
  END

END^

SET TERM ; ^