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

Author Message
coria

New User

Joined: 09 Oct 2006
Posts: 36

Posted: Tue Nov 06, 2007 12:09 pm    Post subject: Convert the packed data to COMP-3

Hi All, I need a help from you,
here is the hex data:
 Code: ------- ..../i? 0000686 0000195

the value should be 618.950, it is packed data, but not COM-3 (no 'D' or 'C' ended)

how to convert this data to S9(9)V9(3) COMP-3 by using a sort step?

Thanks!

Frank Yaeger

DFSORT Moderator

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

Posted: Tue Nov 06, 2007 9:30 pm    Post subject:

 Quote: the value should be 618.950

Wouldn't the value be 618.965 rather than 618.950? If not, where did the 50 come from?

Ok, so the value is X'00000000618965'. You're correct that it's a packed data value without a sign (it's NOT binary and it's NOT PD) - it has 14 digits. DFSORT doesn't have a built-in format for a PD value without a sign.

 Quote: how to convert this data to S9(9)V9(3) COMP-3

That would be a 12 digit PD value. Note that PD values do not actually have the decimal point - it's implied. So the conversion you asked for would be from X'00000000618965' to X'000000618965C'.

To do that conversion, you need to remove the first 2 digits on the left and add a sign at the end. I assume the sign would always be positive (C) - right?

Do I understand correctly what you want?
 All times are GMT + 6 Hours
 Page 1 of 1

Search our Forum:

 Topic Author Forum Replies Posted Similar Topics How can I convert charactor to fixed ... liying DFSORT/ICETOOL 7 Tue May 22, 2018 3:35 pm Ways to share data between Cobol and ... Benchwarmer Java & MQSeries 3 Thu May 10, 2018 9:16 pm 3270 Data stream error Benchwarmer CICS 6 Tue Apr 17, 2018 12:06 am How to list data set names with diffe... murali.andaluri CLIST & REXX 10 Thu Apr 12, 2018 11:33 pm Invalid XML character while producing... nikhil.bhole IBM Tools 4 Tue Mar 20, 2018 1:24 am

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