IBM AS/400 manual Example of an ILE RPG Program, A Subprocedure, Register

Example of an ILE RPG Program

..*

1 ...

+...

2

...+...

3 ...

+...

4

...+

... 5

......+

6

...+...

...7

+...

OFilename++DF..N01N02N03Excnam++++B++A++Sb+Sa+

...........................

O

N01N02N03Field+++++++++YB.End++PConstant/editword/DTforma￿t

OQSYSPRT

H

1P

2

3

O

35

'PAYROLL REGISTER'

O

*DATE

Y

60

O

H

1P

2

O

60

Heading1

O

H

1P

2

O

60

Heading2

O

D

N1PN99

2

O

TRN_NUMBER

5

O

EMP_NAME

24

O

EMP_RATE

L

33

O

TRN_HOURS

L

40

O

TRN_BONUS

L

49

O

Pay

60

'$

0.

'

O

D

N1P 99

2

O

TRN_NUMBER

5

O

35

'** NOT ON EMPLOYEE FILE **'

O

T

LR

O

33

'END OF LISTING'

The output specifications describe what fields are to be written output:

¹

The

Heading

Lines

that

contain

the constant

string 'PAYROLL

REGISTER'

well as headings for the detail information will be

printed

if

ind

Indicator

1P

is

turned

on

by

the

ILE

RPG

program

cycle

during

t

¹

The

Detail

Lines

are

conditioned

by

the indicators

1P and

99.

De

not printed

at

1P

time. The N99 will only allow the

Detail

lines

to

indicator 99

is

off,

which indicates that the corresponding

employ

been

found.

If

the

indicator 99 is on, then the

employee

number

stant

string

'**

NOT

ON

EMPLOYEE

FILE

**'

will

be

printed

instead.

¹The Total Line contains the constant string 'END OF LISTING'. It will

during the last program cycle.

A Subprocedure

The subprocedure calculates the pay for the employee using the par passed to it. The resulting value is returned to the caller using t ment.

The procedure specifications indicate the beginning and end of the definition specifications define the return type of the procedure, the procedure, and the local variable Overtime.

Chapter 1. Overview of the RPG IV Programming9 Language