SQL/MP Report Writer Guide

Using SQLCI and the Report Writer
HP NonStop SQL/MP Report Writer Guide—527213-001
2-23
Using the Report Writer to Produce Text From Data
Figure 2-12. Example of Using the Report Writer to Produce Text From Data
VST0212.vsd
?SECTION BASETAB
SET LAYOUT PAGE_LENGTH ALL;
FROM BASETABS B, TABLES T
SKIP 1, "?SECTION BASESTAT";
" SET ROWCOUNT = ", CONCAT (COL 2, ","), SKIP 1,
CONCAT ("WHERE TABLENAME = '", COL 1, "';");
LIST ALL;
REPORT TITLE "-- DATE/TIME: ", CURRENT_TIMESTAMP AS DATE * TIME *,
SELECT B.TABLENAME, ROWCOUNT, STATISTICSTIME
SET STYLE HEADINGS OFF;
SET LIST_COUNT 0;
" STATISTICSTIME = ", COL 3, SKIP 1,
WHERE B.TABLENAME LIKE ?TBOL AND
DETAIL "UPDATE BASETABS", SKIP 1,
--OBTAIN INDEXLEVELS, EOF, NONEMPTYBLOCKCOUNT FOR ALL BASETABLE
--PARTITIONS AND ALL SECONDARY PARTITIONS OF A SINGLE TABLE
?SECTION INDEXNFILES
SET LIST_COUNT 0;
B.TABLENAME = T.TABLENAME AND TABLECODE NOT BETWEEN 500 AND 599;
SET LAYOUT PAGE_LENGTH ALL;
SET STYLE HEADINGS OFF;
SELECT DISTINCT F.FILENAME, INDEXLEVELS, EOF, NONEMPTYBLOCKCOUNT
FROM INDEXES I, FILES F
WHERE I.TABLENAME LIKE ?TBOL AND TABLECODE NOT BETWEEN 500 AND 599
AND I.FILENAME = F.FILENAME;
REPORT TITLE "-- DATE/TIME: ", CURRENT_TIMESTAMP AS DATE * TIME *,
SKIP 1, "?SECTION IXFILES";
DETAIL "UPDATE INDEXES", SKIP 1,
" SET INDEXLEVELS = ", COL 2, SKIP 1,
CONCAT ("WHERE FILENAME = '", COL 1, "';"), SKIP 1,
"UPDATE FILES", SKIP 1,
" SET EOF = ", COL 3, ", NONEMPTYBLOCKCOUNT = ", COL 4, SKIP 1,
CONCAT ("WHERE FILENAME = '", COL 1, "';");
LIST ALL;