HP Business BASIC/XL Reference Manual - HP 3000 MPE/iX Computer Systems - Edition 1 (32715-90001)

4- 134
statements and commands effected by SEND SYSTEM OUTPUT TO are CHANGE,
COPY, FIND, INFO, LIST, LIST SUBS, MODIFY, MOVE, and REDO. If a program
does not contain a SEND SYSTEM OUTPUT TO statement, output is sent to the
system standard list device.
Examples
100 SEND SYSTEM OUTPUT TO DISPLAY ! Terminal
110 SEND SYSTEM OUTPUT TO PRINTER ! Spool file sent to
115 ! system printer
120 SEND SYSTEM OUTPUT TO "SYSOUT", FILESIZE 230 ! A user-defined file
SET PAGENUM
The SET PAGENUM statement allows you to change the page number maintained
by the Report Writer. The page number available through the PAGENUM
built-in function is affected. This statement can appear anywhere in the
subunit containing the report description.
Syntax
[TO]
SET PAGENUM [, ] page_expr
[; ]
Parameters
page_expr A numeric expression. Its value must be a non-negative
number in the INTEGER range.
Examples
100 SET PAGENUM TO Last_page + 3 !Pagenumber is 3 greater than the
101 !number in Last_page
100 SET PAGENUM TO 0 !Pagenumber is 0
The Report Writer maintains a page number for use by the user. The
PAGENUM built-in function returns this page number. The page number can
be changed at any time using the SET PAGENUM statement. This allows the
addition of pages from other sources in a printed report.
The page number can be set to zero, which is particularly useful for
reports with a report header on a page by itself. Negative page numbers
are not allowed.
The page number does not affect the SUPPRESS FOR statement, which
suppresses report output. The count of page breaks is distinct from the
page number count kept by the report writer.
SETLEN
The SETLEN statement sets the current length of a HP Business BASIC/XL
string variable to a specified length.
Syntax
{TO}
SETLEN str_var {, } num_expr
{; }
Parameters
str_var The variable who length is to be set. A string variable
or a string array element.
num_expr A numeric expression that evaluates to the length of the
string.