Hi,
Say I have 10 flat files and I want to copy all these 10
flat files to a GDG versions flat files (I have GDG base:
FDWS01.TEST.RESTORE) in one shot. Can we do that in one shot
using a JCL. May be by using IEBGENER. It's a bit urgent. So
anyone's fast rely would be appreciated.. Thanks in advance..
10 flat files
-----------------------------------
FDWS01.SUB.RESTORE1
FDWS01.SUB.RESTORE2
FDWS01.SUB.RESTORE3
;
;
FDWS01.SUB.RESTORE10
TO
GDG versions
-----------------------
FDWS01.TEST.RESTORE.G0001V00
FDWS01.TEST.RESTORE.G0002V00
FDWS01.TEST.RESTORE.G0003V00
;
;
FDWS01.TEST.RESTORE.G0010V00
Answer Posted / balmukund
Using below JCL we can achieve the above task.
//jobcard JOB.......
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD DD DSNAME=FDWS01.SUB.RESTORE1,DSIP=OLD
// DD DSNAME=FDWS01.SUB.RESTORE2,DSIP=OLD
// DD DSNAME=FDWS01.SUB.RESTORE3,DSIP=OLD
// DD DSNAME=FDWS01.SUB.RESTORE4,DSIP=OLD
......
......
......
// DD DSNAME=FDWS01.SUB.RESTORE10,DSIP=OLD
//OUTDD DD DSNAME=FDWS01.TEST.RESTORE(+1),DISP=NEW
//SYSIN DD *
REPRO INFILE (INDD) OUTFILE (OUTDD)
/*
Hope this will work with you. other wise let me known
Is This Answer Correct ? | 6 Yes | 1 No |
Post New Answer View All Answers
Explain the job statement in jcl?
How to execute 2nd and 4th steps among 5 steps in jcl proc?
Explain the hierarchy levels in jcl?
Can we call instream to catalog and catalog to instream?
State the uses of syspring, sysin, sort fields, sum fields and dummy.
What is the purpose of dd?
Why block size is multiple of lrecl in jcl?
I want my job (careerride) to be executed in 1 minute and 2 seconds. How do I do that?
Is their any limit for data sets?
how do you code a null statement?
why should SYSIN DD * statement should not be included inside a PROCedure snippet??? please answer this.. i need to know.
Can I send output of job to my remote device careerride123?
Explain the function of dd disp parameter?
What is the function of the steplib dd statement?
a dd statement has 2 types of parameters. Name them?