MVSFORUMS.com

[pete]

I need help with an ICETOOL solution:

Given:
Input;

[Cogito-Ergo-Sum]

[Frank Yaeger]

Pete,

Well, since you have sequence numbers starting at 1 for each plan, the following INCLUDE statement will extract the first 5 records for each plan:

[pete]

To Cogito-Ergo-Sum,

The sample of data my customer has given me shows at least 10.

To Frank,

I'm not sure on the PTFs. I'll check with systems programming.

Thank You.
_________________
Regards,
Pete.

[Frank Yaeger]

[pete]

Frank, DFSORT is available, but this customer is running on VSE. Can you help ?

[kolusu]

Pete,

The following DFSORT/ICETOOL jcl will give you the desired results. Frank might be able to show you another way to do this with the new ptf which involves less amount of code. If your shop has syncsort then change the pgm name to synctool. Note that you need SYNCSORT FOR Z/OS 1.1 and higher for this jcl to work with syncsort.

I assumed that your input file length is 80 bytes and is FB dataset. You sort key is at pos 14 for 8 bytes.

A brief explanation of the Job.

The first copy operator creates 2 files.

T1 just contains the starting seqnum of every unique plan number along with the total no: of plans for each plan.

T2 is just a copy of input

Now we concatenate these 2 files and splice them so that all the records in the input file are having a seqnum as well as the total subtracted from the seqnum of each record.

ex input: I have 2 plans aaa and bbb. aaa has a total of 5 plans and bbb has a total of 2 records.

[Frank Yaeger]

[Frank Yaeger]

Well, this won't do the VSE customer any good, but here's how you can do this with DFSORT/ICETOOL using the new RESTART parameter.

Since you already have a sequence field for each plan value, we can use that to get the first 5 records for each plan.

To get the last records 5 records for each plan, we can use the new RESTART=(p,m) parameter of SEQNUM. You need z/OS DFSORT PTF UQ95214 or DFSORT R14 PTF UQ95213 (Dec, 2004) to use RESTART. For complete details on all of the new DFSORT and ICETOOL functions available with this PTF, see:

www.ibm.com/servers/storage/support/software/sort/mvs/pdug/

First we sort descending on the sequence field, and add a new seqnum to set 1 for the last record, 2 for the next to last record, etc. We use the new RESTART=(p,m) parameter of SEQNUM to start the seqnum over again at 1 each time the plan changes. At this point, each plan will have n-1 for the sequence field and 1-n for the seqnum field.

Next we sort again by sequence ascending to get the records back in their original order. At this point, each plan will have 1-n for the sequence field and n-1 for the seqnum field. For example, the records for PLAN0001 will
look like this:

[Frank Yaeger]

If you have z/OS DFSORT V1R5 PTF UK90013 (July, 2008) you can now use the new SELECT FIRST(n) function to do this more easily like this. Note that in CTL1CNTL we sort by sequence ascending and in CTL2CNTL we sort by sequence descending.