Example of Module with Multiple

Procedures

 

 

 

 

 

 

 

 

 

 

.1/

All subprocedures

begin

and

end

with

procedure specifications.

.2/

After

the Begin-Procedure specification (B in position 24 of

 

dure

specification),

you

code

a

procedure interface

definiti

 

value,

if any,

is

defined

on the

PI

specification.

Any parame

 

listed

after

the

PI

specification.

 

 

.3/ Any variables or prototypes that are used by the subprocedur defined after the procedure interface definition.

.4/

 

The return value, if specified, is returned to the caller wit

 

 

operation.

 

 

 

 

.5/

 

If the record is not in arrears, the subprocedure returns '

 

 

procedure.

 

 

 

 

For

all

subprocedures,

and also

for a main

procedure

with prototyped

eters,

you need to define a

procedure interfacedefinition.

A

is

a

repeat of the

prototype

information

within the

definition of a

used to define the entry parameters for the procedure. The procedu

definition is also used to ensure that the

internal definition

of

the

sistent

with

the external

definition

(the prototype).

In

the

case of

are

no

entry

parameters.

 

 

 

 

 

 

 

 

 

 

 

 

Consider next the subprocedure FmtCust, which

is

shown

in

Figure 19

on

 

page 39.

FmtCust is called by ARRSRPT

to format the relevant fields of

 

into

an

output record

for

the

final

report. (The record represents a

in arrears.)

FmtCust uses

global

data,

and so does not have any input

 

It formats the data into two output

fields:

one

for

the name, and

o

address.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

One

of

the

formatting

tasks

requires

converting

a

numeric

field

to

a

c

to match the output field type. This conversion could be coded as p

procedure

itself.

However, as this is

a task that

might

be required

we decided to code the conversion as a separate

subprocedure,

NumToC

NumToChar takes as

input

a numeric parameter that is

passed

by

value.

verts the

number

to a

character field

and returns

that field

to

the

FmtCust.

 

 

 

 

 

 

 

 

38 ILE RPG for AS/400 Programmer's Guide

Page 61 Page 63
Page 62
Image 62
IBM AS/400 manual Procedures
Page 61 Page 63

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.
Top Page Image Contents