SQL/MP Report Writer Guide

Comparison of the Report Writer and the Enform
Language
HP NonStop SQL/MP Report Writer Guide—527213-001
A-2
Figure A-1. Enform Report and SQLCI Report
Enform Report
?DICTIONARY $MKT.DICTRY
SET @SUBTOTAL-LABEL TO "SUBTOTAL";
OPEN ORDERS, ODETAIL, PARTS;
LINK ORDERS TO ODETAIL VIA ORDERNUM,
PARTS TO ODETAIL VIA PARTNUM;
LIST BY ORDERS.ORDERNUM,
PARTS.PARTNUM AS M<9,999>
HEADING "PART/NUMBER",
QUANTITY HEADING "QTY",
PRICE,
(PRICE * QUANTITY) AS M<Z,ZZZ,999.>
HEADING "PRICE * QTQY", SUBTOTAL, TOTAL,
WHERE ORDERS.ORDERNUM > 60,
TITLE "SUMMARY OF ORDERS" TAB 34 @DATE AS DATE * SKIP 2,
AT START PRINT "BEGIN REPORT",
AT END PRINT "END REPORT",
BEFORE CHANGE ON ORDERS.ORDERNUM PRINT "== BEFORE CHANGE ==",
AFTER CHANGE ON ORDERS.ORDERNUM PRINT "== AFTER CHANGE ==";
VOLUME SALES;
SQLCI Report
SET STYLE SUBTOTAL_LABEL "SUBTOTAL";
SELECT
*
FROM ORDERS, ODETAIL, PARTS
WHERE ORDERS.ORDERNUM = ODETAIL.ORDERNUM
ORDER BY ORDERS.ORDERNUM, PARTS.PARTNUM;
DETAIL ORDERS.ORDERNUM,
PARTS.PARTNUM AS M<9,999> HEADING "PART/NUMBER" CENTER,
QUANTITY HEADING "QTY",
PRICE,
(PRICE
* QUANTITY) AS M<Z,ZZZ,999.>
HEADING "PRICE * QTY"
NAME PRQUANT;
BREAK ON ORDERS.ORDERNUM;
SUBTOTAL PRQUANT OVER ORDERS.ORDERNUM;
TOTAL PRQUANT;
PAGE TITLE "SUMMARY OF ORDERS", TAB 34,
CURRENT TIMESTAMP AS DATE *, SKIP 2;
REPORT TITLE "BEGIN REPORT";
REPORT FOOTING "END REPORT";
BREAK TITLE ORDERS.ORDERNUM ( "== BEFORE CHANGE ==" );
BREAK FOOTING ORDERS.ORDERNUM ( "== AFTER CHANGE ==" );
LIST ALL;
VSTA01.vsd