IBM AS/400 manual Search by Zip Code, 14DSPATRHI, Prompt

Search by Zip Code

A	55				SFLCLR
A N55					SFLDSPCTL
A N55					SFLDSP
A					SFLSIZ(13)
A					SFLPAG(13)
A					ROLLUP(95 'ROLL UP')
A					OVERLAY
A					CA04(04 'RESTART ZIP CDE')
A				4	4'Zip Code'
A		ZIP	R	O 4	14DSPATR(HI)
A				7	4'Customer Name'
A					DSPATR(HI UL)
A				7	27'A/R Balance'
A					DSPATR(HI UL)
Figure	183	(Part	2 of 2).	DDS for display device file SZIPMENU

The DDS for the SZIPMENU display device file contains six record forma FOOT1, FOOT2, PROMPT, SUBFILE, and SUBCTL.

The

PROMPT

record

format requests

the user to enter a

zip

code. If

not found in the file,

an

error

message

is displayed.

The

user

can

sets

on

indicator

03,

to

end

the

program.

The SUBFILE record format must be defined immediately

preceding

the s

control record format SUBCTL. The subfile record format,

which

is

defi

keyword

SFL,

describes

each

field

in the

record, and

specifies

the

the

first

record

is

to

appear

on

the display (here,

on

line

9).

The subfile-control record format contains the following unique keywords:

¹SFLCTL identifies this format as the control record format and names

ciated subfile record format.

¹SFLCLR describes when the subfile is to be cleared of existing re

indicator 55 is on). This keyword is needed for additional displays.

¹SFLDSPCTL indicates when to display the subfile-control record format (w

indicator 55 is off).

¹	SFLDSP	indicates when to display the						subfile	(when	indicator 55 is of
¹	SFLSIZ	specifies		the	total	size	of	the subfile. In this example,
	13 records		that	are	displayed		on	lines 9	through	21.
¹	SFLPAG	defines	the	number of		records		on a page. In this example, t
	size	is the	same as		the	subfile		size.

¹ROLLUP indicates that indicator 95 is set on in the program when th function is used.

The OVERLAY keyword defines this subfile-control record format as an ov format. This record format can be written without the OS/400 system er screen first. F4 is valid for repeating the search with the same zi of F4 allows a form of roll down.)

360 ILE RPG for AS/400 Programmer's Guide