IBM AS/400 manual Files, Defining Externally Described

Defining Externally Described

Files

with an indicator, and you then try to rename the field refere

unprefixed name, you will get an error.

Conversely,

if

you

first

field

to

something

other

than

the

prefixed

name,

and

you

then

u

fixed

name

on

a

specification,

you

will

get

an

error.

*..

1 ...

+...

2 ...

+...

3

...

+...

4 ...

+...

5 ...

+...

6

...+...

7 ...

+...

*

IRcdname+++....

In

*

IMSTRITEM

01 .1/

I

Ext-field+

Field+++++++++L1M1..PlMnZr

......

I

ITEMNUMB .2/

ITEM

L1 .3/

*

IMSTRWHSE

02

I

ITEMNUMB

ITEM

L1

*

Figure

133.

Overriding and Adding RPG Functions to an External Description

.1/

To assign a record-identifying indicator to a record in an ext

described

file,

specify

the

record-format name

in

positions

7

of

the

input

specifications

and

assign

a

valid

record-identifyi

in positions 21 and 22. A typical use of input specifications

externally

described

files is to assign record-identifying

indi

In

this example, record-identifying indicator 01 is

assigned

to

MSTRITEM

and

indicator

02

to

the

record

MSTRWHSE.

.2/

To

rename

a

field in

an externally described record, specify

name of the field, left-adjusted, in positions 21 through 30 o

description

line.

In

positions

49

through

62,

specify the

name

be

used

in

the

program.

In

this

example,

the

field

ITEMNUMB

in

both

records

is

renamed

for

this

program.

.3/

To

assign a control-level indicator

to

a

field

in

an

externally

record,

specify

the

name of the field in positions 49 through

specify a control-level

indicator

in

positions

63

and

64.

In

this

example,

the

ITEM

field

in

both

records MSTRITEM

and

MSTRWHSE is

specified

to

be

the

L1

control

field.

*..

1 ...

+...

2 ...+ 3 + 4 + 5 + 6 + 7 + *

IFilename++SqNORiPos1+NCCPos2+NCCPos3+NCC

IMSTREC

01 .1/

I

Ext-field+

Field+++++++++L1M1..PlMnZr

......

I

CUSTNO

M1 .1/

*

IWKREC

02

I

CUSTNO

M1

I

BALDUE

98 .2/

*

Figure

134.

Adding RPG Functions to an External Description

.1/ To assign a match value to a field in an externally described specify the record-format name in positions 7 through 16 of th identification line. On the field-description line specify the

268 ILE RPG for AS/400 Programmer's Guide