Copier 2 fichiers dans un autre [Résolu]

[lah.123]

Bonjour,

J'ai un fichier qui contient 1608 dans sa taille alors je veux copier ce fichier avec un autre fichier de taille 451 et je veux copier ces 2 fichiers dans un autre fichier de 2059

Est ce que il y a une méthode ou un JCL pour le faire

Merci pour votre réponse

[Luc Orient]

Une proposition en utilisant ICETOOL fonction COPY avec deux STEP.

J'ai supposé les fichiers d'entrée en FB et que le complément se faisait sur du caractère espace.

Attention au DISP=MOD sur le fichier en sortie du second STEP ...

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
//ICETOOL EXEC PGM=ICETOOL,REGION=1024K 
//TOOLMSG DD SYSOUT=* 
//DFSMSG DD SYSOUT=* 
//TOOLIN DD * 
 COPY FROM(INDD) TO(OUTDD) USING(CTL1) 
//INDD DD DISP=OLD,DSN= ... fichier de 1068 ... 
//CTL1CNTL DD *        ==>   RAJOUTER 991 BLANCS 
 OUTREC BUILD(1,1068,991X) 
//OUTDD DD DISP=(NEW,CATLG,DELETE), 
//  AVGREC=U,SPACE=(2059,(100,100)), 
//   DSN= ... fichier de 2059 ... 
//* 
//ICETOOL EXEC PGM=ICETOOL,REGION=1024K 
//TOOLMSG DD SYSOUT=* 
//DFSMSG DD SYSOUT=* 
//TOOLIN DD * 
 COPY FROM(INDD) TO(OUTDD) USING(CTL1) 
//INDD DD DISP=OLD,DSN= ... fichier de 451 ... 
//CTL1CNTL DD *        ==>   RAJOUTER 1608 BLANCS 
 OUTREC BUILD(1,451,1608X) 
//OUTDD DD DISP=MOD, 
//   DSN= ... fichier de 2059 ...

[lah.123]

Merci Beaucoup

[Peut-êtreUneRéponse]

ICETOOL comme Luc Orient mais en un seul step :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
//ICETOOL EXEC PGM=ICETOOL,REGION=1024K 
//TOOLMSG DD SYSOUT=* 
//DFSMSG DD SYSOUT=* 
//*
//INDD1 DD DISP=OLD,DSN= ... fichier de 1068 ... 
//INDD2 DD DISP=OLD,DSN= ... fichier de 451 ... 
//OUTDD DD DISP=MOD,DSN= ... fichier de 2059 ...
//*
//TOOLIN DD * 
 COPY FROM(INDD1) TO(OUTDD) USING(CTL1)
 COPY FROM(INDD2) TO(OUTDD) USING(CTL2)
/*
//CTL1CNTL DD *
 OUTREC BUILD(1,1068,991X) 
/*
//CTL2CNTL DD *        
 OUTREC BUILD(1,451,1608X) 
/*
//

[Luc Orient]

Bien aussi ...