1 package drirep as
2
3 s75 constant varchar2(75) :=
4 ' ';
5 e75 constant varchar2(75) :=
6 '===========================================================================';
7 h75 constant varchar2(75) :=
8 '---------------------------------------------------------------------------';
9
10
11 /*---------------------------- wl (writeln) -------------------------------*/
12 /* write a line to report output. will automatically append a newline */
13
14 procedure wl(lline in varchar2);
15
16 /*---------------------------- blankln ------------------------------------*/
17 /* write a blank line to report output. */
18
19 procedure blankln;
20
21 /*------------------------------- title -----------------------------------*/
22 /* write a title section to the report. by default, separator is 65 "=" */
23
24 procedure title(
25 title in varchar2 default null,
26 title2 in varchar2 default null,
27 sep in varchar2 default null
28 );
29
30 /*---------------------------- initreport ---------------------------------*/
31 /* do pre-report initialization */
32
33 procedure initreport;
34
35 /*---------------------------- endreport ---------------------------------*/
36 /* do end of report cleanup */
37
38 procedure endreport(report in out nocopy clob);
39
40 /*------------------------ load_ttype_names ------------------------------*/
41 /* parse index meta-data and load a table of token type names */
42
43 procedure load_ttype_names (
44 idx in dr_def.idx_rec,
45 tt in out nocopy dr_def.vc256_tab,
46 fldonly in boolean default FALSE
47 );
48
49 /*---------------------------- bytestr -------------------------------*/
50 /* return a byte amount in readble form */
51
52 function bytestr (a in number) return varchar2;
53
54 /*---------------------------- numstr ---------------------------------*/
55 /* return a large number in readable form */
56
57 function numstr (a in number) return varchar2;
58
59 /*---------------------------- pctstr ---------------------------------*/
60 /* calculate and return a percentage in readable form */
61
62 function pctstr (fig in number, base in number, rnd in number default 2)
63 return varchar2;
64
65 end drirep;