Sample Service Program

Note that a binding directory is not required here

because

all mo

to create the service program have been specified

with the

MODUL

eter.

 

 

The service program CVTTOHEX will be created in the library MYLIB. It debugged using a statement view; this is determined by the default parameter on the CRTRPGMOD command. No binder listing is produced.

Binding to a Program

To complete the example, we will create an 'application' consisting of a CVTHEXPGM which is bound to the service program. It uses a seven-chara string which it passes to CVTTOHEX twice, once where the value of the is 10 (that is, convert 5 characters) and again where the value is 1 actual length.

Note that the program CVTHEXPGM serves to show the use of the service program CVTTOHEX. In a real application the caller of CVTTOHEX would have another primary purpose other than testing CVTTOHEX. Furthermore, a servi program would normally be used by many other programs, or many times by programs; otherwise the overhead of initial call does not justify making service program.

To create the application follow these steps:

1.Create the module from the source in Figure 45 on page 99, by ente

CRTRPGMOD MODULE(MYLIB/CVTHEXPGM) SRCFILE(MYLIB/QRPGLESR￿C)

2.Create the program by typing

CRTPGM PGM(MYLIB/CVTHEXPGM)

BNDSRVPGM(MYLIB/CVTTOHEX)

DETAIL(*BASIC)

When CVTHEXPGM is created, it will include information regarding the in face it uses to interact with the service program. This is the s in the binder language for CVTTOHEX.

3.Call the program, by typing:

CALL CVTHEXPGM

During

the

process of

making

CVTHEXPGM ready to

run,

the

system

verif

that:

 

 

 

 

 

 

 

 

¹

The

service program CVTTOHEX in library MYLIB

can

be

found

 

¹

The

public interface

used

by CVTHEXPGM when

it

was

created

is s

 

at

run

time.

 

 

 

 

 

 

If either of the above is not true, then an error message is i

The output of CVTHEXPGM is shown below. (The input string is 'ABC123*'.)

Result14++++++

 

 

 

Result10++

 

 

 

C1C2C3F1F2

10

character

output

C1C2C3F1F2F35C

14

character

output

98 ILE RPG for AS/400 Programmer's Guide

Page 121 Page 123
Page 122
Image 122
IBM AS/400 Binding to a Program, Create the program by typing, Crtrpgmod MODULEMYLIB/CVTHEXPGM SRCFILEMYLIB/QRPGLESRC
Page 121 Page 123

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