Discussion :

[sam01]

Bonjour à tous,

je ne parviens à résoudre un variable dans un PARSE VAR..
Cette varibale vient d'un PARSE AGR...
Voic le rexx, ça sera plus claire je pense :

Code :

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

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

TRACE I                                          
CALL CHANG01 AB00XXX CD00XXX                     
CHANG01:                                         
FIC01 = 'DSN=AB00XXX.REXXLIB(TEST)'              
  PARSE ARG ALIAS1 ALIAS2                        
  PARSE VAR FIC01 FRONT "ALIAS1" BACK            
  SAY FIC01                                      
  SAY FRONT                                      
  SAY ALIAS1                                     
  SAY BACK                                       
  FIC01 = FRONT!!ALIAS2!!BACK

C'est la ligne

Code :

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

1
2
3

PARSE VAR FIC01 FRONT "ALIAS1" BACK

qui me pose problème.
La variable ALIAS1 ne semble pas se résoudre.
J'ai essayé un max de combi possible avec quote, double quote mais sans succès..


Merci pour votre aide.

[Homer-ac]

C'est un PARSE VAR FIC01 FRONT value(ALIAS1) BACK qu'il te faut puisque tu bornes par le contenu de la variable

[sam01]

Génial, ça fontionne.

Merci beaucoup Homer-ac.

[Homer-ac]

A propos de ce genre de routine, il peut être intéressant d'ajouter que les fonctions sont bien pratiques en REXX, d'autant que l'on peut ajouter ces propres fonctions. exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
/* REXX */                                                            
FIC01 = 'DSN=AB00XXX.REXXLIB(TEST)'                                   
  SAY FIC01 '(POUR AB00XXX EN CD00XXX)'                               
FIC01 = CHG1(FIC01,'AB00XXX','CD00XXX')                               
  SAY FIC01 '(RESULTAT)'                                              
EXIT                                                                  
CHG1:                                                                 
V1=ARG(1) ; V2=ARG(2) ; V3=ARG(3)  ; VP=POS(V2,V1)                    
IF VP > 0 THEN RETURN LEFT(V1,VP-1)!!V3!!SUBSTR(V1,VP+LENGTH(V2))     
          ELSE RETURN V1