Interested to Buy Any Domain ? << Click Here >> for more details...
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
- 2 Answers
- 6258 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / sreeji
//jobcard JOB.......
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD1 DD DSNAME=FDWS01.SUB.RESTORE1,DSIP=OLD
//INDD2 DD DSNAME=FDWS01.SUB.RESTORE2,DSIP=OLD
//INDD3 DD DSNAME=FDWS01.SUB.RESTORE3,DSIP=OLD
//INDD4 DD DSNAME=FDWS01.SUB.RESTORE4,DSIP=OLD
......
......
......
//INDD10 DD DSNAME=FDWS01.SUB.RESTORE10,DSIP=OLD
//OUTDD1 DD DSNAME=FDWS01.TEST.RESTORE(+1),DISP=NEW
//OUTDD2 DD DSNAME=FDWS01.TEST.RESTORE(+1),DISP=NEW
//OUTDD3 DD DSNAME=FDWS01.TEST.RESTORE(+1),DISP=NEW
.......
.......
//OUTDD10 DD DSNAME=FDWS01.TEST.RESTORE(+1),DISP=NEW
//SYSIN DD *
REPRO INFILE (INDD1) OUTFILE (OUTDD1)
REPRO INFILE (INDD2) OUTFILE (OUTDD2)
.......
.......
REPRO INFILE (INDD10) OUTFILE (OUTDD10)
/*
| Is This Answer Correct ? | 3 Yes | 1 No |
Answer / balmukund
sing 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 ? | 1 Yes | 1 No |
Does jcl support automatic restart?
What is the purpose of the dd keylen parameter?
Explain about LMMFIND - find a library member
How much space OS allocates when you create a PS or PDS?
Why we us SYSTSIN DD with IKJEFT01 (TSO Utility) to execute a COBOL DB2 program? Why can't we use SYSIN DD?
Suppose there are 2 Input files Infile-1 and Infile-2. Both the Files contain Employee Records. You need to compare both the files and Write the Common Records in third file named Outfile. How can we do this using File-Aid?
What is notcat 2 - gs?
What is the function of job statement in jcl?
I have a COBOL program that Accepts some input data. How do you code the JCL statement for this? ( How do you code instream data in a JCL? )
I have 60 steps in the JCL and want to Execute Only First from PROC by overriding in JCL ?
How would I code JCL to copy a gdg data set G001v00 and create a gdg Data set G001v01
A PROC has five steps. Step 3 has a condition code. How can you override/nullify this condition code?
COBOL 
