DEFINE PRINTER

`DEFINE PRINTER`([`logical-printer-name`=]`n`)
[`OUTPUT` `operand1`]
	`PROFILE` `operand2` `DISP` `operand2` `COPIES` `operand3`

This document covers the following topics:

Function
Syntax Description
Examples

For an explanation of the symbols used in the syntax diagram, see Syntax Symbols.

Belongs to Function Group: Creation of Output Reports

Function

The DEFINE PRINTER statement is used to assign a symbolic name to a report number and to control the allocation of a report to a logical destination. This provides you with additional flexibility when creating output for various logical print queues.

When this statement is executed and the specified printer is already open, the statement will implicitly cause that printer to be closed. To explicitly close a printer, however, you should use the CLOSE PRINTER statement.

Syntax Description

Operand Definition Table:

Operand	Possible Structure					Possible Formats												Referencing Permitted	Dynamic Definition
`operand1`	C	S				A												yes	no
`operand2`	C	S				A												yes	no

Syntax Element Description:

Syntax Element Description

(n)

Printer Number (Report Number):

The report number n may be a value in the range of 0 - 31. This is the number also to be used in a DISPLAY / WRITE or CLOSE PRINTER statement.

Report number 0 indicates the output channel of the main report. Only output statements such as PRINT, WRITE or DISPLAY are affected. The INPUT statement is not affected.

logical-printer-name

Logical Printer Name:

Optionally you can assign a logical name logical-printer-name to printer n. This name can be used for the rep notation in a DISPLAY / WRITE statement.

Naming conventions for logical-printer-name are the same as for user-defined variables. Multiple logical names may be assigned to the same printer number. Unlike the value of the OUTPUT operand (see below), logical-printer-name is evaluated at compile time and therefore independent of the program control flow.

OUTPUT
                              						operand1

Printer Name: If `operand1` is a variable, its format/length must be A8 or one of the following. The name must be specified as `LPTnn`, where `nn` may be a number in the range of `1 - 31`. See also Example 1. Additional reports can be assigned with the following names:
Report	Function
`DUMMY`	Output to be deleted.
`INFOLINE`	Output to the Natural infoline. For details on the infoline, see the Natural terminal command `%X` in the Terminal Commands documentation. See also Example 2.
`SOURCE`	Output to the Natural source area.

PROFILE
                              						operand2

Name of Printer Control Characters Table:

With the PROFILE clause, you specify as operand2 the name of a printer control characters table. The maximum length allowed for operand2 is 8.

Such a table is defined in the global configuration file. See Printer Profiles in the Configuration Utility documentation for details on how to set printer profiles.

DISP
                              						operand2

Disposition: Maximum length of operand: 4 bytes. Possible values for `operand2`:
`DEL`	The temporary spool file is deleted after its content has been printed. This is the default value.
`KEEP`	The temporary spool file is not deleted after its content has been printed.
`HOLD`	The temporary spool file is neither deleted nor printed.

COPIES
                              						operand3

Number of Copies:

operand3 must be an integer value.

Example 1 - Printer Name Definition

/* PRINTER NAME DEFINED FOR WINDOWS
*
DEFINE PRINTER (REPORT1 = 1) OUTPUT 'LPT1'
WRITE (REPORT1) 'REPORT 1 PRINTED ON PRINTER LPT1'
END

Example 2 - Print Output to Infoline

** Example 'DPIEX1': DEFINE PRINTER                                     
************************************************************************
*                                                                       
SET CONTROL 'XI+'        /* SWITCH INFOLINE MODE ON                     
SET CONTROL 'XT'         /* INFOLINE TOP                                
*                                                                       
DEFINE PRINTER (1) OUTPUT 'INFOLINE'                                    
WRITE (1) 'EXECUTING' *PROGRAM 'BY' *INIT-USER                          
WRITE 'TEST OUTPUT'                                                     
EJECT                    /* FORCE PHYSICAL I/O                          
*                                                                       
SET CONTROL 'X'          /* SWITCH BACK TO NORMAL                       
*                                                                       
END

Output of Program DPIEX1:

EXECUTING DPIEX1   BY HTR                                                      
Page      1                                                  05-01-13  14:54:33
                                                                               
TEST OUTPUT