Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
How to handle the sign bit for ZD values

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
kratos86

Active User


Joined: 17 Mar 2008
Posts: 148
Location: Anna NGR

PostPosted: Fri Sep 18, 2009 3:56 pm    Post subject: How to handle the sign bit for ZD values
Reply with quote

Hi,
i have a requirement to sum the total and write the o/p

i/p file is
Code:
00000000000010A
00000000000012M


o/p if the total is negative
Code:
00000000000002L


o/p if the total is positive
Code:
00000000000007G


but the o/p i recieve is not handling the sign values
Code:
000000000000023
000000000000077


code i used is
Code:
OUTFIL FNAMES=SYSUT2,NODETAIL,REMOVECC,             
TRAILER1=(1:TOT=(02,15,ZD,EDIT=(TTTTTTTTTTTTTTT)))


pls. assist me...
Back to top
View user's profile Send private message

Frank Yaeger

DFSORT Moderator


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

PostPosted: Fri Sep 18, 2009 9:30 pm    Post subject:
Reply with quote

It's handling the sign exactly as you told it to (not at all). EDIT=(TTTTTTTTTTTTTTT) does not contain a sign. If you want the total to be ZD values with a C sign for plus and a D sign for minus, use these DFSORT statements:

Code:

  OPTION COPY                                         
  OUTFIL FNAMES=SYSUT2,NODETAIL,REMOVECC,             
   TRAILER1=(1:TOT=(02,15,ZD,TO=ZDC,LENGTH=15))       
Back to top
View user's profile Send private message
kratos86

Active User


Joined: 17 Mar 2008
Posts: 148
Location: Anna NGR

PostPosted: Wed Sep 23, 2009 8:54 pm    Post subject:
Reply with quote

Thanks Frank, it worked icon_biggrin.gif
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Subtract the ZD fields to provide neg... Balaryan DFSORT/ICETOOL 4 Wed Oct 11, 2017 10:51 pm
No new posts Extend the decimal values in DIVISION Balaryan DFSORT/ICETOOL 3 Thu Oct 05, 2017 4:05 pm
No new posts display the sign only if the value is... useit DFSORT/ICETOOL 3 Wed Oct 04, 2017 5:53 pm
No new posts Working with hex values in Filemanage... Emile Straker IBM Tools 0 Tue Sep 12, 2017 1:42 am
No new posts Hardcoded negative sign value in output scdinesh SYNCSORT 8 Fri Sep 08, 2017 5:28 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us