IBM AS/400 manual Search by Zip Code, File

Models: AS/400

1 489
Download 489 pages 47.95 Kb
Page 382
Image 382
Search by Zip Code

Search by Zip Code

 

 

 

 

 

 

 

UPDATE MODE

 

 

 

22:33:17

CUSTOMER FILE MAINTENANCE

9/30/94

 

00010 <--Enter Customer Number

 

 

 

ˆ

F3 End Job

F5 Add

F6 Update

F7 Delete

F8 Display

˜

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Figure

181.

'Customer File Maintenance' Update Mode prompt screen

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Search by

Zip

Code

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

The

following

illustrates

WORKSTN

subfile

processing (display only). Subfiles

 

 

 

used

to

display

all matched

records

for a

specified zip code.

CUSMSTL2: DDS

for

 

a

Logical

File

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

A*****************************************************************

 

 

 

 

 

 

 

 

 

A*

FILE NAME:

CUSMSTL2

 

 

 

*

 

 

 

 

 

 

 

 

 

A*

RELATED PGMS:

SCHZIP

 

 

 

 

*

 

 

 

 

 

 

 

 

 

A* RELATED FILES:

CUSMST

(PHYSICAL FILE)

 

*

 

 

 

 

 

 

 

 

 

A*

DESCRIPTION:

THIS IS LOGICAL FILE CUSMSTL2.

*

 

 

 

 

 

 

 

 

 

A*

 

 

IT CONTAINS ONE RECORD FORMAT CALLED CMLREC2. *

 

 

 

 

 

 

 

 

 

A*

 

 

LOGICAL VIEW OF CUSTOMER MASTER FILE (CUSMST) *

 

 

 

 

 

 

 

 

 

A*

 

 

BY CUSTOMER ZIP CODE (ZIP)

 

*

 

 

 

 

 

 

 

 

 

A*****************************************************************

 

 

 

 

 

 

 

 

 

A

 

R CMLREC2

 

 

PFILE(CUSMST)

 

 

 

 

AZIP

ANAME

AARBAL

AK ZIP

Figure 182. DDS for logical file CUSMSTL2

The DDS for the database file used by this program describe one r CMLREC2. The logical file CUSMSTL2 keyed by zip code is based on the file CUSMST, as indicated by the PFILE keyword. The record format cre logical file will include only those fields specified in the logical fi fields will be excluded.

358 ILE RPG for AS/400 Programmer's Guide

Page 382
Image 382
IBM AS/400 manual Search by Zip Code, File