Manuals / IBM / Kitchen Appliance / Frozen Dessert Maker

IBM manual Main Menu Inquiry, Source for module CUSMAIN, ILE RPG for AS/400 Programmers Guide

Models: AS/400

1 489
Download 489 pages 47.95 Kb
Page 372
Image 372

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 R (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) EN￿TMOD(*FIRST)

Note:

The

*FIRST option specifies that the first module in the list,

 

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

Page 371 Page 373
Page 372
Image 372
IBM manual Main Menu Inquiry, Source for module CUSMAIN, ILE RPG for AS/400 Programmers Guide
Page 371 Page 373