CLOSE PRINTER
|
|
(logical-printer-name) |
|
| (printer-number) |
This document covers the following topics:
For an explanation of the symbols used in the syntax diagram, see Syntax Symbols.
Related Statements: AT END OF
PAGE | AT TOP OF
PAGE |DEFINE
PRINTER |
DISPLAY |
EJECT |
FORMAT |
NEWPAGE |
PRINT |
SKIP |
SUSPEND IDENTICAL SUPPRESS
| WRITE |
WRITE TITLE |
WRITE TRAILER
Belongs to Function Group: Creation of Output Reports
The CLOSE PRINTER statement is used to close a specific
printer. With this statement, you explicitly specify in a program that a
printer is to be closed.
A printer is also closed automatically in one of the following cases:
when a DEFINE
PRINTER
statement in which the same printer is defined again is executed;
when command mode is reached.
When a printer is closed, the profile associated with the
printer (see PROFILE
clause of the DEFINE
PRINTER statement) is deleted, that is, any further writes to
the printer are affected.
| Syntax Element | Description |
|---|---|
logical-printer-name
|
Logical Printer Name:
With the
Naming conventions for the
|
printer-number
|
Printer Number:
Alternatively to the
The Printer number 0 indicates the hardcopy printer. |
** Example 'CLPEX1': CLOSE PRINTER
************************************************************************
DEFINE DATA LOCAL
1 EMP-VIEW VIEW OF EMPLOYEES
2 PERSONNEL-ID
2 NAME
2 FIRST-NAME
2 BIRTH
*
1 #I-NAME (A20)
END-DEFINE
*
DEFINE PRINTER (PRT01=1)
*
REPEAT
INPUT 'SELECT PERSON' #I-NAME
IF #I-NAME = ' '
STOP
END-IF
FIND EMP-VIEW WITH NAME = #I-NAME
WRITE (PRT01) 'NAME :' NAME ',' FIRST-NAME
/ 'PERSONNEL-ID :' PERSONNEL-ID
/ 'BIRTH :' BIRTH (EM=YYYY-MM-DD)
END-FIND
/*
CLOSE PRINTER (PRT01)
/*
END-REPEAT
END