IBM AS/400 Disk Fqsysprt Printer, Chain Emprec Not *IN99, Payroll Register Date, Empname Emprate

Using the CRTBNDRPG Command

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

*

* DESCRIPTION:

This program creates a printed output of employee's pay

*

*

for the week.

*

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

*

H DATEDIT(*DMY/)

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

*

* File Definitions

*

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

*

FTRANSACT

IP

E

K DISK

FEMPLOYEE

IF

E

K DISK

FQSYSPRT

O

F

80

PRINTER

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

*

* Variable Declarations

*

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

*

D Pay

S

8P 2

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

*

* Constant Declarations

*

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

*

D Heading1

C

'NUMBER

NAME

RATE

H-

D

OURS

BONUS

PAY

'

D Heading2

C

'______ ________________ ______ _-

D

____

_______

__________'

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

*

* For each record in the transaction file (TRANSACT), if the ￿employee

*

* is found, compute the employees pay and print the details￿.

*

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

*

C

TRN_NUMBER

CHAIN

EMP_REC

99

C

IF

NOT *IN99

C

EVAL (H)

Pay = EMP_RATE * TRN_HOURS + TRN_BONUS

C

ENDIF

Figure

32

(Part

1

of

2).

A Sample Payroll Calculation Program

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

*

* Report Layout

*

* -- print the heading lines if 1P is on

*

* -- if the record is found (indicator 99 is off) print the payro￿ll

*

*

details otherwise print an exception record

*

* -- print 'END OF LISTING' when LR is on

*

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

*

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'

Figure 32 (Part 2 of 2). A Sample Payroll Calculation Program

62 ILE RPG for AS/400 Programmer's Guide