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
- 4 Answers
- 22538 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / 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 |
Answer / lu
your questions is 10 flat files copy into 1 output !!! or
10 flat file into 10 output !!!!
u create 10 steps (10 flat files into 10 output with GDG
//STEP1 EXEC PGM=IEBGENER
//sysut1 DD DSN=FDWS01.SUB.RESTORE1,DISP=old
//SYSUT2 DD DSN=FDWS01.TEST.RESTORE(+1),
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(TRK,(20,10),RLSE),
// DCB=(MODEL.DCB,RECFM=FB,
// LRECL=80, BLKSIZE=800)
//*
//*
//STEP02 EXEC PGM=IEBGENER
//sysut1 DD DSN=FDWS01.SUB.RESTORE2,DISP=old
//SYSUT2 DD DSN=FDWS01.TEST.RESTORE(+2),
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(TRK,(20,10),RLSE),
// DCB=(MODEL.DCB,RECFM=FB,
// LRECL=80, BLKSIZE=800)
ok.....
| Is This Answer Correct ? | 4 Yes | 2 No |
Answer / rakesh jena
Simply you will copy all the 10 flat files into GDG base.
Then thry ISPF3.4 option menu you can see all the o/p of
flat would be available in last 10 current version of GDG
file. Please let me know if i am wrong but after try once.
We are using this method always in our pjct.
| Is This Answer Correct ? | 3 Yes | 3 No |
@Balmukund : Ultimate reply:
Same can be done by following method:
Sort all the 10 files on a ASC KEY.
Merge them and copy them to any file (Or GDG).
Let me know if you ned JCL for this. I hope u can do it and post the JCL for others.
Thnx, pls let us know the result
Garry
| Is This Answer Correct ? | 0 Yes | 0 No |
How to pass data to a program that is coded in an exec statement?
What do you understand by jcl?
How to submit multiple jobs. These jobs are members in PDS. The second job should run if the first job runs successfully and so on.
What does the TIME parameter signify ? What does TIME=1440 mean ?
How do you create a temporary dataset?
we define the array like this 01 array 02 veg occurs 10 times 03 days occurs 6 times 04 cost pic 9(5). but why don't we write it as 01 array 02 veg occurs 10 times 03 days occurs 6 time 04 cost pic 9(5). is there any error will occur ,what is it? and why don't 01,02,03 not contain picture clause? if we put pic in those is there any error will occur what is it will occur?
A. Job Abended in STEP03. Now run job again to execute STEP03, STEP04 (STEP01,STEP02 should not execute again)
3 Answers Cap Gemini, CSC, Xchanging,
how do u define a file in cobol and jcl ?
Describe the DD statement, its meaning, syntax and keywords?
Are there any set of rules for the names of the steps used in a job? What are they?
What do you do if you do not want to keep all the space allocated to a dataset?
List the different jcl statements that are not permitted in the procedures?
COBOL 
