IBM AS/400 manual Search and Inquiry by Name, File, CUSMSTL3 DDS

Search and Inquiry by Name

‡		CUSTOMER SEARCH BY ZIP	—
22:34:45			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 selectio files are used to display all matched records for a specified cust then the user is allowed to make a selection from the subfile, such 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)

AK NAME

A*

A*****************************************************************

A* NOTE: SINCE THE RECORD FORMAT		OF THE PHYSICAL FILE (CUSMS￿T)	*
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 reco
named	CUSREC		and	identifies	the	NAME field	as	the key	fields.

364 ILE RPG for AS/400 Programmer's Guide