IBM AS/400 Manuel D’Utilisation
Search and Inquiry by Name
22:34:45
CUSTOMER SEARCH BY ZIP
9/30/94
Zip Code
11201
Customer Name
A/R Balance
Rick Coupland
300.00
Mikhail Yuri
150.00
Karyn Sanders
5.00
ENTER - Continue
F3 - End Job
F4 - RESTART ZIP CODE
Figure 186. 'Customer Search by Zip' screen
Search and Inquiry by Name
The following illustrates WORKSTN subfile processing (display with selection). Sub-
files are used to display all matched records for a specified customer name, and
then the user is allowed to make a selection from the subfile, such that additional
information about the customer can be displayed.
files are used to display all matched records for a specified customer name, and
then the user is allowed to make a selection from the subfile, such that additional
information about the customer can be displayed.
CUSMSTL3: DDS for a Logical File
A*****************************************************************
A*
FILE NAME:
CUSMSTL3
*
A*
RELATED PGMS:
SCHNAM
*
A* RELATED FILES:
CUSMST
*
A*
DESCRIPTION:
THIS IS THE LOGICAL FILE CUSMSTL3. IT HAS
*
A*
ONE RECORD FORMAT CALLED CUSREC.
*
A*
LOGICAL VIEW OF CUSTOMER MASTER FILE (CUSMST) *
A*
BY NAME (NAME)
*
A*****************************************************************
A
R CUSREC
PFILE(CUSMST)
A
K NAME
A*
A*****************************************************************
A* NOTE: SINCE THE RECORD FORMAT OF THE PHYSICAL FILE (CUSMST)
A* NOTE: SINCE THE RECORD FORMAT OF THE PHYSICAL FILE (CUSMST)
*
A*
HAS THE SAME RECORD-FORMAT-NAME, NO LISTING OF FIELDS
*
A*
IS REQUIRED IN THIS DDS FILE.
*
A*****************************************************************
Figure 187. DDS for logical file CUSMSTL3
The DDS for the database file used in this program defines one record format
named CUSREC and identifies the NAME field as the key fields.
named CUSREC and identifies the NAME field as the key fields.
364
ILE RPG for AS/400 Programmer's Guide