Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups 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 Check Binary Values for symbols gandikk CA Products 3 Tue Mar 21, 2017 5:11 am
No new posts To display values of multiple rows in... vinu78 DB2 2 Thu Mar 09, 2017 1:20 pm
No new posts Replacing same string with different ... vickey_dw DFSORT/ICETOOL 6 Wed Feb 22, 2017 10:44 pm
No new posts setting new limit Key values for inde... srilata83 DB2 1 Fri Feb 10, 2017 9:24 pm
No new posts Remove junk values in a file and rite... KP1125 DFSORT/ICETOOL 2 Wed Jan 25, 2017 9:58 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us