IBM AS/400 manual File Maintenance, CUSMSTL1 DDS for a, Logical, Customer Main Inquiry

File Maintenance

‡	CUSTOMER MAIN INQUIRY	—
22:30:05		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

	ˆ						˜
	Figure		172.	Customer Main Inquiry prompt screen
File Maintenance
	The	following illustrates				a maintenance program	using the WORKSTN file. I
	you	to	add, delete, update, and display records of the master cu
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 CMLREC1. Each field in the record format is described, and the CUST tified as the key field for the record format.

Chapter 19. Example of an Interactive 349Application