MVSFORUMS.com

vak255 · Intermediate Joined: 10 Sep 2004 Posts: 384 Topics: 79

I have 255 input Tape datasets listed in a file and I need to back this as 255 output files. The Output file names is listed in a another file. How should I accomplish this using Sort\ICETOOL

kolusu · Posted: Wed Nov 18, 2015 4:46 pm Post subject:

vak255,

Quite simple.

1. Concatenate both input and output files and generate the dynamic JCL with 255 steps or if the tapes are on individual volumes then generate a single step JCL and submit them via INTRDR.

2. If for some reason you cannot concatenate or distinguish input file names to output file names then use joinkeys and generate the dynamic JCL
_________________
Kolusu
www.linkedin.com/in/kolusu

vak255 · Intermediate Joined: 10 Sep 2004 Posts: 384 Topics: 79

How to generate the Dynamic JCL?, the tapes are on individual volumes but my shop dont want me t code any VOL parameter.

Thanks for your time

Nic Clouston · Posted: Thu Nov 19, 2015 9:10 am Post subject:

If your datasets are catalogued then you do not need vol or unit information. If not then you MUST HAVE BOTH.
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.

vak255 · Intermediate Joined: 10 Sep 2004 Posts: 384 Topics: 79

thanks, they are cataloged, Is there a sample code that you can share?

kolusu · Posted: Thu Nov 19, 2015 12:14 pm Post subject:

vak255 · Intermediate Joined: 10 Sep 2004 Posts: 384 Topics: 79

thanks for all the help.

I have copied all 255 gens to one base to another 255 gens of another GDG base. My shop want the record count to cross check if both input count and output count matches. How should I verify the record count? without manual work. I believe, just checking the total count of all the Gens will also do. pls advise.

kolusu · Posted: Fri Nov 20, 2015 9:37 am Post subject:

William Collins · Supermod Joined: 03 Jun 2012 Posts: 437 Topics: 0

Did you use SORT to do the copies? There should be a count in the sysout. If there is no INCLUDE COND=/OMIT COND=/INCLUDE=/OMIT= and no use of the slash operator (/), then the number of records are the same. Guaranteed.

Verifying record-counts is something quite normal, so if you weren't using SORT you should have catered for the counts.

No, you can't just count on the totals of all the files being equal.

vak255 · Intermediate Joined: 10 Sep 2004 Posts: 384 Topics: 79

I have over 60 GDG bases each having 80 to 255 Gens. its over 8000 generations, doing manual check is difficult. so I thought if there is a away to check on the record totals on the base rather than on individual generations. if that is not possible, is there a way to extract the counts of all the Generations of a base?

Nic Clouston · Posted: Fri Nov 20, 2015 10:31 am Post subject:

Write you sysout to a dataset, write a program to read that dataset and extract the line Kolusu specified. Check the record counts match, write n error message if mismatch, write an OK mesage if matched.
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.

William Collins · Supermod Joined: 03 Jun 2012 Posts: 437 Topics: 0

No.

Even if there were some magic to do something like that, reading all the data just to count the records is wasteful, if it can be avoided.

Whatever you are using to do the copy needs to output counts. The DD-name where it outputs counts can be sent to a dataset. That can be DISP=MOD or datasets you later concatenate. Then you read all the count information and confirm it is correct.

You have not confirmed what you are using for the copy. If using SORT, then re-read my last post here. If not, then in whatever you are using, ensure you have the input and output counts.

In a COBOL program I'd check "as you go along".

vak255 · Intermediate Joined: 10 Sep 2004 Posts: 384 Topics: 79

Thanks for the inputs, I am using SUPERSRT.

vak255 · Intermediate Joined: 10 Sep 2004 Posts: 384 Topics: 79

I can see the IN and OUT record counts in the jobs. I will work on it.