CALL

"call" permet d'appeler un sous-programme s'exécutant avec ses propres variables locales avec retour au traitement appelant. Des paramètres peuvent être passés.

Syntaxe

SYNTAXE 1

Callsous_prog [ '('liste_args ')' ] [Fromtraitement ]

SYNTAXE 2

Callsous_prog [With '('liste_args ')' ] [Fromtraitement ]

Paramètres

Exemples

# Appel d'un sous-programme d'incrémentation de compteur dans le

# traitement TRTCPT. Dans cette instruction, on passe un argument par

# sa valeur. Le paramètre correspondant du sous-programme INCR_CPT

# doit être déclaré nécessairement avec le mode Value.

Call INCR_CPT(10)

# Un peu plus loin dans le même traitement...

Subprog INCR_CPT(DELTA)

Value Integer DELTA

Trbegin

Lock COMPTEUR With lockwait = 5

If fstat : Rollback : End : Endif

[C]COMPTEUR += DELTA

Commit

# Appel d'un sous-programme sans argument dans un autre traitement

# de la première application de référence.

Call INCR1_CPT From = adxmother(0)+".TRTCPT"

# Appel d'un sous-programme avec arguments.

# Le nom du sous-programme est stocké dans la variable WWPROG.

# Il est donc nécessaire d'utiliser la syntaxe 2

If [F:AMA]ACTION="SPE" : WWTRT = [F:AMK]TRTSPE : Endif

If [F:AMA]ACTION="STD" : WWTRT = [F:AMK]TRTSTD : Endif

WWPROG = "AV_"+[F:AMZ]CODZON

Call =WWPROG With VALEUR From =WWTRT

 

Description et commentaires

"call" permet de lancer un sous-programme avec passage éventuel de paramètres. A l'issue de cette exécution, le traitement appelant reprend son exécution à l'instruction suivant l'instruction "call", les variables locales au sous-programme et les OBJets ouverts par lui en mode Local étant refermés.

Lorsque l'appel "call" est fait sans préciser de traitement, le sous- programme doit se trouver dans le traitement lui-même.

Les arguments passés dans le "call" doivent être en nombre égaux à ceux du sous-programme. L'ordre des paramètres dans "call" étant mis en correspondance avec ceux de Subprog.

Les arguments peuvent être des expressions ou des variables. Si c'est une expression, son passage doit obligatoirement se faire par valeur (Value); l'argument de Subprog ne doit pas être dimensionné.

Une variable passée en argument peut être dimensionnée. Elle doit alors avoir la même dimension que la variable correspondante du Subprog. On peut ne passer qu'une partie.

Exemple : soit un tableau d'entiers à 2 dimensions déclaré par :
Integer T2(I1..I2,J1..J2)
Avec I1 <= I11 <= I21 <= I2 et J1 <= J11 <= J21 <= J2

Si on fait Call SUBPRG( T2 ), on passera tout le tableau.
Si on fait Call SUBPRG( T2(I1..I2,J1..J2)) idem.
Si on fait Call SUBPRG( T2(I11,J1..J2)) on ne passera qu'une "ligne".
Si on fait Call SUBPRG( T2(I1..I2,J11)) une "colonne".
Si on fait Call SUBPRG( T2(I11,J11) un seul "élément".
si on fait Call SUBPRG( T2(I11..I21,J1..J2)) plusieurs "lignes".
etc.

Remarques

Pendant un "call", les informations suivantes sont conservées :

• les variables globales,
• les fichiers et les masquesouverts tant en mode "global" que Local, avec les valeurscourantes des classes [F], [G] et [M] correspondantes,
• les boîtes de dialogues ouvertes tant en mode "global" que Local,
• l'ensemble des listes de classes par défaut (hormis la classe locale),
• le fait d'être en mode Inter ou Nointer.

Par contre sont perdues :

• les fichiers, les masques et les boîtes de dialogues ouverts en mode Local et réouverts avec la même abréviation dans le sous-programme
• l'étiquette associée à Onerrgo n'est pas conservée lors du passage à un sous-programme, même si celui-ci est fait dans le même traitement; par contre, cette information est retrouvée dans le traitement appelant à la fin de l'exécution du "call".
  Il en est de même avec l'étiquette associée à Onintgo.

Pendant l'exécution d'un "call", il y a création d'une classe de variables locales au sous-programme d'abréviation [L]. Cette classe locale devient la classe par défaut, la classe locale au traitement appelant n'étant alors plus accessible. Au retour au traitement, on retrouve la classe locale par défaut, préexistante à l'appel.

Si on modifie pendant l'exécution d'un "call" les classes par défaut, les masques, les fichiers ouverts ou les boîtes de dialogue, il est impératif d'utiliser pour ce faire les instructions Local Mask, Local File, ou Local ...Box. En effet, les instructions Mask, File et ...Box influent sur les OBJets ouverts, ce qui pose des problèmes au retour du "call".

Un "call" peut s'appeler récursivement, le nombre de "call" imbriqués n'est pas limité mais il faudra faire attention à la mémoire disponible, aux nombre d'OBJets ouverts et, en particulier, au nombre de fichiers ouverts en mode Local car chaque sous programme est vu comme indépendant. Exemple :

Close File : adxmto = 10 :Call SBPRG
# Avec
Subprog SBPRG
Local File FIC1 :Call SBPRG : End
# Au bout de 10 appels, une erreur TROPFIC arrêtera ce traitement.

Erreurs associées

Mots-clés associés

SUBPROG - END - GOSUB - CONST - VALUE - VARIABLE- MASK- FILE- INPBOX- ONERRGO- ONINTGO- TRBEGIN- ADXPNO

SOMMAIRE