IBM Mainframe Forum

by **Quasar** » Thu May 10, 2012 10:39 am

Hi everyone,

I have written a job, to sum up the sales-figures in the following data. But it simply doesn't sum up numbers. Could you help me figure out what's going wrong?

Select all

//STUDENTA JOB A123,'BIN-7 QUASAR',CLASS=A,MSGCLASS=Y,NOTIFY=&SYSUID
//SUM01 EXEC PGM=SORT,PARM='OVFLO=RC4'
//SORTIN DD *
QUASAR SHABBIR CHUNAWALA MAHARASHTRA 01000
NEHA LAXMAN RAWAT UTTARAKHAND 02000
JINAL JAGADISH PATEL GUJARAT 03000
SHASHIKANT PATEL GUJARAT 04000
DINESH BABU TAMIL NADU 05000
/*
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=(01,37,CH,A)
SUM FIELDS=(38,05,ZD)
/*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*

Here's the output in //SORTOUT :

Select all

SDSF OUTPUT DISPLAY STUDENTA JOB02337 DSID 103 LINE 0 COLUMNS 02- 81
COMMAND INPUT ===> SCROLL ===> PAGE
********************************* TOP OF DATA **********************************
DINESH BABU TAMIL NADU 05000
JINAL JAGADISH PATEL GUJARAT 03000
NEHA LAXMAN RAWAT UTTARAKHAND 02000
QUASAR SHABBIR CHUNAWALA MAHARASHTRA 01000
SHASHIKANT PATEL GUJARAT 04000
******************************** BOTTOM OF DATA ********************************

Here's the SYSOUT Listing :

Select all

ICE143I 0 BLOCKSET SORT TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AN
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 23:55 ON WED MAY
SORT FIELDS=(01,37,CH,A)
SUM FIELDS=(38,05,ZD)
ICE201I 0 RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-BASE C6-BASE C7-BASE C8-Q83041 E9-BASE C9-BASE E5-Q90312
ICE193I 0 ICEAM1 ENVIRONMENT IN EFFECT - ICEAM1 INSTALLATION MODULE SELECTED
ICE088I 1 STUDENTA.SUM01 . , INPUT LRECL = 80, BLKSIZE = 80, TYPE = FB
ICE093I 0 MAIN STORAGE = (MAX,6291456,6278238)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (6217712,6217712)
ICE127I 0 OPTIONS: OVFLO=RC4 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y,
ICE128I 0 OPTIONS: SIZE=6291456,MAXLIM=1048576,MINLIM=450560,EQUALS=N,LIST=Y,ERE
ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=NO ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=
ICE130I 0 OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT=
ICE131I 0 OPTIONS: TMAXLIM=6291456,ARESALL=0,ARESINV=0,OVERRGN=65536,CINV=Y,CFW=
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE ,EXITC
ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMI
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE084I 0 BSAM ACCESS METHOD USED FOR SORTOUT
ICE084I 0 BSAM ACCESS METHOD USED FOR SORTIN
ICE750I 0 DC 500000 TC 0 CS DSVUU KSZ 37 VSZ 37
ICE752I 0 FSZ=6250 RC IGN=0 E AVG=80 0 WSP=650 C DYN=0 0
ICE751I 1 DE-Q82816 D5-Q84357 D9-Q91626 E8-Q91626
ICE090I 0 OUTPUT LRECL = 80, BLKSIZE = 80, TYPE = FB
ICE080I 0 IN MAIN STORAGE SORT
ICE055I 0 INSERT 0, DELETE 0
ICE054I 0 RECORDS - IN: 5, OUT: 5
ICE134I 0 NUMBER OF BYTES SORTED: 400
ICE199I 0 MEMORY OBJECT STORAGE USED = 0M BYTES
ICE180I 0 HIPERSPACE STORAGE USED = 0K BYTES
ICE188I 0 DATA SPACE STORAGE USED = 0K BYTES
ICE052I 0 END OF DFSORT

by **BillyBoyo** » Thu May 10, 2012 11:39 am

Nicely presented, as usual.

SUM doesn't work the way you think. It adds up where duplicate keys exist. Your keys are unique, so nothing to add.

You need to look at the reporting functions of DFSORT. For example, TRAILER1 with TOT is probably what you really want.

by **Nik22Dec** » Thu May 10, 2012 4:31 pm

Hey,

Problem very well presented. I am giving you a sample code. Try manipulating it & I am sure you will be able to modify it to suit your requirements.

Select all

//SORTIN DD *
A 1
B 2
C 3
D 4
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL FNAMES=SORTOUT,
OUTREC=(1:1,5,30X),
TRAILER1=(1:'TOTAL : ',TOT=(3,1,ZD))

The output should look like this -

Select all

A 1
B 2
C 3
D 4
TOTAL : 10

All the Best!!

IBM Mainframe Forum

Not able to sum up numbers

Not able to sum up numbers

Re: Not able to sum up numbers

Re: Not able to sum up numbers