7.126.2 UPRINT Examples

Example 1: The following RDML program asked the user to input an order number and then prints details of the order and its associated order lines.

     GROUP_BY  NAME(#ORDERDET) FIELDS(#ORDNUM #CUSTNUM #DATEDUE #ORDLIN #PRODUCT #QUANTITY #PRICE)

L1:  REQUEST   FIELDS(#ORDNUM)

     FETCH     FIELDS(#ORDERDET) FROM_FILE(ORDHDR) WITH_KEY(#ORDNUM) NOT_FOUND(L1) ISSUE_MSG(*YES)

     SELECT    FIELDS(#ORDERDET) FROM_FILE(ORDLIN) WITH_KEY(#ORDNUM)

     UPRINT    FIELDS(#ORDERDET)

     ENDSELECT

     ENDPRINT

Example 2: If a file called ACCOUNT contains the following fields and data:

Company (#COMP) Division (#DIV) Department (#DEPT) Expenditure (#EXPEND) Revenue (#REVNU) 01 1 ADM 400 576 " " MKT 678 56 " " SAL 123 6784 " 2 ADM 46 52 " " SAL 978 456 " 3 ACC 456 678 " " SAL 123 679 02 1 ACC 843 400 " " MKT 23 0 " " SAL 876 10 " 2 ACC 0 43

and if the file is keyed by #COMP, #DIV and #DEPT, then the following RDML program will produce a paginated report with subtotals from this file:

GROUP_BY  NAME(#ACCOUNTS)  FIELDS((#COMP *TOTLEVEL1 *NEWPAGE) (#DIV  *TOTLEVEL2) (#DEPT  *TOTLEVEL3) (#EXPEND *TOTAL) (#REVNU  *TOTAL))

SELECT    FIELDS(#ACCOUNTS) FROM_FILE(ACCOUNT)

UPRINT    FIELDS(#ACCOUNTS)

ENDSELECT

ENDPRINT

The following points about the field attributes should be noted:

• The *NEWPAGE attribute indicates that a new page should be started whenever the company number changes.

• The *TOTLEVELn attribute indicates the total "level breaks" that are required. In this case totals are required by company, division (within company), and department (within division within company).

• The *TOTAL attribute indicates the fields that are to be totaled. In this case the expenditure and revenue fields are to be totaled.

Refer to Field Attributes and their use for more details.

Note also that LANSA does not sort the data. The data is printed in the same order as it is presented to the UPRINT command. It is the responsibility of the programmer to ensure that the new page and total level attributes "make sense" with regard to the order in which the information is printed.

Note this RDML program could also have been coded as:

SELECT     FIELDS(#COMP #DIV #DEPT #EXPEND #REVNU) FROM_FILE(ACCOUNT)

UPRINT     FIELDS((#COMP *TOTLEVEL1 *NEWPAGE) (#DIV  *TOTLEVEL2) (#DEPT  *TOTLEVEL3) (#EXPEND *TOTAL) (#REVNU  *TOTAL))

ENDSELECT

ENDPRINT