1: PACKAGE BODY QP_NUMBER as
2: /* $Header: QPNUMBRB.pls 120.0 2005/06/02 00:22:55 appldev noship $ */
3:
4:
5:
27: pi number := 3.1415;
28: my_char varchar2(20);
29: begin
30: /*
31: DBMS_OUTPUT.PUT_LINE('Decimal separator is '||qp_number.decimal_char);
32: DBMS_OUTPUT.PUT_LINE('Group separator is '||qp_number.group_separator);
33: DBMS_OUTPUT.PUT_LINE('Canonical mask is '||qp_number.canonical_mask);
34:
35: DBMS_OUTPUT.PUT_LINE('Canon number is '||qp_number.number_to_canonical(pi));
28: my_char varchar2(20);
29: begin
30: /*
31: DBMS_OUTPUT.PUT_LINE('Decimal separator is '||qp_number.decimal_char);
32: DBMS_OUTPUT.PUT_LINE('Group separator is '||qp_number.group_separator);
33: DBMS_OUTPUT.PUT_LINE('Canonical mask is '||qp_number.canonical_mask);
34:
35: DBMS_OUTPUT.PUT_LINE('Canon number is '||qp_number.number_to_canonical(pi));
36: DBMS_OUTPUT.PUT_LINE('and back is '||to_char(qp_number.canonical_to_number('3.14')));
29: begin
30: /*
31: DBMS_OUTPUT.PUT_LINE('Decimal separator is '||qp_number.decimal_char);
32: DBMS_OUTPUT.PUT_LINE('Group separator is '||qp_number.group_separator);
33: DBMS_OUTPUT.PUT_LINE('Canonical mask is '||qp_number.canonical_mask);
34:
35: DBMS_OUTPUT.PUT_LINE('Canon number is '||qp_number.number_to_canonical(pi));
36: DBMS_OUTPUT.PUT_LINE('and back is '||to_char(qp_number.canonical_to_number('3.14')));
37: DBMS_OUTPUT.PUT_LINE('Canon integer is '||qp_number.number_to_canonical(4));
31: DBMS_OUTPUT.PUT_LINE('Decimal separator is '||qp_number.decimal_char);
32: DBMS_OUTPUT.PUT_LINE('Group separator is '||qp_number.group_separator);
33: DBMS_OUTPUT.PUT_LINE('Canonical mask is '||qp_number.canonical_mask);
34:
35: DBMS_OUTPUT.PUT_LINE('Canon number is '||qp_number.number_to_canonical(pi));
36: DBMS_OUTPUT.PUT_LINE('and back is '||to_char(qp_number.canonical_to_number('3.14')));
37: DBMS_OUTPUT.PUT_LINE('Canon integer is '||qp_number.number_to_canonical(4));
38: select qp_number.number_to_canonical(pi)
39: into my_char
32: DBMS_OUTPUT.PUT_LINE('Group separator is '||qp_number.group_separator);
33: DBMS_OUTPUT.PUT_LINE('Canonical mask is '||qp_number.canonical_mask);
34:
35: DBMS_OUTPUT.PUT_LINE('Canon number is '||qp_number.number_to_canonical(pi));
36: DBMS_OUTPUT.PUT_LINE('and back is '||to_char(qp_number.canonical_to_number('3.14')));
37: DBMS_OUTPUT.PUT_LINE('Canon integer is '||qp_number.number_to_canonical(4));
38: select qp_number.number_to_canonical(pi)
39: into my_char
40: from dual;
33: DBMS_OUTPUT.PUT_LINE('Canonical mask is '||qp_number.canonical_mask);
34:
35: DBMS_OUTPUT.PUT_LINE('Canon number is '||qp_number.number_to_canonical(pi));
36: DBMS_OUTPUT.PUT_LINE('and back is '||to_char(qp_number.canonical_to_number('3.14')));
37: DBMS_OUTPUT.PUT_LINE('Canon integer is '||qp_number.number_to_canonical(4));
38: select qp_number.number_to_canonical(pi)
39: into my_char
40: from dual;
41:
34:
35: DBMS_OUTPUT.PUT_LINE('Canon number is '||qp_number.number_to_canonical(pi));
36: DBMS_OUTPUT.PUT_LINE('and back is '||to_char(qp_number.canonical_to_number('3.14')));
37: DBMS_OUTPUT.PUT_LINE('Canon integer is '||qp_number.number_to_canonical(4));
38: select qp_number.number_to_canonical(pi)
39: into my_char
40: from dual;
41:
42: DBMS_OUTPUT.PUT_LINE('Canon number from SQL is '||my_char);
61: -- OK, this is a bit kludgey, but I can't seem to find any way to access
62: --XS the numeric characters directly.
63: decimal_char := substr(ltrim(to_char(.3,'0D0')),2,1);
64: group_separator := substr(ltrim(to_char(1032,'0G999')),2,1);
65: end QP_NUMBER;