IBM AS/400 manual Dds

Example of Module with Multiple

Procedures

Sample

output

for

the

program

ARRSRPT

is

shown

in

Figure 23 on

page 44.

Customer number: 00001

ABC Electronics

(Customer number 1)

15 Arboreal Way, Treetop MN 12345

Amount outstanding:

$1234.56

Due date: 1995-05-01

Customer number: 00152

A&P Electronics

(Customer number 152)

27 Garbanzo Avenue, Smallville MN 51423

Amount outstanding:

$26544.50

Due date: 1995-02-11

Figure

23.

Output for ARRSRPT

Figure 24

and

Figure 25

on

page 45 show

the

DDS

source for

the files

and CUSTRPT

respectively.

A*================================================================*

A* FILE NAME

: CUSTFILE

A* RELATED PGMS

: ARRSRPT

A* DESCRIPTIONS

: THIS IS THE PHYSICAL FILE CUSTFILE.

IT HAS

A*

ONE RECORD FORMAT CALLED CUSTREC.

A*================================================================*

A* CUSTOMER MASTER FILE -- CUSTFILE

A

R CUSTREC

A

CUSTNUM

5

0

TEXT('CUSTOMER NUMBER')

A

CUSTNAME

20

TEXT('CUSTOMER NAME')

A

STREETNUM

5

0

TEXT('CUSTOMER ADDRESS')

A

STREETNAME

20

TEXT('CUSTOMER ADDRESS')

A

CITY

20

TEXT('CUSTOMER CITY')

A

STATE

2

TEXT('CUSTOMER STATE')

A

ZIP

5

0

TEXT('CUSTOMER ZIP CODE')

A

AMOUNT

10

2

TEXT('AMOUNT OUTSTANDING')

A

DUEDATE

10

TEXT('DATE DUE')

Figure

24.

DDS for CUSTFILE

44 ILE RPG for AS/400 Programmer's Guide