Справочник Пользователя для IBM AS/400
Search by Zip Code
UPDATE MODE
22:33:17
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 are
used to display all matched records for a specified zip code.
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)
A
ZIP
A
NAME
A
ARBAL
A
K ZIP
Figure 182. DDS for logical file CUSMSTL2
The DDS for the database file used by this program describe one record format:
CMLREC2. The logical file CUSMSTL2 keyed by zip code is based on the physical
file CUSMST, as indicated by the PFILE keyword. The record format created by the
logical file will include only those fields specified in the logical file DDS. All other
fields will be excluded.
CMLREC2. The logical file CUSMSTL2 keyed by zip code is based on the physical
file CUSMST, as indicated by the PFILE keyword. The record format created by the
logical file will include only those fields specified in the logical file DDS. All other
fields will be excluded.
358
ILE RPG for AS/400 Programmer's Guide