macro edit : change qui ne focntionne pas

[sam01]

Bonjour à tous,

j'exécute le rexx suivant

Code :

1
2
3
4
5
6
7
8
9

TRACE I                                 
 "ISPEXEC VGET (PREFIXB)"               
ADDRESS ISREDIT;                        
"MACRO";                                
"CURSOR = .ZFIRST 1";       
"CHANGE '&ALIAS$$$' "PREFIXB" ALL"                    
 "END"

mais ça ne fonctionne pas

j'ai même essayé le scan off et scan on mais ça ne marche non plus..

Le change ne s'effectue pas

Code :

1
2
3
4
5
6
7
8
9
10
11

TRACE I                                 
 "ISPEXEC VGET (PREFIXB)"               
ADDRESS ISREDIT;                        
"MACRO";                                
"CURSOR = .ZFIRST 1";                   
"SCAN OFF"                              
"CHANGE &ALIAS$$$ "PREFIXB" ALL"        
"SCAN OFF"                              
"END"

Merci pour votre aide.

[bernard59139]

bonjour

tu dois avoir un message d'erreur, mais bon....

Vérifie d'abord que la variable PREFIXB soit bien renseignée.

ensuite, utiliser un & est source d'ennui avec REXX et avec ISPF. C'est galère assurée. En général, il faut doubler le &.

ceci fonctionne:

Code :

1
2
3
4
5
6
7
ADDRESS ISREDIT                          
"MACRO"
prefixa = '&&alias'
prefixb = 'toto'
"SCAN OFF"
"CHANGE '"prefixa"' '"prefixb"' ALL"

bonne journée

[sam01]

Bonjour bernard59139 et merci pour ta réponse.

Je t'assure je n'ai pas de message d'erreur.

Il code retour de la commande change me renvoie un code 04, c'est-à-dire qu'il n'a rien trouvé à changer.

Quand je tape la même commande dans l'éditeur à la main, ça fonctionne bien.

Je vais tester ce que tu me proposes, je te tiens au courant.

Merci encore.

[bernard59139]

Bonjour

Le RC=4 est une information importante.

le & doit être doublé ou "quote" &alias
a+

[sam01]

Bonjour bernard59139,

ta méthode fonctionne bien mais que j'ai ajouté une autre variable, ça ne fonctionne plus...

J'ai un code 28 cette fois..

Code :

1
2
3
4
5
6
7
8
9
10
11

  "ISPEXEC VGET (PREFIXB PREFIXC)"                       
 ADDRESS ISREDIT;                                        
 "MACRO";                                                
 "CURSOR = .ZFIRST 1";                                   
 PREFIX1 = '&ALIAS$$'                                    
 PREFIX2 = 'UVAL'                                        
 "SCAN OFF"                                              
 "CHANGE '"PREFIX1"' "PREFIX2""PREFIXC"."PREFIXB" ALL"   
 "END"

voilà ce que j'ai avec la trace

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

>O>   "CHANGE '&ALIAS$$"                            
>L>   "' "                                          
>O>   "CHANGE '&ALIAS$$' "                          
>V>   "UVAL"                                        
>O>   "CHANGE '&ALIAS$$' UVAL"                      
>L>   ""                                            
>O>   "CHANGE '&ALIAS$$' UVAL"                      
>V>   "CO"                                          
>O>   "CHANGE '&ALIAS$$' UVALCO"                    
>L>   "."                                           
>O>   "CHANGE '&ALIAS$$' UVALCO."                   
>V>   "COPSEQ"                                      
>O>   "CHANGE '&ALIAS$$' UVALCO.COPSEQ"             
>L>   " ALL"                                        
>O>   "CHANGE '&ALIAS$$' UVALCO.COPSEQ ALL"         
+++ RC(28) +++                                      
*-* "END"                                           
>L>   "END"                                         
+++ RC(28) +++

[ekans]

Bonjour,

Essaie en ajoutant des quotes sur le deuxième argument :

Code :

"CHANGE '"PREFIX1"' '"PREFIX2""PREFIXC"."PREFIXB"' ALL"