Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref

Author Message
newbie

New User

Joined: 05 Nov 2005
Posts: 12

Posted: Wed Feb 10, 2010 1:19 am    Post subject: Dfsort to Sum Total - HELP!!!

PIC S9(07)V99

 Code: {00000027M {00001680B

I'm trying to sum up the amount but kept getting my output as:
TOTAL=+0000000.01

Here's my JCL:

 Code: //SYSIN     DD *     OPTION COPY     OUTFIL REMOVECC,NODETAIL,     TRAILER1=('TOTAL=',TOT=(158,09,ZD,EDIT=(STTTTTTT.TT),SIGNS=(+,-)))

What am I doing wrong?

Frank Yaeger

DFSORT Moderator

Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

Posted: Wed Feb 10, 2010 2:30 am    Post subject:

You're using 158,9,ZD and you show you have PIC S9(07)V99 which is 9 ZD digits, but then you show your input as:

 Code: {00000027M {00001680B

which is 10 characters, not 9. If the { starts in positions 158, then the values are interpreted as:

 Code: {00000027 =   27 {00001680 = 1680

so the total is 1707 and DFSORT gives the following output:

 Code: TOTAL=+0000017.07

On the other hand, if 158 starts at the position after the { then the values are interpreted as:

 Code: 00000027M =   -274 00001680B =  16802

so the total is 16528 and DFSORT gives the following output:

 Code: TOTAL=+0000165.28

Since you say you got:

 Code: TOTAL=+0000000.01

I can take an educated guess that you're using a RECFM=VB input file, but you didn't account for the RDW in positions 1-4. In that case, you should be using 162 as the starting position rather than 158.
newbie

New User

Joined: 05 Nov 2005
Posts: 12

 Posted: Wed Feb 10, 2010 3:18 am    Post subject: OMG!!! I was going crazy. I didn't realize that my file was VB. The code was working for me 2 weeks ago, but today was not a good day. The file I was using before was a FB. Thanks so much!!!. Btw, my input was this: 00000027M = -274 00001680B = 16802 Once again...thanks Frank!!!
Frank Yaeger

DFSORT Moderator

Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

 Posted: Wed Feb 10, 2010 3:36 am    Post subject: An all too common mistake. Glad I could help.
 All times are GMT + 6 Hours
 Page 1 of 1

Search our Forum:

 Topic Author Forum Replies Posted Similar Topics Join records from 2 files with No Dup... Poha Eater DFSORT/ICETOOL 21 Sun Aug 27, 2017 10:35 pm DSNACCOX (can it be run on 1 db/ts, t... SRICOBSAS DB2 5 Sat May 06, 2017 12:59 am DFSORT - Overriding default option TU... Steve Ironmonger DFSORT/ICETOOL 3 Tue Apr 04, 2017 3:54 pm DFSORT MUL FIELDS tspr52 DFSORT/ICETOOL 16 Fri Mar 03, 2017 11:53 pm How to get the remainder and quotient... vnktrrd DFSORT/ICETOOL 2 Mon Oct 31, 2016 10:59 am

 © 2003-2017 IBM MAINFRAME Software Support Division
 Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us