Filter
Top Products
File Maintenance
MNTMENU: DDS for a Display Device File
A*****************************************************************
A* FILE NAME: MNTMENU *
A* RELATED PGMS: CUSMNT *
A* RELATED FILES: CUSMSTL1 (LOGICAL FILE) *
A* DESCRIPTION: THIS IS THE DISPLAY FILE MNTMENU. IT HAS 3 *
A* RECORD FORMATS. *
A*****************************************************************
A REF(CUSMSTL1)
A CHGINPDFT(CS)
A PRINT(QSYSPRT)
A INDARA
A R HDRSCN
A TEXT('PROMPT FOR CUST NUMBER')
A CA03(03 'END MAINTENANCE')
A CA05(05 'ADD MODE')
A CA06(06 'UPDATE MODE')
A CA07(07 'DELETE MODE')
A CA08(08 'DISPLAY MODE')
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 RI)
A 2 70DATE
A EDTCDE(Y)
A DSPATR(HI)
A CUST R Y I 10 25DSPATR(CS)
A CHECK(RZ)
A 51 ERRMSG('CUSTOMER ALREADY ON +
A FILE' 51)
A 52 ERRMSG('CUSTOMER NOT ON FILE' +
A 52)
A 10 33'<--Enter Customer Number'
A DSPATR(HI)
A 23 4'F3 End Job'
A 23 21'F5 Add'
A 23 34'F6 Update'
A 23 50'F7 Delete'
A 23 66'F8 Display'
A R CSTINQ
A TEXT('DISPLAY CUST INFO')
A CA12(12 'PREVIOUS SCREEN')
Figure 174 (Part 1 of 2). DDS for display device file MNTMENU
350 ILE RPG for AS/400 Programmer's Guide