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

Fermé
tbeghain Messages postés 58 Date d'inscription mercredi 31 mars 2004 Statut Membre Dernière intervention 22 février 2021 - 1 août 2014 à 10:25
tbeghain Messages postés 58 Date d'inscription mercredi 31 mars 2004 Statut Membre Dernière intervention 22 février 2021 - 1 août 2014 à 12:59
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

tbeghain Messages postés 58 Date d'inscription mercredi 31 mars 2004 Statut Membre Dernière intervention 22 février 2021 3
1 août 2014 à 12:59
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