IBM AS/400 manual Szipmenu Dds, Display, File, Device, Search by Zip Code

Search by Zip Code

SZIPMENU: DDS	for	a	Display		Device	File
			A*****************************************************************
			A*		FILE NAME:	SZIPMENU					*
			A*	RELATED PGMS:		SCHZIP					*
			A* RELATED FILES:			CUSMSTL2		(LOGICAL		FILE)	*
			A*	DESCRIPTION:		THIS IS THE DISPLAY				FILE SZIPMENU. IT HAS 6	*
			A*			RECORD FORMATS.					*
			A*****************************************************************
			A							REF(CUSMSTL2)
			A							CHGINPDFT(CS)
			A							PRINT(QSYSPRT)
			A							INDARA
			A							CA03(03 'END OF JOB')
			A		R HEAD
			A							OVERLAY
			A					2		4TIME
			A							DSPATR(HI)
			A					2	28'CUSTOMER SEARCH BY ZIP'
			A							DSPATR(HI RI)
			A					2	70DATE
			A							EDTCDE(Y)
			A							DSPATR(HI)
			A		R FOOT1
			A					23		6'ENTER - Continue'
			A							DSPATR(HI)
			A					23	29'F3 - End Job'
			A							DSPATR(HI)
			A		R FOOT2
			A					23		6'ENTER - Continue'
			A							DSPATR(HI)
			A					23	29'F3 - End Job'
			A							DSPATR(HI)
			A					23	47'F4 - RESTART ZIP CODE'
			A							DSPATR(HI)
			A		R PROMPT
			A							OVERLAY
			A					4		4'Enter Zip Code'
			A							DSPATR(HI)
			A		ZIP	R	Y	I 4	19DSPATR(CS)
			A							CHECK(RZ)
			A	61						ERRMSG('ZIP CODE NOT FOUND' +
			A							61)
			A		R SUBFILE					SFL
			A		NAME	R		9		4
			A		ARBAL	R		9	27EDTCDE(J)
			A		R SUBCTL					SFLCTL(SUBFILE)
		Figure		183	(Part 1	of	2).	DDS for display device file SZIPMENU

Chapter 19. Example of an Interactive 359Application