IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

How a change a sign of a packed decimal value in a dataset


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
rohit_raajin

New User


Joined: 10 May 2005
Posts: 10
Location: india

PostPosted: Tue May 06, 2008 12:35 pm
Reply with quote

I have a requiremnt as to change the sign of a packed decimal S9(7)V99 where it can have values like -100.23. I need to change the sign of this value to '+100.23'
I have these in a dataset and there are more than 1000 records in it.

Can anyone suggest me how to do this? It would be preferable if we can do this through JCL.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Tue May 06, 2008 1:32 pm
Reply with quote

Hello,

Quote:
I have a requiremnt as to change the sign of a packed decimal S9(7)V99 where it can have values like -100.23
If the data actually contains "-100.23", it is not packed decimal. . .
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


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

PostPosted: Tue May 06, 2008 10:07 pm
Reply with quote

rohit_raajin,

S9(7)V99 is a 4-byte PD value (it does NOT contain the decimal point internally). If you want to change all minus values to plus values, you can use these DFSORT control statements where p is the starting position of the 4-byte PD field:

Code:

    OPTION COPY
    INREC IFTHEN=(WHEN=(p,4,PD,LT,0),
       OVERLAY=(p:p,4,PD,MUL,-1,TO=PD,LENGTH=4))
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts Binary File format getting change whi... All Other Mainframe Topics 7
No new posts Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
No new posts FINDREP - Only first record from give... DFSORT/ICETOOL 3
No new posts Map Vols and Problem Dataset All Other Mainframe Topics 2
No new posts Allocated cylinders of a dataset DB2 12
Search our Forums:

Back to Top