HP 3000 Manuals HP 3000 Manuals
VPRINTFORM
Prints the current form on an offline list device.
Syntax
VPRINTFORM {comarea,printcntl,pagecntl}
Parameters
comarea Must be comarea name specified when the forms file was
opened with VOPENFORMF. If not already set, the
following comarea items must be set before calling
VPRINTFORM:
cstatus Set to zero.
comarealen Set to total number of two-byte words
in comarea.
printfilnum Set to file number of the list file to
which the form is to be printed. If
set to zero, VPRINTFORM opens the
device "LP" as the list file and sets
printfilnum to the file number of the
opened list file.
VPRINTFORM may set the following comarea values:
printfilnum If VPRINTFORM opened the list file, set
to the file number of the open file.
cstatus Set to nonzero value if call
unsuccessful.
filerrnum Set to file error code if MPE file
error.
printcntl Two-byte integer that, if set to 1, causes VPRINTFORM to
underline each field in the form listing. If set to any
other value, fields are not underlined.
pagecntl Two-byte integer value that determines the carriage
control operation performed after a form is listed. May
be any of the carriage control codes used by the MPE
FWRITE intrinsic, including the following:
61(octal) -- Page eject
320(octal) -- No line feed or carriage return
zero -- Carriage return/line feed
Discussion
VPRINTFORM prints the current form to a list file. It is analogous to
VSHOWFORM, in that it prints the form and the current data buffer values,
except that VPRINTFORM prints the form on a hardcopy device rather than
on the terminal. Enhancements obviously cannot be shown directly; the
window line and key labels are not printed. The form must have been read
into the form definition area of memory by a prior call to VGETNEXTFORM.
The information printed depends on what is in the data buffer, which may
not necessarily be the same as what is displayed.
The carriage control character specified in the pagecntl parameter is
effective after the form is printed.
If the calling program opens the list file, it must supply the file
number of this file in printfilnum. If printfilnum is zero, VPRINTFORM
opens a list file and sets printfilnum to the file number of the file.
VPRINTFORM opens the list file, with the formal and actual file
designator FORMLIST, assigns it to the device class LP, and specifies its
length as 80 bytes. This is equivalent to using the file equation:
:FILE FORMLIST;DEV=LP;REC=-80
A user may change any of these characteristics with an MPE :FILE command.
Example
COBOL
CALL "VPRINTFORM" USING COMAREA, UNDERLINE, PAGE.
BASIC
135 CALL VPRINTFORM(C(*),U,P)
FORTRAN
CALL VPRINTFORM(COMAREA,UNDRLN,PAGE)
SPL/PASCAL
VPRINTFORM(COMAREA,UNDERLINE,PAGE);
Each of the calls shown above prints the current form on a list device;
if not already open, it opens the device file.