[AT] END [OF] PAGE
[(rep)]
|
statement
 |
END-ENDPAGE |
[AT] END [OF] PAGE
[(rep)]
|
||
|
|
statement |
|
DO statement
DOEND |
||
This document covers the following topics:
For an explanation of the symbols used in the syntax diagram, see Syntax Symbols.
Related Statements: AT TOP OF
PAGE | CLOSE
PRINTER | 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 AT END OF PAGE statement is used to specify
processing that is to be performed when an end-of-page condition is detected
(see session parameter PS in the
Parameter Reference). An end-of-page condition may also
occur as a result of a SKIP
or NEWPAGE statement, but
not as a result of an EJECT
or INPUT statement.
See also the following sections in the Programming Guide:
An AT END OF PAGE statement block is only executed if
the object which contains the statement block is active at the time when the
end-of-page condition occurs.
An AT END OF PAGE statement must not be placed within
an inline subroutine.
This statement is non-procedural, that is, its execution depends on an event, not on where in a program it is located.
The end-of-page check is performed after the processing of a
DISPLAY or
WRITE statement is
completed. Therefore, if a DISPLAY or WRITE statement
produces multiple lines of output, overflow of the physical page may occur
before an end-of-page condition is detected.
A logical page size (session parameter
PS) which is
less than the physical page size must be specified to ensure that information
printed by an AT END OF PAGE statement appears on the same
physical page as the title.
Within a main program, an end-of-page condition is activated when
the execution of the main program terminates via ESCAPE, STOP or END.
Within a subroutine, an end-of-page condition is not activated
when the execution of the subroutine terminates via
ESCAPE-ROUTINE,
RETURN or END-SUBROUTINE.
Natural system functions may be used in conjunction with an
AT END OF PAGE statement as described in the section
Using System
Functions in Processing Loops in the System
Functions documentation.
If a system function is to be used within an AT END OF
PAGE statement block, the GIVE SYSTEM
FUNCTIONS clause must be specified in the corresponding
DISPLAY statement.
If an INPUT
statement is specified within an AT END OF PAGE statement block,
no new page operation is performed. The page size (session parameter
PS) must be
reduced to a value that allows the lines created by the INPUT
statement to appear on the same physical page.
See also:
| Syntax Element | Description |
|---|---|
(rep)
|
Report Specification: The
notation
(rep) may be used to specify
the identification of the report for which the AT END OF PAGE
statement is applicable. A value in the range 0 - 31 or a logical
name which has been assigned using the DEFINE
PRINTER
statement may be specified.
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. |
statement |
Statement(s) to be Executed at End of Page
Condition:
In structured mode, you must supply one or several suitable statements, depending on the situation. For an example of a statement, see Example below. |
END-ENDPAGE |
End of AT END OF PAGE
Statement:
In structured mode, the Natural reserved word
In reporting mode, use the |
** Example 'AEPEX1S': AT END OF PAGE (structured mode)
************************************************************************
DEFINE DATA LOCAL
1 EMPLOY-VIEW VIEW OF EMPLOYEES
2 PERSONNEL-ID
2 NAME
2 JOB-TITLE
2 SALARY (1)
2 CURR-CODE (1)
END-DEFINE
*
FORMAT PS=10
LIMIT 10
READ EMPLOY-VIEW BY PERSONNEL-ID FROM '20017000'
DISPLAY NOTITLE GIVE SYSTEM FUNCTIONS
NAME JOB-TITLE 'SALARY' SALARY(1) CURR-CODE (1)
/*
AT END OF PAGE
WRITE / 28T 'AVERAGE SALARY: ...' AVER(SALARY(1)) CURR-CODE (1)
END-ENDPAGE
END-READ
*
END
See also Natural System Functions for Use in Processing Loops.
NAME CURRENT SALARY CURRENCY
POSITION CODE
-------------------- ------------------------- ---------- --------
CREMER ANALYST 34000 USD
MARKUSH TRAINEE 22000 USD
GEE MANAGER 39500 USD
KUNEY DBA 40200 USD
NEEDHAM PROGRAMMER 32500 USD
JACKSON PROGRAMMER 33000 USD
AVERAGE SALARY: ... 33533 USD
Equivalent reporting-mode example: AEPEX1R.
** Example 'AEPEX2': AT END OF PAGE (with INPUT)
************************************************************************
DEFINE DATA LOCAL
1 EMPLOY-VIEW VIEW OF EMPLOYEES
2 NAME
2 FIRST-NAME
2 POST-CODE
2 CITY
*
1 #START-NAME (A20)
END-DEFINE
*
FORMAT PS=21
*
REPEAT
READ (15) EMPLOY-VIEW BY NAME = #START-NAME
DISPLAY NOTITLE NAME FIRST-NAME POST-CODE CITY
END-READ
NEWPAGE
/*
AT END OF PAGE
MOVE NAME TO #START-NAME
INPUT / '-' (79)
/ 10T 'Reposition to name ==>'
#START-NAME (AD=MI) '(''.'' to exit)'
IF #START-NAME = '.'
STOP
END-IF
END-ENDPAGE
/*
END-REPEAT
END
NAME FIRST-NAME POSTAL CITY
ADDRESS
-------------------- -------------------- ---------- --------------------
ABELLAN KEPA 28014 MADRID
ACHIESON ROBERT DE3 4TR DERBY
ADAM SIMONE 89300 JOIGNY
ADKINSON JEFF 11201 BROOKLYN
ADKINSON PHYLLIS 90211 BEVERLEY HILLS
ADKINSON HAZEL 20760 GAITHERSBURG
ADKINSON DAVID 27514 CHAPEL HILL
ADKINSON CHARLIE 21730 LEXINGTON
ADKINSON MARTHA 17010 FRAMINGHAM
ADKINSON TIMMIE 17300 BEDFORD
ADKINSON BOB 66044 LAWRENCE
AECKERLE SUSANNE 7000 STUTTGART
AFANASSIEV PHILIP 39401 HATTIESBURG
AFANASSIEV ROSE 60201 EVANSTON
AHL FLEMMING 2300 SUNDBY
-------------------------------------------------------------------------------
Reposition to name ==> AHL ('.' to exit)