how to convert fixed-point data format to decimal

Roland Brosio · New User Joined: 26 Jul 2013 Posts: 7 Location: Germany

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

Bill Woodger · Posted: Mon Mar 16, 2015 7:12 pm

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.

Roland Brosio · New User Joined: 26 Jul 2013 Posts: 7 Location: Germany

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.

Bill Woodger · Posted: Mon Mar 16, 2015 8:12 pm

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.

Roland Brosio · New User Joined: 26 Jul 2013 Posts: 7 Location: Germany

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 ) +