Regarding SORT

[sriviji]

Hi,

I need a sort card to get the desired output.
Below is my requirement:
I have an input file in the below format
D1 D2 VALUES
002 001 -000000000009562
002 001 -000000000009562
002 002 +000000000009566
002 002 +000000000009566
002 002 -000000000006500
003 004 +000000000006500
004 005 +000000000012271

and i need the output in the below format
D1 D2 VALUES COUNT
002 001 -000000000019124 02
002 002 +000000000012632 03
003 004 +000000000006500 01
004 005 +000000000012271 01

Here the Key fields are D1 and D2. Kindly throw some light on me.
Thanks in advance for the help.

Regards,
Viji

[sriviji]

Please somebody help me out.. It is very urgent

[dbzTHEdinosauer]

Please somebody help me out.. It is very urgent

don't hold your breath

what is your sort product? DFSORT,Syncsort??

[Frank Yaeger]

You can use a DFSORT job like the following to do what you asked for. I assumed your input records are already in sorted order by the key as implied by your example. If not, you'll need to add a SORT statement.

Code: Select all

//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
002   001   -000000000009562
002   001   -000000000009562
002   002   +000000000009566
002   002   +000000000009566
002   002   -000000000006500
003   004   +000000000006500
004   005   +000000000012271
//SORTOUT DD SYSOUT=*
//SYSIN DD *
  OPTION COPY
  OUTFIL REMOVECC,NODETAIL,
    SECTIONS=(1,3,7,3,
      TRAILER3=(1,12,
        TOT=(13,16,FS,EDIT=(STTTTTTTTTTTTTTT),SIGNS=(+,-)),
        31:COUNT=(EDIT=(TT))))
/*

[sriviji]

It worked. Thanks so much Frank. you are the Master