Moving packed decimal field into a file using Easytrieve

nightbuzzz · Posted: Thu Mar 26, 2009 3:32 pm

Hi,

I need to move a packed decimal field into a file. I tried moving it by copying it into a numeric field(so that it is readable) and then moving the numeric field into the file.

But the decimal point is not getting displayed in the file. I am using easytrieve.

Please help.

Thanks!

anandinmainframe · Active User Joined: 31 May 2007 Posts: 171 Location: India

Hello,
Please post the Declaration(Working storage) part of that Field so that we can help you.

dick scherrer · Posted: Thu Mar 26, 2009 8:33 pm

Hello,

This has nothing to do with Easytrieve. . .

There is no decimal point in a packed-decimal number.

Packed-decimal values contain some number of digits and the sign - nothing else.

mtaylor · Posted: Fri Mar 27, 2009 7:22 am

nightbuzzz · Posted: Fri Mar 27, 2009 2:59 pm

Yes, It looks like easytrive doesn't allow formatting of files.

I have used an array and inserted the decimal point manually.

Thanks for your time!

nightbuzzz · Posted: Fri Mar 27, 2009 7:49 pm

Hi,

I have to get the data from a DB2 table and put it into a PS using easytrieve.

The column in DB2 table is defined as Decimal(14,2). I moved this field into a working storage numeric field (14 N 2). Now when I am moving this field into the PS file, the decimal point is not getting copied. I tried formatting it (like 999999.99), but even then the decimal point is missing in the final output.

Eg: Value in DB2 table : 1500.00
Value in the PS after copying: 150000 (decimal point is missing)

I need 1500.00 in the output file. How do I do it?

Thanks!

Craq Giegerich · Posted: Fri Mar 27, 2009 8:17 pm

dick scherrer · Posted: Fri Mar 27, 2009 11:41 pm

Hello,

Said a bit differently - you can have a packed-decimal field or you can have a decimal point.

You cannot have both in the same field.

Why do you believe there is a requirement to have a packed-decimal field with an embedded decimal point?

nightbuzzz · Posted: Mon Mar 30, 2009 11:06 am

Hi,

Let's forget about packed demical for the moment.

If I have field say W-VAR with value 145673. Now, I want to move this field into a PS file but with a decimal point.
E.g: 1456.73

How can we do this using easytrieve? I tried using masking (like 9999.99) - while displaying the field its displaying with the decimal point but when I am moving this field into the file, decimal point is not getting copied.

e.g:

Display w-var Result: 1456.73
File_field = w-var
put file_name
Result in the file : 145673

I hope my question is clear.

Thanks

dick scherrer · Posted: Mon Mar 30, 2009 8:21 pm

Hello,

You might redefine the edited field with a character (alpha) field, and move the alpha field to the output file.