Discussion :

[sam01]

Bonjour à tous,

j'iamerais dans un même rexx écrire dans deux fichiers différents :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13

queue 'AAAA'
queue 'BBBB'
queue 'BBBB'

queue '1234'
queue '5678'
queue '9999'

"EXECIO * DISKW DISKOU1 (FINIS"

"EXECIO * DISKW DISKOU2 (FINIS"

J'aimerais que les lettres s'écrivent dans le fichier DISKOU1
et que les chiffres s'écrivent dans le fichier DISKOU2

Là, si je laisse comme ça, tout s'écrit dans le fichier DISKOU1.

Merci d'avance.

[bakounine]

Bonjour ,

Un truc comme çà ?


queue 'AAAA'
queue 'BBBB'
queue 'BBBB'

"EXECIO 3 DISKW" DISKOU1

queue '1234'
queue '5678'
queue '9999'

"EXECIO 3 DISKW" DISKOU2

et à la fin du Rexx :

"EXECIO 0 DISKW DISKOU1 (FINIS"

"EXECIO 0 DISKW DISKOU2 (FINIS"

Bakounine

[sam01]

Salut Bakouine. Merci d’avoir répondu à cette question qui à priori est simplede mais il est vrai que je nai jamais été confronté à cette problématique. Si je comprends bien, à chaque fois que je fais un queue A pour un fichier A , il faut que je code de suite derrière l’EXECIO du fichier A. Et dès que je fais l’EXECIO, La stack est vidée c’est bien ça ?
Ca veut dire qu’en terme de performance on n’est pas terrible...
J’avais pensé à utiliser les option DELSTACK et NEWSTACK afin d’empiler les QUEUE et à la fin faire un EXECIO * de chaque fichier dans sa prorep STACK... Tu penses que c’est faisable ?

[bakounine]

Bonjour ,

L'Execio DiskW vide en effet la pile. Et ayant déjà été confronté à ce souci de faire des Execio plusieurs fois , je n'ai pas vu de problème de performance ....

Par contre , si tu crée un nouveau stack (Chose que je n'ai jamais fait) , lors de ton Execio DisqkW , comment vas-tu lui dire quel stack utiliser pour tel fichier ?

Nota : Si tu sais faire , je suis preneur

Bakounine

[bernard59139]

Bonjour

perso, dans un rexx unique, je n'utilise que très rarement les piles (ou QUEUE). trop pénibles à gérer et surtout,en cas de planton, ca donne des trucs indésirables.
Je réserve les piles aux passage de paramètres entre 2 rexx (le moins souvent possible), avec vidage de la pile le plus tot possible.

En remplacement,j'utilise les tableaux (ou STEM). Ex: "EXECIO 500 DISKR entree (STEM lig."
une fois les STEM maitrisés, c'est le bonheur.

Pour répondre au problème originel, rien ne t'empeche de créer un fichier, et de le recopier avec un utilitaire performant (adrdssu, sort,...).
OU alors, avec un stem, tu peux alimenter 2 fichiers différents

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
EXECIO 500 diskw S1 (stem lig. 
EXECIO 150 diskw S2 (stem lig.

rexx est performant, mais bien moins que le SORT ou tout autre utilitaire.

[xfanx]

ça aussi c'est pas mal pour ton besoin
bsys1=10
do i = 1 to bsys1.0
bsys1.i = 'jkefhjzehfkjhzefkjhzejkrfh'
end
bsys2=10
do i = 1 to bsys2.0
bsys2.i = 'jkefhjzehfkjhzefkjhzejkrfh'
end
address mvs"execio * diskw SYSO1(stem bsys1. finis"
address mvs"execio * diskw SYSO2(stem bsys2. finis"

[sam01]

Salut, oui merci. Ca équivaut un peu à ce que dit bernard59139. Le mieux est d'utiliser les tableaux.
La gestion des Stacks (DELSTACK et NEWSTACK ) est beaucoup trop complexe... Il faut à chaque fois savoir dans quelle stack tu es, et on perd vite les pédales...