PARSE ARG et PARSE VAR

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:

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:

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.

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

Génial, ça fontionne.

Merci beaucoup 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:

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