Page 1 of 1

Getting Net amount using SORT

PostPosted: Tue May 03, 2011 3:33 pm
by djprakash1ml
Hi - Could you please suggest a way to get this output using SORT?

CR stands for credit
DR stands for debit

If a name has only one CR or one DR they should be left undisturbed and displayed as net amount.

Sample:-
=======

Name code amt
=============
AAA CR 110
AAA DR - 50
BBB CR 200
BBB DR -150
CCC CR 85
DDD DR - 50

Name netamt
==============
AAA 60
BBB 50
CCC 85
DDD -50

Regards,
David

Re: Getting Net amount using SORT

PostPosted: Tue May 03, 2011 6:41 pm
by NicC
Usual questions...LRECL, RECFM, key position, key length, multiple records of one or each type etc etc.

Re: Getting Net amount using SORT

PostPosted: Tue May 03, 2011 10:33 pm
by Frank Yaeger
David,

You can use a DFSORT job like the following to do what you asked for:

//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
AAA  CR   110
AAA  DR  - 50
BBB  CR   200
BBB  DR  -150
CCC  CR    85
DDD  DR  - 50
/*
//SORTOUT DD SYSOUT=*
//SYSIN DD *
  OPTION COPY
  OUTFIL REMOVECC,NODETAIL,
    HEADER2=('Name   netamt',/,
             '=============='),
    SECTIONS=(1,3,
     TRAILER3=(1,3,5:TOT=(9,5,SFF,EDIT=(SIIIT),SIGNS=(,-))))
/*

Re: Getting Net amount using SORT

PostPosted: Wed May 04, 2011 12:05 pm
by djprakash1ml
Thanks Frank.