IBM AS/400 manual File Maintenance, Part 2 of 2. DDS for display device file MNTMENU

File Maintenance

A		MODE		8A	O	1	4DSPATR(HI)
A						1	13'MODE'
A							DSPATR(HI)
A						2	4TIME
A							DSPATR(HI)
A						2	28'CUSTOMER FILE MAINTENANCE'
A							DSPATR(HI)
A							DSPATR(RI)
A						2	70DATE
A							EDTCDE(Y)
A							DSPATR(HI)
A						4	14'Customer:'
A							DSPATR(HI)
A							DSPATR(UL)
A		CUST	R		O	4	25DSPATR(HI)
A		NAME	R		B	6	25DSPATR(CS)
A	04						DSPATR(PR)
A		ADDR1	R		B	7	25DSPATR(CS)
A	04						DSPATR(PR)
A		ADDR2	R		B	8	25DSPATR(CS)
A	04						DSPATR(PR)
A		CITY	R		B	9	25DSPATR(CS)
A	04						DSPATR(PR)
A		STATE	R		B 10		25DSPATR(CS)
A	04						DSPATR(PR)
A		ZIP	R		B 10		40DSPATR(CS)
A							EDTCDE(Z)
A	04						DSPATR(PR)
A						23	2'F12 Cancel'
A		MODE1		8	O 23		13
A		R CSTBLD					TEXT('ADD CUST RECORD')
A							CA12(12 'PREVIOUS SCREEN')
A		MODE		8	O	1	4DSPATR(HI)
A						1	13'MODE'	DSPATR(HI)
A						2	4TIME
A							DSPATR(HI)
A						2	28'CUSTOMER FILE MAINTENANCE'
A							DSPATR(HI RI)
A						2	70DATE
A							EDTCDE(Y)
A							DSPATR(HI)
A						4	14'Customer:' DSPATR(HI UL)
A		CUST	R		O	4	25DSPATR(HI)
A						6	20'Name'	DSPATR(HI)
A		NAME	R		I	6	25
A						7	17'Address'	DSPATR(HI)
A		ADDR1	R		I	7	25
A						8	17'Address'	DSPATR(HI)
A		ADDR2	R		I	8	25
A						9	20'City'	DSPATR(HI)
A		CITY	R		I	9	25
A						10	19'State'	DSPATR(HI)
A		STATE	R		I 10		25
A						10	36'Zip'	DSPATR(HI)
A		ZIP	R	Y	I 10		40
A						23	2'F12 Cancel Addition'

Figure 174 (Part 2 of 2). DDS for display device file MNTMENU

The DDS for the MNTMENU display device file contains three record fo HDRSCN, CSTINQ, and CSTBLD. The HDRSCN record prompts for the customer number and the mode of processing. The CSTINQ record is used for t

Chapter 19. Example of an Interactive 351Application