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

how to convert fixed-point data format to decimal


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Roland Brosio

New User


Joined: 26 Jul 2013
Posts: 7
Location: Germany

PostPosted: Mon Mar 16, 2015 6:16 pm
Reply with quote

I want to convert fixed-point data to decimal data.
I am using the following statements:

Code:
//SORT     EXEC PGM=SORT     
//SORTIN   DD *               
    MC  IZT7  H           MCTEST01     
0000DC44CEEF44C44444444444DCECEEFF40000
000A4300993700800000000000433523010000B
---------------------------------------
    MC  IZT7  H           MCTEST02     
0000DC44CEEF44C44444444444DCECEEFF40000
000A4300993700800000000000433523020000A
---------------------------------------
    MC  IZT7  H           MCTEST03     
0000DC44CEEF44C44444444444DCECEEFF40000
000A4300993700800000000000433523030000C
//SORTOUT  DD DSN=DCOLLECT.SMSDATA.MGMTCLAS,         
//            DISP=(,CATLG)                                 
//SYSOUT   DD SYSOUT=*                                       
//SYSIN    DD *                                             
  SORT     FIELDS=(27,8,CH,A)                               
  INREC    FINDREP=(IN=X'00',OUT=X'40')                     
  INCLUDE  COND=(05,02,CH,EQ,C'MC',AND,                     
                 27,06,CH,EQ,C'MCTEST')                     
  OUTFIL   CONVERT,                                         
  OUTREC=(01:C'./ ADD NAME=',27,8,80:X,/,                   
          01:C'MGMTCLAS(',27,8,C') +',80:X,/,               
          01:C'EXPNOUSE(',36,4,FI,C') +',80:X)   
//                                                       


This is the Result:
Code:
./ ADD NAME=MCTEST01     
MGMTCLAS(MCTEST01) +     
EXPNOUSE(1077952523 ) + 
./ ADD NAME=MCTEST02     
MGMTCLAS(MCTEST02) +     
EXPNOUSE(1077952522 ) + 
./ ADD NAME=MCTEST03     
MGMTCLAS(MCTEST03) +     
EXPNOUSE(1077952524 ) +


Which Statement can I use to get decimal data?
Thanks for your help.

Code'd
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7311
Location: Inside the Matrix

PostPosted: Mon Mar 16, 2015 7:12 pm
Reply with quote

I'm not sure what you mean.

This, 36,4,FI, took a four-byte signed binary value and converted it it to zoned-decimal.

If that is not what you want, can you explain what you do want and give some "expected output" for your input data.
Back to top
View user's profile Send private message
Roland Brosio

New User


Joined: 26 Jul 2013
Posts: 7
Location: Germany

PostPosted: Mon Mar 16, 2015 7:29 pm
Reply with quote

hello Bill,
thank you for the answer.
I don't want a zoned-decimal result.

The result I expect is the following:

./ ADD NAME=MCTEST01
MGMTCLAS(MCTEST01) +
EXPNOUSE(0011) +
./ ADD NAME=MCTEST02
MGMTCLAS(MCTEST02) +
EXPNOUSE(0010) +
./ ADD NAME=MCTEST03
MGMTCLAS(MCTEST03) +
EXPNOUSE(0012) +

When I am using rexx with this function.
dmcexpdy = x2d(c2x(substr(dcoll.i,221,4)))
I get the expected result.
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7311
Location: Inside the Matrix

PostPosted: Mon Mar 16, 2015 8:12 pm
Reply with quote

Yes, but in your Rexx you didn't change all the binary zeros to spaces first.

1077952523 is equal to X'4040400B'.

You used FINDREP to change all X'00' to X'40'. I don't know why you did that, but if you hadn't done it, you'd get the results matching your expected results except for the blank in front of the closing parenthesis. Try using BI (unsigned) instead of FI for that.
Back to top
View user's profile Send private message
Roland Brosio

New User


Joined: 26 Jul 2013
Posts: 7
Location: Germany

PostPosted: Mon Mar 16, 2015 8:47 pm
Reply with quote

hello Bill,
thank you,
that's it.
I changed the findrep to
INREC FINDREP=(INOUT(X'00',X'40'),STARTPOS=016,ENDPOS=026)
now I get a correct result:
EXPNOUSE( 11 ) +
EXPNOUSE( 10 ) +
EXPNOUSE( 12 ) +
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 -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
No new posts Secondary index error while loading d... IMS DB/DC 2
No new posts Converting a file from PD to display ... SYNCSORT 4
No new posts HOW TO OVERLAY A Packed decimal VALUE... DFSORT/ICETOOL 5
No new posts SKIP LOCKED DATA in UPDATE statement DB2 9
No new posts How to find which file contains my se... DFSORT/ICETOOL 6
Search our Forums:

Back to Top