Discussion :

[abretlot]

Bonjour à tous,


Je cherche à découper un fichier par chaine de caractère.

pour exemple, à chaque fois que je tombe sur end of, il me créé un fichier avec toutes les données qui précèdent.

toto
tata
end of
titi
tutu
end of

j'ai l'impression qu'avec un SORT on ne peut pas.

Merci de votre aide.

[bernard59139]

et pourtant, DFSORT permet cela au prix d'une petite gymnastique
en lisant le fichier, il faut ajouter le No du groupe en fin de record.
avant d'écrire le record, il faut "enlever" le numéro ajouté.

je te laisse adapter cet exemple.
a+

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
//GROUPS   EXEC PGM=SORT 
//SYSOUT   DD  SYSOUT=* 
//SORTIN   DD  *    
1
1
ENDOF
2
2
ENDOF
//*
//SORTOUT  DD  SYSOUT=*
//GR1      DD  SYSOUT=*
//GR2      DD  SYSOUT=*
//GR3      DD  SYSOUT=*
//SYSIN    DD  *
 INREC IFTHEN=(WHEN=GROUP,                
               END=(1,5,CH,EQ,C'ENDOF'),  
               PUSH=(80:ID=3))            
 SORT  FIELDS=COPY                        
 OUTFIL FNAMES=GR1,INCLUDE=(80,3,ZD,EQ,1)   
 OUTFIL FNAMES=GR2,INCLUDE=(80,3,ZD,EQ,2)   
 OUTFIL FNAMES=GR3,INCLUDE=(80,3,ZD,EQ,3)

[abretlot]

super !

c'est tout ce qu'il me fallait..

Merci beaucoup