rexx changer un mot par un autre

[sam01]

Bonjour,

pour chnager un ligne en rexx, je tape la commande suivante :

/*REXX*/ 
TRACE I                                  
ALIAS = PXXXXXX                          
FIC01 = '&VVENVIR.JCLLIB'                
FIC02 = CHANGE(FIC01,'&VVENVIR.',ALIAS)  
SAY FIC02

Mais le rexx se plante avec le message :

Incorrect call to routine

Le plantage se fait à cettte ligne :

FIC02 = CHANGE(FIC01,'&VVENVIR.',ALIAS)

savez-vous d'où cela peut venir?

Merci d'avance pour votre aide.

[Homer-ac]

FIC02 = CHANGE(FIC01,'&VVENVIR.',ALIAS)

?
Ecrit comme ça (parenthèses accolées), pour REXX CHANGE est une fonction.
Change n'est pas une fonction standard et donc REXX va tenter d'exécuter une fonction user, c'est a dire comme pour un CALL, vérifier si une routine CHANGE: est codée dans le REXX ou appeler un REXX externe. J'imagine que si tu a codé cette séquence, c'est qu'un REXX 'CHANGE' existe sur ton site. Il faut donc le retrouver et soit le recopier dans ton REXX, soit allouer le PDS qui le contient, usuellement en SYSUEXEC.

MYBIBREX = ????????????????
ADDRESS TSO                                                          
    "ALLOC DA('"MYBIBREX"','"BIBREXX2"') FILE(SYSUEXEC) SHR REUSE"            
    "ALTLIB ACTIVATE USER(EXEC)"

Sinon CHANGE existe en tant que macro EDIT, la syntaxe est la même que sous EDIT, il faut alors préciser au REXX qu'il s'agit d'une macro EDIT

address ISPEXEC "ISREDIT MACRO (PARM)"
Avant de coder son ordre change par exemple : 
"ISREDIT CHANGE '&VVENVIR.'" ALIAS". ALL WORD"

Enfin si tu veux modifier une ligne en REXX de base :

P1 = pos('&VVENVIR.',LALIGNE)
If P1 > 0 then LALIGNE = left(LALIGNE,P1-1)!!ALIAS!!substr(LALIGNE,P1+8)

[sam01]

Bonjour,

au fait je ne comptait pas utiliser une focntion externe.
je voulais changer une chaîne en rexx sans passer par la macro edit.
Donc ta deuxième solution me convient.

Merci.