IBM AS/400 Example of Printing Headings on Every Page, Example of Printing a Field on Every Page

Models: AS/400

1 489
Download 489 pages 47.95 Kb
Page 343
Image 343
Example of Printing Headings on Every Page

Accessing Printer Devices

Table

23.

Results of the Presence or Absence of an Overflow Indicator

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

File

 

 

 

Output

Specifi-

 

 

 

 

 

 

 

 

 

 

Description

 

 

cations

Posi-

 

 

 

 

 

Action

 

 

 

 

Specifications

 

tions

21-29

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Positions

44-80

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

No

entry

 

No

entry

First

unused

overflow indicator used

to condi-

 

 

 

 

 

 

 

tion

skip

to

next

page

at overflow.

 

 

 

 

 

 

 

 

 

No

entry

 

Entry

 

Error at compile time; overflow indicator

 

 

 

 

 

 

 

dropped from output specifications. First

 

 

 

 

 

 

 

unused

overflow

indicator

used to condition

 

 

 

 

 

 

 

skip

to

next

page

at overflow.

 

 

 

 

 

 

 

 

 

OFLIND

(indi-

 

No

entry

Continuous

printing;

no overflow recognized.

cator)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

OFLIND

(indi-

 

Entry

 

Processes

normal

overflow.

 

 

 

cator)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Example of Printing Headings on Every Page

Figure 157 shows an example of the coding necessary for printing head every page: first page, every overflow page, and each new page t

because of a

change

in

control fields

(L2

is on). The first line a

to

be

printed

at

the

top of

a

new page

(skip

to

06) only

when

an

(OA

is

on

and

L2 is not on).

 

 

 

 

 

 

 

 

 

 

The

second

line

allows

printing

of

headings on

the

new

page

only

at

of

a

new control group (L2 is

on). This way, duplicate headings cau

and

OA

being on at the same

time do not occur. The second line allo

to

be

printed on the first page after the first record

is

read

always

causes

a

control

break

(L2

turns

on)

if control

fields

are sp

record.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

*.. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... *

 

 

 

 

OFilename++DF..N01N02N03Excnam++++B++A++Sb+Sa+

 

 

 

 

OPRINT

H

OANL2

 

 

3

6

 

 

 

 

 

 

 

 

 

O..............N01N02N03Field+++++++++YB.End++PConstant/editword/DTforma￿t++

 

 

 

 

O

 

OR

L2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

O

 

 

 

 

 

 

 

8 'DATE'

 

 

 

 

 

 

 

 

O

 

 

 

 

 

 

 

18 'ACCOUNT'

 

 

 

 

 

 

 

O

 

 

 

 

 

 

 

28 'N A M E'

 

 

 

 

 

 

 

O

 

 

 

 

 

 

 

46 'BALANCE'

 

 

 

 

 

 

 

O*

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Figure

157.

Printing a Heading on Every Page

 

 

 

 

 

 

 

 

 

Example of Printing a Field on Every Page

Figure 158 on page 320shows the necessary coding for the printing of fields on every page; a skip to 06 is done either on an overflow c change in control level (L2). The NL2 indicator prevents the line from skipping twice in the same cycle.

Chapter 17. Accessing Externally Attached319Devices

Page 343
Image 343
IBM AS/400 manual Example of Printing Headings on Every Page, Example of Printing a Field on Every Page