IBM AS/400 Manuel D’Utilisation
File Maintenance
22:30:05
CUSTOMER MAIN INQUIRY
9/30/94
Press one of the following PF keys.
F3 End Job
F5 Maintain Customer File
F6 Search Customer by Zip Code
F7 Search Customer by Name
F5 Maintain Customer File
F6 Search Customer by Zip Code
F7 Search Customer by Name
Figure 172. Customer Main Inquiry prompt screen
File Maintenance
The following illustrates a maintenance program using the WORKSTN file. It allows
you to add, delete, update, and display records of the master customer file.
you to add, delete, update, and display records of the master customer file.
CUSMSTL1: DDS for a Logical File
A*****************************************************************
A*
FILE NAME:
CUSMSTL1
*
A*
RELATED PGMS:
CUSMNT
*
A* RELATED FILES:
CUSMST
(PHYSICAL FILE)
*
A*
DESCRIPTION:
THIS IS LOGICAL FILE CUSMSTL1.
*
A*
IT CONTAINS ONE RECORD FORMAT CALLED CMLREC1. *
A*
LOGICAL VIEW OF CUSTOMER MASTER FILE (CUSMST) *
A*
BY CUSTOMER NUMBER (CUST)
*
A*****************************************************************
A
R CMLREC1
PFILE(CUSMST)
A
CUST
A
NAME
A
ADDR1
A
ADDR2
A
CITY
A
STATE
A
ZIP
A
K CUST
Figure 173. DDS for logical file CUSMSTL1
The DDS for the database file used by this program describe one record format:
CMLREC1. Each field in the record format is described, and the CUST field is iden-
tified as the key field for the record format.
CMLREC1. Each field in the record format is described, and the CUST field is iden-
tified as the key field for the record format.
Chapter 19. Example of an Interactive Application
349