Using the Fixed-Form Call Operations

2.Optionally code an error indicator (positions 73 and 74) or an LR (positions 75 and 76) or both.

When a called object ends in error the error indicator, if spe Similarly, if the called object returns with LR on, the LR indicat set on.

3.To pass parameters to the called object, either specify a PLIS field of the call operation or follow the call operation immediate operations.

Either

operation transfers

control

from

the calling to

the called obje

called

object is

run,

control returns

to

the

first

operation that ca

the call operation

in

the

calling

program

or

procedure.

The following considerations apply to either call operation:

¹The Factor 2 entry can be a variable, literal, or named constant. entry is case-sensitive.

For CALL only: The Factor 2 entrylibrcaryn bename/program ,namefor

example, MYLIB/PGM1. If no library name is specified, then the li used to find the program. The name of the called program can be run time by specifying a character variable in the Factor 2 ent

For

CALLB only:

To make a procedure pointer

call you specify the

the

procedure

pointer which contains the

address of the procedu

¹A procedure can contain multiple calls to the same object with the different PLISTs specified.

¹When an ILE RPG procedure (including a program entry procedure) i called, the fields are initialized and the procedure is given c quent calls to the same procedure, if it did not end on the pr

fields,

indicators,

and

files

in

the

called procedure are the s

when

it returned on

the

preceding call.

 

 

 

 

¹ The

system

records

the

names

of

all

programs

called

within

an

RPG

When an RPG procedure is bound

into

a program

(*PGM)

you can

quer

names

using

DSPPGMREF,

although you cannot

tell which procedure

or

 

module

is

doing the

call.

 

 

 

 

 

 

 

If you call a program using a variable, you will see an entry w *VARIABLE (and no library name).

For a module, you can query the names of procedures called using DETAIL(*IMPORT). Some procedures on this list will be system procedur names of these will usually begin with underscores or contain blanks do not have to be concerned with these.

¹For CALLB only: The compiler creates an operational descriptor indic

number

of

parameters passed on the CALLB

operation

and

places this

the

*PARMS

field of the called procedure's program

status data

str

number

includes any parameters which

are

designated as

omitted

(

the

PARM

operation).

 

 

 

 

 

If

the

(D) operation extender is

used

with the

CALLB

operation

also creates an operational descriptor for each character and gr subfield.

Chapter 10. Calling Programs and Procedures149

Page 172 Page 174
Page 173
Image 173
IBM AS/400 manual Using the Fixed-Form Call Operations, For Callb only, Operation Operation extender is Used With
Page 172 Page 174

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