EXECUTE (Adelia Context)

ADELIA
(I)

Section for use

All

Syntax

EXECUTE TransactionNum

Description

This instruction calls a transaction TransactionNum. It is similar to the PROCESS instruction, but once the called transaction is completed (TERMINATE instruction), control returns to the routine following the EXECUTE instruction.

Note: You can only exit a transaction that has been called with EXECUTE, with a TERMINATE instruction.

A transaction called by the EXECUTE instruction must have:

- either a TERMINATE instruction: control will return to the routine following the EXECUTE instruction,
- or a RETURN instruction: the program ends without freeing resources.
  - RETURN (Adelia Context, C Generation)
  - RETURN (Adelia Context, RPG Generation and Visual Adelia Context)

The only PROCESS instructions which may appear in transactions called by EXECUTE are those which concern the transaction itself.

To call other transactions from within a transaction called by EXECUTE, you must also use the EXECUTE instruction.

Note: A transaction called by EXECUTE cannot use the PROCESS instruction for another transaction other than itself.

Example

1. Call DSPCUS program and select customers whose name begins by the character H.

DSPCUS	Display customer file		03/03/02
			11:19:02

Display names starting with...: H_____________________________
Options : 1 : display detail

Opt	Customer name	City
F3=Exit

DSPCUS program: first transaction (screen 1)

2. Listing of the customers corresponding to the search criterion.

DSPCUS	Display customer file		03/03/02
			11:19:46

Display names starting with...: H_____________________________
Options : 1 : display detail

Opt	Customer name	City
1	HARDIS CORPORATION	SCHAUMBURG, ILL (USA)
_	HARDIS INTERNATIONAL	GRENOBLE (FRANCE)
1	HARDIS PARIS	COURBEVOIE (FRANCE)
_	HARDIS U.K.	LONDON (U.K.)
_	HARDIS MEXICO	MEXICO D.F.(MEXICO)

F3=Exit

DSPCUS program: first transaction (screen 2)

3. Select several customers and, for each one, display a screen containing the associated information.

First customer selected:

DSPCUS	Display customer detail	03/03/02
		11:20:54
Customer code	: F380000001
Customer name	: HARDIS CORPORATION
Address 1	: 1501 Woodfield Drive
Address 2	: Suite 100 South
Zip code	: 60173
City	: SCHAUMBURG, ILL (USA)
Phone number	: (708) 605 0630

Contact name	: C. HYDE
Representative code	: 01 JERRY L
Payment code	: AE Amer. exp
Sales value	: 956,300.00

F3=Exit F6=Print sales F12=Cancel

DSPCUS program: second transaction (screen 1)

Second customer selected:

DSPCUS	Display customer detail	03/03/02
		11:21:17

Customer code	: F920000001
Customer name	: HARDIS PARIS
Address 1	: 40, RUE DU MOULIN DES BRUYERES
Address 2	:
Zip code	: 92400
City	: COURBEVOIE (FRANCE)
Phone number	: (33) 47.68.55.33

Contact name	: C. LEBLANC
Representative code	: 04 P. SIMON
Payment code	: TC Trav. Ch.
Sales value	: 2,351,500.00

F3=Exit F6=Print sales F12=Cancel

DSPCUS program: second transaction (screen 2)

The model corresponding to this case reads as follows:

PROCESS 01

*********************

TRANSACTION 01

*********************

IF *F03

TERMINATE

END

VERIFY 01

Runs the VERIFICATION 01 section

INITIALIZE 01

PROCESS 01

*********************

TRANSACTION 02

Beginning of transaction 2

*********************

IF *F12

TERMINATE

Returns to line after EXECUTE 02

END

PROCESS 02

*********************

INITIALIZATION 01

*********************

MANAGE_SFL 1

PRESENT CUST_SFLE

UPD_SFL

END_MANAGE_SFL

*********************

VERIFICATION 01

*********************

MANAGE_SFL 1

IF OPTION = '1'

INITIALIZE

02 Runs INITIALIZATION 02

EXECUTE

02 Runs TRANSACTION 02

END

OPTION = *BLANK

END_MANAGE_SFL

**********************

INITIALIZATION 02

**********************

CHAIN CUSTOMERS

PRESENT CUSTOMERS

CHAIN SALESPERSONS

PRESENT SALESPERSONS

CHAIN PAYMENTS

PRESENT PAYMENTS

↑ Top of page