Equivalent RETURN dans un CL

RPG (3 et 4, free), CL, SQL, etc...
Répondre
fbillard
Messages : 13
Enregistré le : lun. 16 avr. 2007, 10:49:18

Equivalent RETURN dans un CL

Message par fbillard »

Afin d'optimiser les performances , y a t'il un équivalent au return RPG à mettre dans un CL , pour qu'il reste en mémoire si il est appelé souvent .

Cordialement

C TALHOUET

cimmelé
Messages : 34
Enregistré le : mer. 28 mars 2007, 21:57:59
Localisation : Rennes(35)
Contact :

(sans texte)

Message par cimmelé »

Il existe une commande RETURN permettant de rendre le contrôle au programme appelant.

En revanche, je n'ai pas l'expérience d'un RETURN avec un fichier ouvert dans le programme et de savoir si le fichier reste ouvert.

à suivre...

cmasse
Site Admin
Messages : 813
Enregistré le : mer. 14 févr. 2007, 18:00:03
Localisation : Nantes
Contact :

RETURN en CL

Message par cmasse »

le RETURN en CL fait exactement la même chose que ENDPGM, cela facilite la programmation et evite simplement un "GOTO FIN"; sans plus.


le seul moyen de garder le CL en mémoire (et les fichiers ouverts) c'est que ce soit le CL qui appel le RPG, sous cette forme :

Code : Tout sélectionner

PGM
APPEL:  CALL DUGAP parm(&RETOUR)

IF COND(&RETOUR = 'Encore') then (DO)

/* faire qqchose  */
GOTO APPEL
ENDDO

/* sinon fin du pgm */
ENDPGM

Christian Massé (Volubis.fr)

Répondre