IBM AS/400 Running a Program From a Menu-Driven Application, A* Cmdprompt, GO library name/PAYROL

DSPMOD(*DS3)

LOCK SLNO(01) CLRL(*ALL)

ALWROL CF03

HELP

HOME HLPRTN

1 34'PAYROLL DEPARTMENT MENU' DSPATR(HI)

3 2'Select one of the following:' COLOR(BLU)

5 7'1.'

6 7'2.'

7 7'3.' Do not delete this DDS spec.

019 2'Selection or command

'

5 11'Inquire'

5 19'into'

5 24'employee'

5 33'master'

6 11'Change'

6 18'employee'

6 27'master'

7 11'Add'

7 15'new'

7 19'employee'

Running a Program From a Menu-Driven Application

A* Free Form Menu: PAYROL
A*
A	DSPSIZ(24	80 *DS3	-
A	27	132 *DS4)
A	CHGINPDFT
A	INDARA
A	PRINT(*LIBL/QSYSPRT)
A	R PAYROL

A

A

A

A

A

A

A

A

A

A

A

A

A

A

A

A

A* CMDPROMPT

A-

A

A

A

A

A

A

A

A

A

A

A

Figure 50. Data Description Specification of an Application Menu

Figure 51 shows the source of				the application menu illustrated in Figu
page 106. The source member is				called PAYROLQQ and has a source typ
MNUCMD. It was also created using SDA.
PAYROLQQ,1
0001	call RPGINQ
0002	call RPGCHG
0003	call RPGADD
Figure 51. Source for Menu Program
You	run the	menu by	entering:
GO library name/PAYROL
If	the user enters 1, 2, or			3 from the application menu, the sou
the	programs	RPGINQ,	RPGCHG, or	RPGADD respectively.

Chapter 9. Running a Program107