i need following using JCL --SORT UTILITY.

ravikumarreddy · New User Joined: 29 Jul 2005 Posts: 23

HI,
here i have a question which is suppose to answer thru JCL.

MY FILE LIKE FOLLOWING:

rajesh_1183 · Posted: Fri Mar 10, 2006 3:56 pm

HI,

fixdoubts · New User Joined: 21 Oct 2005 Posts: 54

Hi,

The about jcl is correct but i doubt about

Mane Sagar · New User Joined: 12 Jul 2005 Posts: 41 Location: mumbai

Hi,

fixdoubts is very right.

It has to be
Code:
SUM FIELDS=(5,2,ZD)

Regards,
Sagar.

manyone · New User Joined: 09 Mar 2006 Posts: 9

however the sum will be truncated if it's 100 or over because it's too short. to fix it, you need

INREC FIELDS=(1,3,X,C'0000',5,2)
SORT FIELDS=(1,3,CH,A)
SUM FIELDS=(5,6,ZD)

if you want record count too (here, i made it packed) , try this

INREC FIELDS=(1,3,X,X'00001C',X,C'0000',5,2)
SORT FIELDS=(1,3,CH,A)
SUM FIELDS=(5,PD,9,6,ZD)

Frank Yaeger · Posted: Fri Mar 10, 2006 10:48 pm

Since your records are already in sorted order, you can avoid a sort, and use copy or merge which are more efficient.

Here are two ways to do this with DFSORT:

Method 1: COPY with SECTIONS and TRAILER1

vin78dotcom · New User Joined: 06 Dec 2005 Posts: 7 Location: pune

hello,
thanks for the different methods of sort and sums..
it worked for me ...but can you please let me know how to remove leading zeroes from the output summations.
e.g my output sum is coming as:000001
and i wanted just: 1 where zeroes should be replaced by spaces.
I used the COPY with SECTIONS and TRAILER1 techniques.

thnks
vinay

Frank Yaeger · Posted: Tue Nov 20, 2007 9:28 pm

With DFSORT, TO=FS does remove the leading zeros. The output would be: