|
View previous topic :: View next topic
|
| Author |
Message |
morpheus007
New User
Joined: 27 Dec 2005
Posts: 58
|
|
|
|
I have a requirement to backup 16 different files to their corresponding 16 different GDG's.I want to do this in a single step.
Kindly suggest if we can do this in one step with IEBGENER or maybe one IDCAMS step(REPRO).Ideally I would want to try with IEBGENER. |
|
| Back to top |
|
 |
priyesh.agrawal
Senior Member
Joined: 28 Mar 2005
Posts: 1448
Location: Chicago, IL
|
|
|
|
Something like this should work with IDCAMS & REPRO... You might need some syntax corrections here, as I didnt test it....
| Code: |
//S010 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD1 DD DSN=INPUT.DSN1,DISP=SHR
//INDD2 DD DSN=INPUT.DSN2,DISP=SHR
::
::
//INDD16 DD DSN=INPUT.DSN16,DISP=SHR
//OUTDD1 DD DSN=OUTPUT.DSN1(+01),DISP=(,CATLG,DELETE)
//OUTDD2 DD DSN=OUTPUT.DSN2(+01),DISP=(,CATLG,DELETE)
::
::
//OUTDD16 DD DSN=OUTPUT.DSN16(+01),DISP=(,CATLG,DELETE)
//SYSIN DD *
REPRO INFILE(INDD1) OUTFILE(OUTDD1)
REPRO INFILE(INDD2) OUTFILE(OUTDD2)
::
::
REPRO INFILE(INDD16) OUTFILE(OUTDD16)
/* |
|
|
| Back to top |
|
|
morpheus007
New User
Joined: 27 Dec 2005
Posts: 58
|
|
|
|
| Thanks for the quick response.This works. |
|
| Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
You might find that this DFSORT/ICETOOL solution is more efficient than the IDCAMS solution:
| Code: |
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//INDD1 DD DSN=INPUT.DSN1,DISP=SHR
//INDD2 DD DSN=INPUT.DSN2,DISP=SHR
...
//INDD16 DD DSN=INPUT.DSN16,DISP=SHR
//OUTDD1 DD DSN=OUTPUT.DSN1(+01),DISP=(,CATLG,DELETE)
//OUTDD2 DD DSN=OUTPUT.DSN2(+01),DISP=(,CATLG,DELETE)
...
//OUTDD16 DD DSN=OUTPUT.DSN16(+01),DISP=(,CATLG,DELETE)
//TOOLIN DD *
COPY FROM(INDD1) TO(OUTDD1)
COPY FROM(INDD2) TO(OUTDD2)
...
COPY FROM(INDD16) TO(OUTDD16)
/*
|
|
|
| Back to top |
|
|
|
|
