SET TERM ^ ;

CREATE OR ALTER PROCEDURE NEW_PROCEDURE (
    SECTION_NAME STRING100)
RETURNS (
    NEW_SECTION STRING100,
    NEW_IDENT VARCHAR(50),
    NEW_VAL VARCHAR(1024))
AS
DECLARE variable CHECK_VAL STRING100;
BEGIN
  new_section = section_name;
  new_ident = ( SELECT ident FROM s_appini WHERE ( ident LIKE 'After' OR ident LIKE 'Before' ) AND SECTION = :section_name );
  new_val = ( SELECT val FROM s_appini WHERE ( ident LIKE 'After' OR ident LIKE 'Before' ) AND SECTION = :section_name );
  suspend;
  check_val = ( SELECT SECTION FROM s_appini WHERE ( ident LIKE 'After' OR ident LIKE 'Before' ) AND SECTION LIKE '%' || :new_val );
  IF ( check_val IS NOT NULL ) THEN BEGIN
    EXECUTE PROCEDURE new_procedure ( :check_val ) returning_values ( :new_section, :new_ident, :new_val );
  END
END^

SET TERM ; ^

GRANT SELECT ON S_APPINI TO PROCEDURE NEW_PROCEDURE;

GRANT EXECUTE ON PROCEDURE NEW_PROCEDURE TO PROCEDURE NEW_PROCEDURE;

GRANT EXECUTE ON PROCEDURE NEW_PROCEDURE TO SYSDBA;