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
 

 

Need help in converting ZD +ve value to ZD -ve value

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

New User


Joined: 19 Aug 2010
Posts: 47
Location: Hyderabad

PostPosted: Tue Oct 12, 2010 8:02 pm    Post subject: Need help in converting ZD +ve value to ZD -ve value
Reply with quote

Hi All,

I have a value in my input file as shown below.

0003200
0000234
0001025

i want to convert the above data to -ve ZD format as shown below using sort/icetool.

000320}
000023M
000102N

( } = -1 ; M = -4 ; N = -5 )

Could any one please shed some light on this.

Thanks,
RBC.
Back to top
View user's profile Send private message

Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Tue Oct 12, 2010 8:14 pm    Post subject:
Reply with quote

Multiply by "-1" ? icon_neutral.gif

Code:
//STEP001  EXEC PGM=SORT                     
//SORTIN DD *                                 
0003200                                       
0000234                                       
0001025                                       
//SORTOUT DD SYSOUT=*                         
//SYSIN DD *                                 
  OPTION COPY                                 
  INREC BUILD=(-1,MUL,01,07,SFF,ZD,LENGTH=07)
//SYSOUT DD SYSOUT=*                         
//*                                           


output:
Code:
000320}
000023M
000102N
Back to top
View user's profile Send private message
Rambhupalchowdary

New User


Joined: 19 Aug 2010
Posts: 47
Location: Hyderabad

PostPosted: Tue Oct 12, 2010 8:18 pm    Post subject: Reply to: Need help in converting ZD +ve value to ZD -ve val
Reply with quote

Thanks Anuj,

I have not used SFF, thats why it didnt work properly.

Thanks a lot.
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Tue Oct 12, 2010 8:20 pm    Post subject:
Reply with quote

Hope, you got it working now - Good Luck. icon_smile.gif
Back to top
View user's profile Send private message
Rambhupalchowdary

New User


Joined: 19 Aug 2010
Posts: 47
Location: Hyderabad

PostPosted: Wed Oct 13, 2010 10:58 am    Post subject: Reply to: Need help in converting ZD +ve value to ZD -ve val
Reply with quote

Anuj,

Could you let me know the usage of SFF, where can we use this?

Thanks,
Ram.
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Wed Oct 13, 2010 3:44 pm    Post subject:
Reply with quote

See here ftp://ftp.software.ibm.com/storage/dfsort/mvs/sortpdug.pdf and search for SFF.
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: Wed Oct 13, 2010 10:17 pm    Post subject:
Reply with quote

RBC,

Appendix C.2 of "z/OS DFSORT Application Programming Guide" shows where the various DFSORT data formats can be used:

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA50/C.2?DT=20100630155256
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 DB2 query Using Recursion, Converting... smilewithashu2 DB2 1 Tue Jan 03, 2017 12:50 pm
No new posts Converting multiple VB files to FB fi... Viswanath Reddy JCL & VSAM 6 Mon Aug 08, 2016 11:49 pm
No new posts Converting NULL column into NOT NULL ... Raghu navaikulam DB2 5 Sat Aug 06, 2016 3:45 pm
No new posts Converting EBCDIC to Unicode (TimeStamp) muralikrishnan_new COBOL Programming 2 Mon Jul 25, 2016 10:42 pm
No new posts Converting field from char to number danylele74 DB2 4 Tue Mar 29, 2016 4:24 pm


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