//jobcard JOB....... //STEP1 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //IN

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

Question Posted / sreeji

2 Answers
6103 Views
I also Faced
E-Mail Answers

Answer Posted / 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

Post New Answer View All Answers

Please Help Members By Posting Answers For Below Questions

What is the significance of addrspc parameter in exec statement?

1144

what is “Cond= even” and “Cond=only”?

1241

have in 100 records in a file i want to read first 3 records and skip next 3 records and agan i want to read 3 records and again i want to skip 3 records... run a loop from record one to 10 evaluate i/3 if comes even then skip else write to output file

1455

Explain how can the submitting users racf authority be overridden in a job stream?

1077

What is the difference between run mode and addressing mode?

1155

write a jcl to execute a job by 7:00 am on jan 20,1986?

1062

What is the function of the dd dcb keyword?

1270

I have 60 steps in the JCL and want to Execute Only First from PROC by overriding in JCL ?

1781

My Question is 1. How to cound no. of records in JCL. Please explain with an example. 2. How to execute only odd steps in JCL? I know EDIT TYPE = Inculde, Step Name = 1,3,5 and COND code for all even step. Anyone knows other than this.

2400

Which dd parameters are required?

1107

Can I share my data with other jobs? How?

1025

when does a dataset go uncataloged?

1245

List in order the hierarchical levels of jcl?

1061

I have a job called careerride and some steps in it as step1,step2. But I want to execute step2 before step1 ? How do I do that?

1310

What is job control language?

1031