Ecrire à la fin d'un fichier en REXX sur TSO

tbeghain Messages postés 58 Date d'inscription   Statut Membre Dernière intervention   -  
tbeghain Messages postés 58 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
Sur MVS, j'essaye d'écrire à la fin d'un fichier preexistant. Seulement, à chaque fois que je passe l'ordre diskw, le fichier est initialisé avec ce que je viens de mettre
/* REXX */
NEW2.0 = 1
NEW2.1 = "TITI JCL CCCC"
"ALLOC DD(LOGDIM) DSN(ETUDE.TOTO.LOG) OLD REUSE"
"EXECIO * DISKW LOGDIM (STEM NEW2."

Si j'exécute le script 3 fois par exemple, je voudrais avoir comme contenu du fichier
TITI JCL CCCC
TITI JCL CCCC
TITI JCL CCCC

Mais après l'exécution n fois du script, le PDS ETUDE.TOTO.LOG ne contient toujours que la ligne que je viens d'écrire.
TITI JCL CCCC

Je pensais que d'avoir alloué le PDS en OLD REUSE, permettait d'écrire au bout.
Merci de m'éclairer

A voir également:

1 réponse

Réponse 1 / 1
tbeghain Messages postés 58 Date d'inscription   Statut Membre Dernière intervention   3
 
Bon, je réponds moi même, car j'ai trouvé, et ça fonctionne
FREE ALL
"ALLOC FI(LOGDIM) DA(ETUDE.TOTO.LOG) MOD"
QUEUE PROG PARAM DATE(E) TIME()
"EXECIO 1 DISKW LOGDIM "
0