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
Equivalent RETURN dans un CL
-
- Messages : 34
- Enregistré le : mer. 28 mars 2007, 21:57:59
- Localisation : Rennes(35)
- Contact :
(sans texte)
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...
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...
-
- Site Admin
- Messages : 813
- Enregistré le : mer. 14 févr. 2007, 18:00:03
- Localisation : Nantes
- Contact :
RETURN en CL
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 :
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)