CALL (Adelia Context)

ADELIA
(I/B)

Section for use

All

Syntax

CALL PgmNameOrAlphaVarId SeriesParameters

PgmNameOrAlphaVarId	→	PgmName \| &AlphaVarId

SeriesParameters	→	SeriesParameters Parameter \| None

Description

This instruction allows control to be passed to the program whose Adelia name is PgmName or to the program whose IBM name is contained in the alphanumeric variable AlphaVarId.

The program must be referenced in the Adelia program glossary.

PgmName must be the program guide word in the glossary. If the program name is placed into a variable (&W_PROGNAME for instance), Adelia will not check its existence in the program glossary.

The program name is followed by parameter variables SeriesParameters (99 maximum).

These parameters must correspond to the description indicated in the glossary (type, length and number of decimals).

Association between the calling program variables and those of the program being called is determined by their position in the instructions CALL and RECEIVE.

Notes:

With the C generator, use the following syntax:

CALL PgmNameOrAlphaVarId SeriesParameters *SERVER(name)
where name is an entry of the client-server configuration file allowing to direct the command to the appropriate server.

- When the command is used without the *SERVER parameter, the call is done locally on the micro-computer.
- When *SERVER is indicated, then the call of the program is done on the AS/400 server (via a "Remote Procedure Call") that is identified by the name.
  This entry requires the name of the job library in which Adelia will create (if it does not exist) a CLP program with the same name as your program. The CLP program will manage the call parameters of your program. The library you specified must not be part of the execution context of the AS/400 used to connect your AS/400 server. In the case the call parameters of your program are modified, the corresponding program must be deleted in the job library.

With RPG generator, the *SERVER parameter is ignored.

Example

* call the program to control a date

IF SELECTION_DATE <> 0

CALL CONTROL_DATE SELECTION_DATE RETURN_CODE

IF RETURN_CODE <> *BLANK

PREPARE_MSG 0035 SELECTION_DATE

ANOMALY

END

* call the batch report program to list the customers

IF *F21

CALL CUSTOMER_LIST

END

* in next call, PGM_NAME is loaded by either DMC010 or DMC020

* depending on function key

*

IF *F15 OR *F16

IF *F15

PGM_NAME = 'DMC010'

ELSE

PGM_NAME = 'DMC020'

END

CALL &PGM_NAME COMPANY_CODE OFFICE_CODE

SEND_MSG CNY0002 PGM_NAME

END

*

* Prompt functions

*

SFTKYS_PROCESS 02

SFTKY ZZ_CUST_CODE

CALL CUSTOMER_WDW ZZ_CUST_CODE

END_SFTKY

*

SFTKY ZZ_CUST_CODE 01

W_MEMBER_NAME = 'CUSTCODE'

CALL FLD_LVL_HELP W_MEMBER_NAME

END_SFTKY

END_SFTKYS_PROC

*

* Example in client-server mode

* The calling program is generated in C for a micro ;

* the called program is an RPG one on an AS/400 of the network.

*

IF *F21

CALL CUSTOMER_LIST *SERVER(AS400_LONDON)

END

↑ Top of page