PROCEDURE: DVSYS.EVALUATE_RULE_SET

Source

1 PROCEDURE       evaluate_rule_set(
2                         p_rule_set      IN  VARCHAR2,
3                         x_result        OUT INTEGER,
4                         x_rule          OUT VARCHAR2,
5                         x_rule_error    OUT INTEGER,
6                         x_handler_error OUT INTEGER,
7                         x_error_code    OUT NUMBER,
8                         x_error_text    OUT VARCHAR2)
9   IS
10     x_result_bool        BOOLEAN;
11     x_rule_error_bool    BOOLEAN;
12     x_handler_error_bool BOOLEAN;
13   BEGIN
14     -- buffer overflow checks
15     IF (LENGTH(p_rule_set) > 90) THEN
16         dvsys.DBMS_MACUTL.RAISE_ERROR(47951,'p_rule_set');
17     END IF;
18 
19     DVSYS.DBMS_MACSEC_RULES.EVALUATE(
20              p_rule_set,
21              NULL,
22              x_result_bool,
23              x_rule,
24              x_rule_error_bool,
25              x_handler_error_bool,
26              x_error_code,
27              x_error_text);
28 
29     IF (x_result_bool) THEN
30       x_result := 1;
31     ELSE
32       x_result := 0;
33     END IF;
34 
35     IF (x_rule_error_bool) THEN
36       x_rule_error := 1;
37     ELSE
38       x_rule_error := 0;
39     END IF;
40 
41     IF (x_handler_error_bool) THEN
42       x_handler_error := 1;
43     ELSE
44       x_handler_error := 0;
45     END IF;
46   END;