MVSFORUMS.com

[lal]

Hi Friends,
I have a Input sequential file containing around 1 lakh records and want to copy around 30000 records to the output sequential file. But the 30000 records to be copied are in the following sequence
a) From 1 to 10000
b) From 40000 to 50000
c) From 90000 to 100000
ie around 30000 records in the output file
This is the requirement friends...can I do it by fileaid online/batch or any other tool..
Thanx in advance..
Regards,
Lal..

[kolusu]

LAL,

Here is a simple 1 pass sort step which will give you the desired results. I assuming that your input file is 80 bytes in length and is of FB recfm format.

A brief explanation of the Job. We a seqnum which acts like a rec no at the end of every record. Now we will use include on the outfil and select only the records which are needed. And finally while writting out we strip off the seqnum using outrec.

[Frank Yaeger]

Lal,

Kolusu's one pass DFSORT job is the most efficient, but it must be changed for different LRECLs. For what it's worth, here's a two pass DFSORT/ICETOOL that doesn't have to be changed for different LRECLs:

[Frank Yaeger]

And here's a simpler and much better one pass job that doesn't have to be changed for different LRECLs. It uses DFSORT's new SUBSET function available with z/OS DFSORT V1R5 PTF UK90013 (July, 2008):

[mf_user]

Frank,

I am really surpirsed and must praise you for your effort to post new solutions to the already given solutions using new features of DFSORT. I must appreciate you and your effort is definitely laudable as far as DFSORT solutions are concerned.

For this particular thread, the solution was given in year 2004 and you have given a new solution to the same in year 2008 (this uses new feature of DFSORT) !!! How do you keep track of this You are really making wonders with your acumen of DFSORT product & the greatest thing is the DFSORT help has been multiplied now with KOLUSU joining you.

GREAT.......GREAT......GREAT........ 8)

You are a great institute yourself. I wish and pray God to give you great health and keep going like this forever.


_________________
MF
==
Any training that does not include the emotions, mind and body is incomplete; knowledge fades without feeling.
==

[callanand]

I would agree with MF User. Both Frank and Kolusu are absolute genious when it comes to providing solution in Sort(They are also genious in other areas of Mainframe too ). I have been so inspired by their solutions that whenever I am assigned any task, the first thought that comes to my mind is how to achieve this using SORT. Great work guys and thanks a lot for such a great help and great product.

[Frank Yaeger]

Thanks for all of the kind words. Kolusu and I really appreciate them. I'm extremely happy that Kolusu took me up on my invitation to join the DFSORT Team!

[mf_user]