# SYNCSORT add the values for Decimal using SUM fields

Author Message
callkris_cit

New User

Joined: 22 Apr 2006
Posts: 44

 Posted: Sun Oct 21, 2007 12:01 am Hi Guys,= I have a input file Name Points Krishnan -20.22 Krishnan -20.24 kanthan +20.44 I want to add the points if names are same, so i tried with below option SORT FIELDS=(1,8,CH,A) SUM FIELDS=(9,6,ZD) But i am getting the abend. Please let me know what i need to specified instead of ZD
dick scherrer

Moderator Emeritus

Joined: 23 Nov 2006
Posts: 19245
Location: Inside the Matrix

 Posted: Sun Oct 21, 2007 1:30 am Hello, The abend is because the "numbers" are not ZonedDecimal. Instead of ZD, try SFF.
krisprems

Active Member

Joined: 27 Nov 2006
Posts: 649
Location: India

 Posted: Sun Oct 21, 2007 7:58 am callkris_cit You have shown how the i/p looks like, if need any help also show how the o/p should look like?
Aaru

Senior Member

Joined: 03 Jul 2007
Posts: 1287
Location: Chennai, India

Posted: Mon Oct 22, 2007 11:42 am

callkris_cit,

Use this JCL for your requirement

 Code: // EXEC PGM=ICEMAN                                                    //SORTIN DD *                                                        KRISHNAN -20.22                                                      KRISHNAN -20.24                                                      KANTHAN  +20.44                                                      /*                                                                    //SORTOUT DD SYSOUT=*                                                //SYSOUT DD SYSOUT=*                                                  //SYSIN DD *                                                           INREC OVERLAY=(10:10,6,SFF,TO=ZD,LENGTH=6)                           SORT FIELDS=(1,8,CH,A)                                               SUM FIELDS=(10,6,ZD)                                                 OUTREC OVERLAY=(10:10,6,ZD,EDIT=(STTT.TT),SIGNS=(,-))                /*

output:

 Code: KANTHAN   020.44 KRISHNAN -040.46
krisprems

Active Member

Joined: 27 Nov 2006
Posts: 649
Location: India

Posted: Mon Oct 22, 2007 12:20 pm

callkris_cit
Also you could do the same using sections, like this:
 Code: //********************************************************************  //S1       EXEC  PGM=ICEMAN                                              //SYSOUT   DD  SYSOUT=*                                                  //SORTIN   DD *                                                          KRISHNAN  -20.22                                                        KRISHNAN  -20.24                                                        ----+----1----+----2----+----3----+----4----+----5----+----6----+----7-- KANTHAN   +20.44                                                        /*                                                                      //SORTOUT  DD SYSOUT=*                                                  //SYSIN    DD    *                                                        SORT FIELDS=(1,10,CH,A)                                                  OUTFIL REMOVECC,NODETAIL,                                                  SECTIONS=(1,10,                                                            TRAILER3=(1,10,11:TOT=(11,6,SFF,EDIT=(STTT.TT),SIGNS=(+,-))))      /*
callkris_cit

New User

Joined: 22 Apr 2006
Posts: 44

 Posted: Sun Oct 28, 2007 10:15 am I will try and let you know
krunal7757

New User

Joined: 01 Sep 2021
Posts: 6
Location: INdia

 Posted: Wed Sep 01, 2021 7:48 am can you help how to use SUM fiedls for a file having Datatype as S9(8)V99 - also the output file shld maintain the signed bits my file has below in amount fields Amount from position 17 Length 10 20210823D0000000000210566HKRUNAL7757 20210823D0000000000177967EKRUNAL7758 20210823D0000000000126824BKRUNAL7757 20210823D0000000000462786IKRUNAL7758 20210823D0000000000642776CKRUNAL7757 Please help this is little urgent i tried SFF TO ZD but out file does not shows the values same as input file. Kindly guide if this is possible or i have to use cobol program
Joerg.Findeisen

Active Member

Joined: 15 Aug 2015
Posts: 607
Location: Bamberg, Germany

 Posted: Wed Sep 01, 2021 11:17 am @krunal7757: Do NOT hijack year old posts, start a new topic if needed. This topic here should be locked.
Rohit Umarjikar

Global Moderator

Joined: 21 Sep 2010
Posts: 2771
Location: NYC,USA

 Posted: Wed Sep 01, 2021 7:38 pm locked.
 View Bookmarks All times are GMT + 6 Hours

 Topic Forum Replies Similar Topics Converting unpacked fields to pack us... SYNCSORT 4 Arithmetic division using Syncsort SYNCSORT 6 How to move values from single dimens... COBOL Programming 1 SUM based on two conditions using SYN... SYNCSORT 7 check if two PD values are equal, no ... DFSORT/ICETOOL 4
Search our Forums: