Summing records using SORT

tarunbhardwajleo · Posted: Fri Mar 30, 2007 2:10 am

I have a file where in there are a number of detail records(identified by '20' in the first two bytes) and a single trailer record(identified by '30' in the first two bytes). In the trailer record, I need to populate the bytes 3-7 (at position 3 of length 5 bytes) in the packed decimal format S9(9) COMP-3 that would contain the total number of type '20' records.

My file looks like:

William Thompson · Posted: Fri Mar 30, 2007 2:30 am

Try COBOL, Assembler, PLI or REXX.......

tarunbhardwajleo · Posted: Fri Mar 30, 2007 2:39 am

Using COBOL/REXX program is ruled out... looking for some way to do it only using SORT

Frank Yaeger · Posted: Fri Mar 30, 2007 2:46 am

Here's a DFSORT job that will do what you asked for:

dick scherrer · Posted: Fri Mar 30, 2007 2:59 am

Hello,

Who makes such "rules"?

I suspect that most of the people posting topics on these forums have "programming" somewhere in their job description. How is then "ruling out" code as an alternative justified (or even tolerated)?

While i'm very much in favor of using our tools and their special features, i'm not in favor of someone handing out assignments with "Ok, Joe Programmer - here's a coding task that you are not allowed to write code for". How silly!

tarunbhardwajleo · Posted: Fri Mar 30, 2007 3:00 am

Thanks Frank for the reply.

Is it possible to achieve the above using PGM=SORT ?

tarunbhardwajleo · Posted: Fri Mar 30, 2007 3:04 am

Dick, your concern is very valid !

Frank Yaeger · Posted: Fri Mar 30, 2007 3:05 am

tarunbhardwajleo · Posted: Fri Mar 30, 2007 3:06 am

Thanks Frank ! Hope that helps !

Sorry for missing that part about PGM=SORT.

Thanks again !

dick scherrer · Posted: Fri Mar 30, 2007 3:14 am

Hello tarunbhardwajleo,

You're welcome

However, I've not yet seen a user requirement that specified that their objective must not be coded in a program

Good luck.

tarunbhardwajleo · Posted: Tue Apr 03, 2007 2:11 am

Hi Frank,

I tried executing the SORT step as coded by you but Iam getting the following message:

dick scherrer · Posted: Tue Apr 03, 2007 2:32 am

Hello,

Please note that you are using Syncsort. You can tell that from the "WER" messages. At many sites, executing ICEMAN actually invokes Syncsort, not the IBM product. That appears to be what is happening with your job.

Frank's solution is for DFSORT. The control statements for both sorts are not the same.

Frank Yaeger · Posted: Tue Apr 03, 2007 3:03 am

tarunbhardwajleo,

The job runs fine with DFSORT. As Dick pointed out, the WER messages indicate you're using Syncsort, not DFSORT.

I'm a DFSORT developer. DFSORT and Syncsort are competitive products. I'm happy to answer questions on DFSORT and DFSORT's ICETOOL, but I don't answer questions on Syncsort.

If you or anyone else on this board would like some documents prepared by the DFSORT Team that describe what we see as the advantages of DFSORT over Syncsort, as well as considersations for migrating from Syncsort to DFSORT, send me an e-mail offline (yaeger@us.ibm.com). Please put "DFSORT" somewere in your Subject line to catch my attention.

dick scherrer · Posted: Tue Apr 03, 2007 3:42 am

Hello,

With Syncsort, this:

tarunbhardwajleo · Posted: Tue Apr 03, 2007 9:51 pm

Hi Dick,

Thanks for your assistance. Just one last query, is it possible to have COUNT in packed decimal format that start from position (after'30') and has length 5 bytes? Thats S9(9) comp-3.

Thanks in advance !

dick scherrer · Posted: Wed Apr 04, 2007 12:50 am

You're welcome

If Syncsort will do it, i'm not sure how to do it directly. That's what i had hoped to look into last night, but ran out of time.

While it would be tedious, additional steps could be added to separate and reformat the "trailer" so the count would be converted to packed-decimal.

After the reformat, the 2 files could then be combined putting the trailer back together with the data records.

Seems like a real waste of both people and machine resources to do it this way.

Maybe someone has experience generating a trailer with a packed-decimal count in the trailer record using Syncsort.

William Thompson · Posted: Wed Apr 04, 2007 12:56 am

tarunbhardwajleo · Posted: Wed Apr 04, 2007 1:11 am

yeah, I checked it but couldn't get a break thru with it. COUNT is an 8 digit right justified field with leading zeros suppressed. Iam just trying to figure out a way to convert it to PD S9(9) comp-3.

dick scherrer · Posted: Wed Apr 04, 2007 1:36 am

Hello,

Another thought that comes to mind is to run the "copy" creating only the trailer. Then, reformat the trailer from what you have to PD. Lastly combine the 2 files into one.