Sort based on condition and write into 2 files

thala_ds · New User Joined: 05 Jun 2012 Posts: 18 Location: India

Hi,

I have a requirement to sort the input with LRECL = 2882 Format = FB.
I have to sort the field (72,2,BI,A) and then i have to copy only the last record in one file and the rest of all the records in another file. Can someone advise on how to proceed.

I can use SUBSET if i need to extract only the last record. But i need rest of the records in another file.

Thanks,
thala_ds.

Pandora-Box · Posted: Tue Feb 05, 2013 11:57 am

Do we have an identifier to find the last record after sort?

thala_ds · New User Joined: 05 Jun 2012 Posts: 18 Location: India

Hi,

After sorting, that field will have the maximum value(in position we sorted -->72,2). I have to extract only that maximum value record in one file and rest of the record in another file. We don't have any other identifier.

Thanks.

Bill Woodger · Posted: Tue Feb 05, 2013 12:24 pm

I suggest you get back to the manual, read up on SUBSET, experiment, then implement it. Pay attention to USING.

Please don't give answers like this to perfectly reasonable questions:

thala_ds · New User Joined: 05 Jun 2012 Posts: 18 Location: India

Bill,

Thanks.. I was able to get the required output using the below ICETOOL as you suggested.

SUBSET FROM(IN1) TO(OUT1) DISCARD(OUT2) KEEP INPUT LAST(1)

Thanks a lot.

Bill Woodger · Posted: Tue Feb 05, 2013 1:15 pm

Well done, but I don't see a SORT anywhere. You're not SORTing first then using SUBSET are you?

thala_ds · New User Joined: 05 Jun 2012 Posts: 18 Location: India

Bill,

Yes. i have to sort before using subset. Please see my sort card below.
//TOOLIN DD *
SUBSET FROM(IN1) TO(OUT1) DISCARD(OUT2) KEEP INPUT LAST(1) -
USING(CTL1)
//CTL1CNTL DD *
SORT FIELDS=(72,2,BI,A)
/*

The above statement is failing with RC=16. But if i use SORT FIELDS=COPY, its running fine. Can you please help me on that?.

Thanks.

Bill Woodger · Posted: Tue Feb 05, 2013 1:22 pm

Can you show the sysout of the failure please?

thala_ds · New User Joined: 05 Jun 2012 Posts: 18 Location: India

Bill,

Here is the SYSOUT of the failing job.

enrico-sorichetti · Posted: Tue Feb 05, 2013 1:30 pm

You posted on the DFSORT section of the Forum
and people wasted time trying to diagnose a problem for the wrong environment

topic moved where it belongs

Bill Woodger · Posted: Tue Feb 05, 2013 3:44 pm

Is that all the sysout?

You have a fairly old SyncSort. Maybe do the two-step for now, and I'll try to dig up a different solution when I have more time.

thala_ds · New User Joined: 05 Jun 2012 Posts: 18 Location: India

Bill,

I slightly modified the same sort card and got the expected output.

Bill Woodger · Posted: Tue Feb 05, 2013 4:05 pm

Please use the Code tags to preserve spacing.

With DFSORT I got an error message for INPUT. Without an error message from SyncSort I thought maybe not worth telling you to change to OUTPUT. INPUT is the wrong place anyway, as it would be the last record of the unsorted file.

Thanks for letting us know.