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

Page 292
Image 292
IBM AS/400 Files, You Then Fixed Name Specification Will Get Error, Indicator Record, Used Program This Example Field

AS/400 specifications

The IBM AS/400, now known as the IBM iSeries, is a midrange computer system that has been a cornerstone of enterprise computing since its introduction in 1988. Designed to provide a robust platform for business applications, the AS/400 is celebrated for its reliability, scalability, and integrated database capabilities.

One of the key features of the AS/400 is its Integrated Operating Environment, which blends hardware and software resources seamlessly. This integration allows businesses to execute diverse workloads, ranging from traditional applications to modern web-based services, all on a single platform. The operating system, OS/400 (now IBM i), offers a rich set of APIs and tools for developers, simplifying application development and management.

Another standout characteristic of the AS/400 is its built-in database, DB2 for i. This powerful relational database management system allows for efficient data handling and provides advanced features such as support for SQL, XML, and JSON, making it easier for businesses to manage their data and integrate it with other systems. The database's tight integration with the operating system enables high performance and security.

In terms of scalability, the AS/400 can accommodate small businesses as well as large enterprises, with the ability to support hundreds of users simultaneously. Its architecture allows for easy upgrades in hardware, meaning that organizations can scale their systems without replacing the entire infrastructure.

Security is another critical attribute of the AS/400. With a sophisticated security model, it offers built-in user authentication, access control, encryption, and auditing capabilities to protect data and applications from unauthorized access.

The AS/400 also supports multiple programming languages, including RPG, COBOL, Java, and PHP, giving organizations the flexibility to choose the development tools that best fit their needs. This diversity helps maintain legacy applications while also developing new ones that leverage modern technologies.

Moreover, the platform supports both traditional green-screen interfaces and modern graphical user interfaces, allowing organizations to transition smoothly into contemporary user experience paradigms.

Overall, the IBM AS/400 stands out as a resilient, flexible, and secure computing platform that enables organizations to effectively manage their business operations, streamline processes, and adapt to changing market demands. Its unique combination of integrated features and capabilities ensures that it remains relevant in today's fast-paced technology landscape.