1. Categories >> Software >> MainFrame >> IBM MainFrame >> JCL
  2. Suggest New Category

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

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

How gdg are concatenated?

677

Can I send output of job to my remote device careerride123?

680

Step 1 RC 4 Step 2 Step 3 I want to know the COND parameter which can be coded in step 2 or 3. Step 2 should be executed based on Step 1 RC and Step 3 should not be executed based on step 1's RC

1148

How to compare two files in SYNCSORT and on the mismatch record should be deleted from second file.

5072

What is the function of dd disp parameter?

667




Explain the jcl exec statement?

663

What are s0c1, s0c4, s0c5, s0c7 and socb?

710

How to remove the spaces at end of each record in the output file Via COBOL program? note: The file has a VB length ----TRY

872

What is condition checking in jcl? Is this possible?

640

what is the JCL statement consists of?

711

Explain the function of job statement in jcl?

661

The disp in the JCL is MOD and the program opens the file in OUTPUT mode. What happens ? The disp in the JCL is SHR and the pgm opens the file in EXTEND mode. What happens ?

956

what are the various stages of job processing?

747

in a jcl, a large volume dataset is loaded to a table using bmcload in step1 and an image copy of the loaded table is taken using bmccopy in step2. Step2 abends because the image copy dataset cannot hold the volume of the table. How can this be rectified?

826

How to run cobol program using jcl?

662