Discussion :

[sam01]

Bonjour à tous et Bonne Année.

Voilà je fais un rexx avec un fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

DEL01:                                                   
 "CURSOR = .ZFIRST 1";                                   
 "FIND '//* '"                                           
 COD01 = RC                                              
   IF COD01 <> 0 THEN EXIT ESLE                          
 DO                                                      
    "FIND '"BIB"'"                                       
     COD02 = RC                                          
     IF (COD02 <> 0 & BIB <> BIB02) THEN CALL DEL01 BIB02
     ELSE                                                
     DO                                                  
        IF (COD02 <> 0 & BIB = BIB02) THEN EXIT          
     END                                                 
etc...

je sais que les fonctions, il faut les terminer avec RETURN,

mais je ne me souviens plus de sa fonction....

[Homer-ac]

En REXX la différence du RETURN par rapport à l'EXIT est du même ordre qu'en COBOL pour un GOBACK par rapport à STOP RUN.
Usuellement le RETURN est utilisé par un appelé et l'EXIT par l'appelant. Comme le GOBACK COBOL, on peut cependant sortir par RETURN même dans un REXX appelant.
Spécifiquement pour REXX cependant, on sort de REXX par EXIT suivi éventuellement d'un Return Code 0 ou > 0 mais un appelé pourra sortir par un RETURN suivi de ce que l'on veut : par exemple RETURN 'MESSAGE DE RETOUR'. L'appelant pourra récupérer ce qui à été passé dans le RETURN via la variable RESULT. Par exemple :
CALL MYREXX PARAM
MESSRET = RESULT /* ou Parse Var RESULT MESSRET ........ */

ou si on préfère une codification fonction (ça revient au même),
MESSRET=MYREXX(PARAM)

MESSRET de l'exemple contiendra bien entendu ce qui a été passé dans le RETURN de MYREXX (qui a récupéré PARAM par un parse ARG) pour cet exemple.

nb. Meilleurs voeux itou à tous