IBM AS/400 manual The subfile, is written to the screen as shown in on page

			Search	by	Zip	Code
The zip code (ZIP) is	used	to position	the	CUSMSTL2 file by the SET
Notice that the record	format	name CMLREC2	is	used	in	the SETLL operat

instead of the file name CUSMSTL2. If no record is found, an error displayed.

The SFLPRC subroutine handles the processing for the subfile: clearing, displaying. The subfile is prepared for additional requests in subro

indicator 55

is

on,

no

action

occurs

on

the

display, but the main st

the

subfile

records

is

cleared. The

SFLFIL

routine

fills the

subfile

record

is

read

from

the CUSMSTL2

file.

If

the zip

code

is

the

s

count (RECNUM) is incremented and the record

is written to the subfi

routine

is

repeated

until either the subfile is full (indicator 21

tion) or end of file

occurs

on

the

CUSMSTL2

file (indicator 71 on th

operation).

When

the

subfile is full or end of file occurs, the su

display

by

the

EXFMT

operation by the subfile-control

record

control

f

user

reviews

the

display

and

decides

whether:

¹ To end the program by pressing F3.

¹To restart the zip code by pressing F4. The PROMPT record format

played, and the subfile is displayed starting over with the same

¹To fill another page by pressing ROLL UP. If end of file has o CUSMSTL2 file, the current page is re-displayed; otherwise, the su

cleared and the next page is displayed.

¹To continue with another zip code by pressing ENTER. The PROMPT rec

format is displayed. The user can enter a zip code or end the

In Figure 185, the user enters a zip code in response to the promp

‡		CUSTOMER SEARCH BY ZIP	—
22:34:38			9/30/94
	Enter Zip Code 11201

ˆ	ENTER - Continue		F3 - End Job	˜
Figure 185.		'Customer Search by Zip' prompt screen
The subfile		is written to the screen as shown in Figure 186 on page

Chapter 19. Example of an Interactive 363Application