Процедура rpl_install

CREATE OR ALTER PROCEDURE rpl_install
AS
DECLARE variable TABLE_NAME my_docnumber;
DECLARE variable docheader my_boolean;
BEGIN
  FOR SELECT TABLE_NAME, is_docheader
    FROM rpl_tables rt
    WHERE rt.rpl_allfields = 1
    INTO TABLE_NAME, docheader
  do
    EXECUTE PROCEDURE rpl_allfields(:TABLE_NAME, :docheader);

  FOR SELECT TABLE_NAME FROM rpl_tables rt
    WHERE rt.rpl_allfields = 0
    INTO TABLE_NAME
  do
    EXECUTE PROCEDURE rpl_somefields(:TABLE_NAME, :docheader);
END