IBM AS/400 manual Handling, Accessing Database 289Files

Using

Program-Described

Disk

Files

*..

1

...+...

2 ...

+...

3

...+

... 4

...+...

5

...+...

6 ...

+

... 7

..*

A

T.Name++++++.Len++TDpB

Functions++++++++++++++++++++*

A

R FORMATA

PFILE(ORDDTLP)

A

TEXT('Access Path for Indexed +

A

File')

A

FLDA

14

A

ORDER

5

0

A

FLDB

101

A

K ORDER

A*

*..

1

...+...

2 ...

+...

3

...+

... 4

...+...

5

...+...

6 ...

+

... 7

...+...

*

FFilename++IPEASFRlen+LKlen+AIDevice+.Keywords+++++++++++++++++++++++++++++

FORDDTLL IP

F

118

3PIDISK

KEYLOC(15)

F*

Figure

141. DDS and corresponding File-Description Specification Detail Flow of RPG IV

Exception/Error

Handling

You must use data description specifications to create the access program-described indexed file.

In the DDS for the record format FORMATA for the logical file ORDDTLL ORDER, which is five digits long, is defined as the key field, and format. The definition of ORDER as the key field establishes the k this file. Two other fields, FLDA and FLDB, describe the remaining po record as character fields.

The program-described input file ORDDTLL is described on the file d specifications as an indexed file. Positions 29 through 33 must spec of positions in the record required for the key field as defined

positions.	The	KEYLOC	keyword specifies position 15 as the starting po
key field	in	the	record. Because the file is defined as program-

position 22, the ILE RPG compiler does not retrieve the external fi

description			of	the		file		at	compilation time. Therefore, you must des
the	record		on	the		input		specifications.
*..	1 ...	+...	2 ...	+...	3	...	+...	4 ...	+... 5 ...+... 6 ...+... 7 ..*
A		T.Name++++++.Len++TDpB						......	Functions++++++++++++++++++++*
A		R FORMAT							PFILE(ORDDTLP)
A									TEXT('Access Path for Indexed +
A									File')
A		FLDA				14
A		ORDER				5
A		ITEM				5
A		FLDB				96
A		K ORDER
A		K ITEM
Figure 142.			(Part 1 of 2). Using Data Description Specifications to Define the Access
(Composite Key)				for	an	Indexed			File
In	this	example,			the		data		description specifications define two key
record		format		FORMAT		in	the		logical file ORDDTLL. For the two fields

as a composite key for a program described indexed file, the key contiguous in the record.

Chapter 16. Accessing Database 289Files