Interested to Buy Any Domain ? << Click Here >> for more details...
I have one GDG.
Everyday One new version is being created.Now I want to
split this created version in different files each having
1000 records.
Here Problem is I don't know How many records will be there
in new version of GDG?
that's why I don't know How many Out files we need to use .
Interesting??????????????
- 4 Answers
- 19861 Views
- CTS, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / ashl
Write a Clist that will take the input file read the first 1000 records and create
an output file. After 1000 records are created the next record should be
written to a new file. The Clist can allocate files during execution.
The timing of the file allocation will be handled logically by the program.
Keep a counter, once it reaches 1000, initialize the variable and and create a
new file.
The output file names will vary with each file.
Execute the Clist as a step in your job and once the step completes the
output should be different files with 1000 records.
| Is This Answer Correct ? | 5 Yes | 0 No |
Answer / xx
Give your GDG base in the i/p DD name of SORt step. Use
SPLIT parameter in SORT to complete the task. When you use
GDG base all generation of that GDG will be considered.
| Is This Answer Correct ? | 4 Yes | 0 No |
Answer / shridhar
STEP001 : Selcopy/utility to count no of records in GDG.
Just mention GDG base in input to include all versions.
STEP002 : REXX step. define a stem of 1000. read input
batch of 1000 records or if not 1000 then for actual count.
Alloc a new file dynamically. Write these no of records.
Reduce actual count by no of records written.
Repeat procedure untill no of records <= 0.
| Is This Answer Correct ? | 1 Yes | 1 No |
Answer / neelu
i think we need to generate a JCL through a cobol program
and then run the Created JCL.
| Is This Answer Correct ? | 0 Yes | 3 No |
Explain how can the disposition of sysout datasets be set for an entire jobstream?
How to pass data to a program that is coded in an exec statement?
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
Name the parameters which can be used to limit the number of records written to a sysout dataset?
What do you understand by the terms: joblib and steplib?
In JCl which of this activities get executed if act002 abnormally terminates //job001 job ......... //act001 exec pgm=cobo01 //act002 exec pgm=cob02, cond=(01,le) //actoo3 exec pgm=cob03, cond=only //actoo4 exec pgm=con04
What is GDG?
what is the meaning of 'sysin dd dummy'
i have 10,000 records in one input file.i want to sort 1 to 5000 records in one outputfile and remaining records sort in another output file write the syntax for this?
How many positional parameters are there in job statement?
Are all (i), (ii), (iii), (iv) of the below are VALID to reference a temporary dataset ? STEP2 DD1 DD DSN = &&TEMP STEP3 DD2 DD (i) DSN = TEMP (ii) DSN = *.TEMP (iii) DSN = *.STEP1.DD1 (iv) DSN = *.STEP1.DD1.ONE
There is one QSAM is the VB file. i want to get the first characters in this file and change those characters from'abcd' to '1234' and creat a vasm file to put '1234' in it. how to do in only JCL. if it not QSAM, it's VASM and VB. how to do it.
COBOL 
