This document covers the following topics:
Related Statements: AT END OF
PAGE | AT TOP OF
PAGE | CLOSE
PRINTER | DEFINE
PRINTER |
DISPLAY |
FORMAT |
NEWPAGE |
PRINT |
SKIP |
SUSPEND IDENTICAL SUPPRESS
| WRITE |
WRITE TITLE |
WRITE TRAILER
Belongs to Function Group: Creation of Output Reports
The EJECT statement may be used to control page
advance/page ejection.
Two different structures are possible for this statement.
For an explanation of the symbols used in the syntax diagrams below, see Syntax Symbols.
EJECT
|
|
ON
|
|
[(rep)] |
OFF
|
Syntax Element Description:
| Syntax Element | Description | |
|---|---|---|
EJECT ON/OFF
(rep) |
With Report Specification - Online and Batch
Modes:
|
|
EJECT OFF (rep) |
Causes no page advance (except as specified with Syntax 2 of the EJECT
statement) for the specified report to be executed.
|
|
EJECT ON
(rep) |
Causes page advances for the specified report to be executed. | |
EJECT ON/OFF |
Without Report Specification - Batch Mode only:
Without report notation
|
|
EJECT ON |
Causes Natural to generate a page eject between the source
program listing, the output report and the message
EXECUTION COMPLETED. This is the default setting. |
|
EJECT OFF |
Causes Natural to suppress page breaks between the above
output. EJECT OFF remains in effect until revoked with a subsequent
EJECT ON statement.
|
|
(rep) |
Report Specification:
The notation
A value in the range 0 - 31 or a logical name which has been assigned using
the If For information on how to control the format of an output report created with Natural, see Report Format and Control in the Programming Guide. |
|
This form of the EJECT statement may be used to cause a page advance
without a title or heading line being generated on the next page and without
TOP/END PAGE processing.
EJECT
|
[( rep )] |
|
|
IF
|
|
LESS [THAN]
operand1 [LINES]
[LEFT]
|
|
WHEN
|
Operand Definition Table:
| Operand | Possible Structure | Possible Formats | Referencing Permitted | Dynamic Definition | |||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
operand1
|
C | S | N | P | I | yes | no | ||||||||||||
Syntax Element Description:
| Syntax Element | Description |
|---|---|
(rep) |
Report Specification:
The notation A value in the range 0 - 31 or a logical name which has been assigned using
the If For information on how to control the format of an output report created with Natural, see Report Format and Control in the Programming Guide. |
IF LESS THAN operand1
LINES LEFT
|
IF LESS THAN ... LINES LEFT Clause:
A page advance will be performed only when the current line for the page is
greater than the page size minus
|
The execution of an EJECT statement does not cause any
statements used with an AT TOP OF
PAGE, AT END OF
PAGE, WRITE
TITLE or WRITE
TRAILER statement to be executed. It does not affect system
functions evaluated by DISPLAY GIVE SYSTEM
FUNCTIONS.
EJECT causes a new physical page only. It causes the
Natural system variable *LINE-COUNT
to be set to 1 but has no effect on the setting of the Natural
system variable *PAGE-NUMBER.
** Example 'EJTEX1': EJECT
************************************************************************
DEFINE DATA LOCAL
1 EMPLOY-VIEW VIEW OF EMPLOYEES
2 CITY
2 NAME
2 JOB-TITLE
END-DEFINE
*
FORMAT PS=15
LIMIT 9
READ EMPLOY-VIEW BY CITY
/*
AT START OF DATA
EJECT
WRITE /// 20T '%' (29) /
20T '%%' 47T '%%' /
20T '%%' 3X 'REPORT OF EMPLOYEES' 47T '%%' /
20T '%%' 3X ' SORTED BY CITY ' 47T '%%' /
20T '%%' 47T '%%' /
20T '%' (29) /
EJECT
END-START
EJECT WHEN LESS THAN 3 LINES LEFT
/*
WRITE '*' (64)
DISPLAY NOTITLE NOHDR CITY NAME JOB-TITLE 5X *LINE-COUNT
WRITE '*' (64)
END-READ
END
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% %%
%% REPORT OF EMPLOYEES %%
%% SORTED BY CITY %%
%% %%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
**************************************************************** AIKEN SENKO PROGRAMMER 2 **************************************************************** **************************************************************** AIX EN OTHE GODEFROY COMPTABLE 5 **************************************************************** **************************************************************** AJACCIO CANALE CONSULTANT 8 **************************************************************** **************************************************************** ALBERTSLUND PLOUG KONTORASSISTENT 11 **************************************************************** **************************************************************** ALBUQUERQUE HAMMOND SECRETARY 14 ****************************************************************
**************************************************************** ALBUQUERQUE ROLLING MANAGER 2 **************************************************************** **************************************************************** ALBUQUERQUE FREEMAN MANAGER 5 **************************************************************** **************************************************************** ALBUQUERQUE LINCOLN ANALYST 8 **************************************************************** **************************************************************** ALFRETON GOLDBERG JUNIOR 11 ****************************************************************