Multiple Procedures Module

¹ The number and nature of the parameters

¹ Which parameters must be passed, and which are optionally passed

¹ Whether operational descriptors are passed (for a procedure)

¹

The data type of the return value,

if

any (for a procedure)

The

prototype

is used by the compiler

to

call the program or

proce

and

to ensure

that the caller passes

the

correct parameters.

Figure

prototype for a procedure FmtCust, which formats various fields of a readable form. It has two output parameters.

*Prototype for procedure FmtCust (Note the PR on definition

*specification.) It has two output parameters.

D FmtCust

PR

D

Name

100A

D

Address

100A

 

 

Figure

13. Prototype for FmtCust Procedure

To produce the formatted output fields, FmtCust calls a procedure Num NumToChar has a numeric input parameter that is passed by value, and character field. Figure 14 shows the prototype for NumToChar.

*Prototype for procedure NumToChar

*The returned value is a character field of length 31.

D NumToChar

PR

31A

*The input parameter is packed with 30 digits and 0 decima￿l

*positions, passed by value.

D

NUMPARM

30P 0 VALUE

 

 

Figure

14. Prototype for NumToChar Procedure

If the program or procedure is prototyped, you call it with CALLP o expression if you want to use the return value. You pass parameter follows the name of the prototype,namefor(parm1example,: parm2. : ...)

Figure 15 shows

a call to FmtCust. Note that the

names

of

the

output

shown

above

in

Figure 13,

do not

match those in

the

call

statement.

eter

names

in

a prototype

are

for documentation

purposes

only.

The

serves todescribethe attributes of the call interface. The actual de

parameters

takes place

inside the procedure itself.

 

 

 

C

CALLP

FmtCust(RPTNAME : RPTADDR)

 

 

Figure 15.

Calling the FmtCust Procedure

Using prototyped calls you can call (with the same syntax):

¹

Programs that

are

on

the

system at run time

¹

Exported

procedures

in other modules or service programs that are

 

the same

program

or

service program

¹

Subprocedures

in

the

same

module

Chapter 4. Creating an Application Using Multiple35 Procedures

Page 58 Page 60
Page 59
Image 59
IBM AS/400 manual Using prototyped calls you can call with the same syntax, FmtCust Name 100A Address, NumToChar
Page 58 Page 60

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