//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
6363 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

Name a few IBM utility programs, and explain its function.

5037

what is a jcl?

1181

How to alter the parameters for the existing gdg?

1257

What happens if both JOBLIB & STEPLIB is specified ?

1208

How to override a dsn that is contained in a proc called by another proc? I need to do the override in the calling jcl?

1212

Name the statement which can be used to send data to another mvs jes3 node?

1222

how to compare two datasets without using superce because output is limited to 133 bytes

2166

what EXEC statement is and what is the syntax of EXEC statement used in JCL?

1221

Is it possible to left uncode disp?

1255

what is the purpose of coding notify parameter in job statement?

1202

What do you understand by the term job time – out and how can you overcome that?

1087

Explain about ISPF/TSO Commands

2019

What do you understand by the term notcat 2 – gs?

1296

Is it possible to code instream data in a PROC?

1399

Differentiate between the joblib and the steplib statements?

1524