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 ... |
Partager