MVSFORUMS.com

shuko · Beginner Joined: 08 Nov 2005 Posts: 73 Topics: 20

I have a FB file with lrecl=2562 and I have a COMP-2 value in position 2403
in this file.How can I copy this file to a new file, but now by converting the COMP-2 to an Integer without losing decimal places and signs.

Thank you for any help

Nic Clouston · Posted: Fri Mar 30, 2007 4:01 am Post subject:

an integer is a WHOLE number i.e. no decimals so you will lose your decimals. however you can convert by multiplying by 10 or 100 or 1000... eg 1.23 * 100 = 123
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.

Frank Yaeger · Posted: Fri Mar 30, 2007 11:19 am Post subject:

comp2 is an 8-byte FL (hexadecimal floating point) value. DFSORT can convert an FL value to a signed integer, but you will lose the decimal places. See:

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

for details on converting FL values to integer values.
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

samlwho · Beginner Joined: 08 Feb 2007 Posts: 21 Topics: 2

Shoko,

If my understanding of COMP-2 is correct then this should do what you need. Due to the unpacking of the $ field your output file will be larger.

M18 looks like this: SI,III,III,III,IIT.TT

Leading zeroes will be suppressed, positive numbers will not have a sign while negative numbers will have a leading negative sign and the decimal will be displayed for all amounts.

Hope this helps.

Frank Yaeger · Posted: Fri Mar 30, 2007 2:38 pm Post subject:

samlwho · Beginner Joined: 08 Feb 2007 Posts: 21 Topics: 2

Thanks for the link Frank.

Question.

Knowing 705.50 (Comp-3) looks like this in Hex:

kolusu · Posted: Fri Mar 30, 2007 4:26 pm Post subject:

samlwho,

Comp-1 or comp-2 have the sign in the leftmost bit and the next 7 bits contain the exponent; the remaining 3 or 7 bytes contain the mantissa. COMP-1 and COMP-2 data items are stored in z900 hexadecimal format.

check this link for internal reprenstation of all COMP data

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IGY3PG10/1.3.4.7?DT=20020923143836

705.50 is stored as

samlwho · Beginner Joined: 08 Feb 2007 Posts: 21 Topics: 2

Thanks for the knowledge.

Frank Yaeger · Posted: Fri Mar 30, 2007 4:35 pm Post subject:

And if you run that hexadecimal value through this DFSORT statement: