IBM AS/400 manual Display, File Maintenance, Device, Mntmenu Dds

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