IBM AS/400 Manuel D’Utilisation
Defining Externally Described Files
with an indicator, and you then try to rename the field referencing the
unprefixed name, you will get an error. Conversely, if you first rename the
field to something other than the prefixed name, and you then use the pre-
fixed name on a specification, you will get an error.
unprefixed name, you will get an error. Conversely, if you first rename the
field to something other than the prefixed name, and you then use the pre-
fixed name on a specification, you will get an error.
*.. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... *
IRcdname+++....In.........................................................*
IMSTRITEM
IRcdname+++....In.........................................................*
IMSTRITEM
01 .1/
I..............Ext-field+..................Field+++++++++L1M1..PlMnZr......
I
I
ITEMNUMB .2/
ITEM
L1 .3/
*
IMSTRWHSE
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 externally
described file, specify the record-format name in positions 7 through 16
of the input specifications and assign a valid record-identifying indicator
in positions 21 and 22. A typical use of input specifications with
externally described files is to assign record-identifying indicators.
described file, specify the record-format name in positions 7 through 16
of the input specifications and assign a valid record-identifying indicator
in positions 21 and 22. A typical use of input specifications with
externally described files is to assign record-identifying indicators.
In this example, record-identifying indicator 01 is assigned to the record
MSTRITEM and indicator 02 to the record MSTRWHSE.
MSTRITEM and indicator 02 to the record MSTRWHSE.
.2/
To rename a field in an externally described record, specify the external
name of the field, left-adjusted, in positions 21 through 30 of the field-
description line. In positions 49 through 62, specify the name that is to
be used in the program.
name of the field, left-adjusted, in positions 21 through 30 of the field-
description line. In positions 49 through 62, specify the name that is to
be used in the program.
In this example, the field ITEMNUMB in both records is renamed ITEM
for this program.
for this program.
.3/
To assign a control-level indicator to a field in an externally described
record, specify the name of the field in positions 49 through 62 and
specify a control-level indicator in positions 63 and 64.
record, specify the name of the field in positions 49 through 62 and
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.
MSTRWHSE is specified to be the L1 control field.
*.. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... *
IFilename++SqNORiPos1+NCCPos2+NCCPos3+NCC..................................
IMSTREC
IFilename++SqNORiPos1+NCCPos2+NCCPos3+NCC..................................
IMSTREC
01 .1/
I..............Ext-field+..................Field+++++++++L1M1..PlMnZr......
I
I
CUSTNO
M1 .1/
*
IWKREC
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 record,
specify the record-format name in positions 7 through 16 of the record-
identification line. On the field-description line specify the name of the
specify the record-format name in positions 7 through 16 of the record-
identification line. On the field-description line specify the name of the
268
ILE RPG for AS/400 Programmer's Guide