Filter
Top Products
Main Menu Inquiry
*****************************************************************
* PROGRAM NAME: CUSMAIN *
* RELATED FILES: MAINMENU (DSPF) *
* RELATED PGMS: CUSMNT (ILE RPG PGM) *
* SCHZIP (ILE RPG PGM) *
* SCHNAM (ILE RPG PGM) *
* DESCRIPTION: THIS IS A CUSTOMER MAIN INQUIRY PROGRAM. *
* IT PROMPTS THE USER TO CHOOSE FROM ONE OF THE *
* FOLLOWING ACTIONS: *
* 1.MAINTAINS (ADD, UPDATE, DELETE AND DISPLAY) *
* CUSTOMER RECORD. *
* 2.SEARCH CUSTOMER RECORD BY ZIP CODE. *
* 3.SEARCH CUSTOMER RECORD BY NAME. *
*****************************************************************
FMAINMENU CF E WORKSTN
C EXFMT HDRSCN
C*
C DOW NOT *IN03
C SELECT
C WHEN *IN05
C CALLB 'CUSMNT'
C WHEN *IN06
C CALLB 'SCHZIP'
C WHEN *IN07
C CALLB 'SCHNAM'
C ENDSL
C EXFMT HDRSCN
C ENDDO
C*
C SETON LR
Figure 171. Source for module CUSMAIN
This module illustrates the use of the CALLB opcode. The appropriate RPG module
(CUSMNT, SCHZIP, or SCHNAM) is called by CUSMAIN depending on the user's
menu item selection.
To create the program object:
1. Create a module for each source member (CUSMAIN, CUSMNT, SCHZIP, and
SCHNAM) using CRTRPGMOD.
2. Create the program by entering:
CRTPGM PGM(MYPROG) MODULE(CUSMAIN CUSMNT SCHZIP SCHNAM) ENTMOD(*FIRST)
Note: The *FIRST option specifies that the first module in the list, CUSMAIN,
is selected as the program entry procedure.
3. Call the program by entering:
CALL MYPROG
The "main menu" will appear as in Figure 172 on page 349.
348 ILE RPG for AS/400 Programmer's Guide