IBM AS/400 用户手册
Main Menu Inquiry
A*****************************************************************
A*
FILE NAME:
MAINMENU
*
A*
RELATED PGMS:
CUSMAIN
*
A*
DESCRIPTION:
THIS IS THE DISPLAY FILE MAINMENU. IT HAS 1
*
A*
RECORD FORMAT CALLED HDRSCN.
*
A*****************************************************************
A
A
DSPSIZ(24 80 *DS3)
A
CHGINPDFT(CS)
A
PRINT(QSYSPRT)
A
INDARA
A
R HDRSCN
A
CA03(03 'END OF INQUIRY')
A
CA05(05 'MAINTENANCE MODE')
A
CA06(06 'SEARCH BY ZIP MODE')
A
CA07(07 'SEARCH BY NAME MODE')
A
2
4TIME
A
DSPATR(HI)
A
2 28'CUSTOMER MAIN INQUIRY'
A
DSPATR(HI)
A
DSPATR(RI)
A
2 70DATE
A
EDTCDE(Y)
A
DSPATR(HI)
A
6
5'Press one of the following'
A
6 32'PF keys.'
A
8 22'F3 End Job'
A
9 22'F5 Maintain Customer File'
A
10 22'F6 Search Customer by Zip Code'
A
11 22'F7 Search Customer by Name'
Figure 170. DDS for display device file MAINMENU
In addition to describing the constants, fields, line numbers, and horizontal positions
for the screen, the record formats also define the display attributes for these
entries.
for the screen, the record formats also define the display attributes for these
entries.
Note: Normally, the field attributes are defined in a field-reference file rather than
in the DDS for a file. The attributes are shown on the DDS so you can see
what they are.
what they are.
CUSMAIN: RPG Source
Chapter 19. Example of an Interactive Application
347