ihatesugar Warnings : 1 New User
Joined: 22 Oct 2006 Posts: 43
|
|
|
|
Hi,
I have 4 input files, which needs to be reformatted.
Is there any way of specifying a common control card which reformats all the input files and produce corresponding 4 output files?
I mean, a single step which uses a single control card which reformats 4 input files to 4 output files.
This is just for learning. is it possible to do so?
Your inputs will be valuable.
Thanks |
|
murmohk1
Senior Member
Joined: 29 Jun 2006 Posts: 1436 Location: Bangalore,India
|
|
|
|
Its possible with ICETOOL.
Sample JCL -
Code: |
//SAMPSTEP EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//*
//IPFILE1 DD DSN=YOUR.FIRST.IPFILE,DISP=SHR ASSUME LRECL=100
//OPFILE1 DD DSN=YOUR.FIRST.OPFILE,DISP=....,
// LRECL=80,..........
//*
//IPFILE2 DD DSN=YOUR.SECOND.IPFILE,DISP=SHR ASSUME LRECL=120
//OPFILE2 DD DSN=YOUR.SECOND.OPFILE,DISP=....,
// LRECL=10,..........
//*
//TOOLIN DD *
** FOR FIRST FILE
COPY FROM(IPFILE1) TO(OPFILE1) USING(FRST)
** SECOND FILE
COPY FROM(IPFILE2) TO(OPFILE2) USING(SECN)
/*
//*
//FRSTCNTL DD *
OUTREC FIELDS=(1,80) * FIRST 80 BYTEST
/*
//SECNCNTL DD *
OUTREC FIELDS=(1,10) * FIRST 10 BYTEST
/* |
|
|