MVSFORUMS.com

[shuko]

I have an FB file with LRECL= 2562 and Amount 8 bytes in position
2403-2410. My requriement is to copy this file as it is with only the amount
reversed. If the amount is 100 then the output file should have -100
and for -100 the the amount to be 100
The amount starts in position 2403.

[code:1:236fd2fa63]
--+----1----+----2----+----3--
******************************
AMOUNT

[Frank Yaeger]

COMP-2 is an 8-byte floating point value. Are you asking if you can reverse the sign of a COMP-2 value to create another COMP-2 value?

If so, the sign of a COMP-2 value is indicated by its first bit (bit 0) - 0 for positive or 1 for negative. So to reverse the sign, you need to flip the first bit. If it's 1, change it to 0. If it's 0, change it to 1. Here's a DFSORT job that does that:

[shuko]

Thank you Frank. Exactly what I needed.
This raises another question. Is it possible to convert this Amount in a readable form with the + or - sign just to compare the original files before conversion and after?
Output is FB file with LRECL= 2562 and Amount starting position 2403

[Frank Yaeger]

Here's a DFSORT job that will display the FL values as integer values (note that you will lose the decimal places but this should be good enough for your purpose).

You'll need z/OS DFSORT V1R5 PTF UK90007 or DFSORT R14 PTF UK90006 (April, 2006) in order to use DFSORT's FL display function. If you don't have the April, 2006 PTF, ask your System Programmer to install it (it's free). For complete details on all of the new DFSORT and ICETOOL functions available with the April, 2006 PTF, see:

www.ibm.com/servers/storage/support/software/sort/mvs/peug/

[shuko]

Thank you,once again Frank. Just perfect.