Manuals / IBM / Kitchen Appliance / Frozen Dessert Maker

IBM AS/400 manual Creating a Module Object, Part, Source for TRANSSVC member

Models: AS/400

1 489
Download 489 pages 47.95 Kb
Page 101
Image 101

Creating a Module Object

 

*------------------------------------------------------------------

 

 

 

 

 

 

* Subprocedure Trans_Inc

 

 

 

*------------------------------------------------------------------

 

 

 

 

 

P Trans_Inc

 

B

 

 

EXPORT

D

Trans_Inc

 

PI

 

11P 2

 

D

 

ProdNum

 

 

 

10P 0

VALUE

D

 

Quantity

 

 

 

5P 0

VALUE

D

 

Discount

 

 

 

2P 2

VALUE

D

Factor

 

S

 

5P 0

 

 

*

 

 

 

 

 

 

C

 

 

 

SELECT

 

 

C

 

 

 

WHEN

 

ProdNum

= 1

C

 

 

 

EVAL

 

Factor = 1500

C

 

 

 

WHEN

 

ProdNum

= 2

C

 

 

 

EVAL

 

Factor = 3500

C

 

 

 

WHEN

 

ProdNum

= 5

C

 

 

 

EVAL

 

Factor = 20000

C

 

 

 

WHEN

 

ProdNum

= 8

C

 

 

 

EVAL

 

Factor = 32000

C

 

 

 

WHEN

 

ProdNum

= 12

C

 

 

 

EVAL

 

Factor = 64000

C

 

 

 

OTHER

 

 

C

 

 

 

EVAL

 

Factor = 0

C

 

 

 

ENDSL

 

 

C

 

 

 

RETURN

Factor * Quantity * (1 - Discount)

P

Trans_Inc

 

E

 

 

 

 

 

 

 

 

 

 

Figure

36

(Part

2

of

3).

Source for TRANSSVC member

 

 

 

 

 

 

 

 

 

*------------------------------------------------------------------

 

 

 

 

 

 

* Subprocedure Prod_Name

 

 

 

*------------------------------------------------------------------

 

 

 

 

 

P Prod_Name

 

B

 

 

EXPORT

D

Prod_Name

 

PI

 

40A

 

D

 

ProdNum

 

 

 

10P 0

VALUE

 

*

 

 

 

 

 

 

C

 

 

 

SELECT

 

 

C

 

 

 

WHEN

 

ProdNum

= 1

C

 

 

 

RETURN

'Large'

 

C

 

 

 

WHEN

 

ProdNum

= 2

C

 

 

 

RETURN

'Super'

 

C

 

 

 

WHEN

 

ProdNum

= 5

C

 

 

 

RETURN

'Super Large'

C

 

 

 

WHEN

 

ProdNum

= 8

C

 

 

 

RETURN

'Super Jumbo'

C

 

 

 

WHEN

 

ProdNum

= 12

C

 

 

 

RETURN

'Incredibly Large Super Jumbo'

C

 

 

 

OTHER

 

 

C

 

 

 

RETURN

'***Unknown***'

C

 

 

 

ENDSL

 

 

P

Prod_Name

 

E

 

 

 

 

 

 

 

 

 

 

Figure

36

(Part

3

of

3).

Source for TRANSSVC member

Chapter 7. Creating a Program with the CRTRPGMOD and CRTPGM Commands77

Page 100 Page 102
Page 101
Image 101
IBM AS/400 manual Creating a Module Object, Part, Source for TRANSSVC member
Page 100 Page 102