Filter
Top Products
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.
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* 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.
364 ILE RPG for AS/400 Programmer's Guide