Sum Fields

In this Mainframe Forum - You can post your queries on DFSORT, ICETOOL , SyncSort & JCL Utilities

Moderators: Frank Yaeger, Moderator Group

Post Reply
pawan.konduru
Member
Posts: 13
Joined: Mon Feb 17, 2014 11:35 am
Location: Hyderabad

Sum Fields

Post by pawan.konduru » Wed Oct 01, 2014 10:27 pm

Hi,

I have a requirment 1 to 10 is the Key and to have sum fields on 30 to 43 position, should consider +,-

here is the input file

08CD339913 B020097804USD1 S 00000000400000000+
08CD339913 B09300BA03USD0 O 00000000200000000-
08CD339913 B093000776USD0PD 00000000200000000+
08CD340313 B020077087USD1 S 00000001000000000+
08CD340313 B09300BA03USD0 O 00000000500000000-
08CD340313 B093000776USD0PD 00000000500000000+
08CD352613 B020103420USD1 S 00000000200000000+
08CD352613 B09300BA03USD0 O 00000000100000000-
08CD352613 B093000776USD0PD 00000000100000000+

i need to sum the values for the similar Keys. and the output should be as below

08CD339913 B020097804USD1 S 00000000400000000+
08CD340313 B020077087USD1 S 00000001200000000+
08CD352613 B020103420USD1 S 00000000250000000+

can any one tell me the sort card for this.

Thanks in advance
Pawan K

William Collins
Active Member
Posts: 732
Joined: Thu May 24, 2012 4:07 am

Post by William Collins » Wed Oct 01, 2014 11:26 pm

Use INREC to convert to ZD, use OUTREC to convert back to your separate signs using an EDIT.

pawan.konduru
Member
Posts: 13
Joined: Mon Feb 17, 2014 11:35 am
Location: Hyderabad

Post by pawan.konduru » Wed Oct 01, 2014 11:43 pm

here if i use 00000000400000000+

17 length it is showing "INVALID SUM DATA FIELD "
Pawan K

pawan.konduru
Member
Posts: 13
Joined: Mon Feb 17, 2014 11:35 am
Location: Hyderabad

Post by pawan.konduru » Wed Oct 01, 2014 11:57 pm

INREC FIELDS=(1:1,30,31:31,17,ZD)
SORT FIELDS=(3,9,CH,A),EQUALS
SUM FIELDS=(31,17,ZD),XSUM
Pawan K

William Collins
Active Member
Posts: 732
Joined: Thu May 24, 2012 4:07 am

Post by William Collins » Thu Oct 02, 2014 1:05 am

Because you haven't converted to ZD, you've just said it's ZD, which it isn't.

Post Reply

FREE TUTORIALS

Tutorials
Free tutorials from mainframegurukul
  • JCL Tutorial
    Covers all important JCL concepts.
  • Cobol Tutorial
    This tutorials covers all Cobol Topics from STRING to COMP-3.
  • DB2 Tutorial
    DB2 Tutorial focuses on DB2 COBOL Programming.
  • SORT Tutorial
    This Tutorial covers all important aspects of DFSORT with examples
  • CICS Tutorial
    This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions



Other References
Mainframe Tools and others