Conversion of comp-3 to character

rarvins · New User Joined: 24 Jan 2007 Posts: 59 Location: Texas

I have to move a decimal ( comp -3 ) to a character(A) field and write it into a output file...But the value is not retained properly...For example if i move 22.90 to the character or alphanumeric variable , the direct move doesnt work properly...can somebody suggest a soln such that im able to get 22.90 in the character output file properly

William Thompson · Posted: Thu Feb 08, 2007 11:58 pm

What is the pic of the input and output fields?

05 a-field pic s9(5)v99 value 22.90.
05 out-field pic x(10) value space.
move a-field to out-field.
doesn't work?
try:
05 temp-field pic -9(5).99.
move a-field to temp-field.
move temp-field to out-field.
is better?

dick scherrer · Posted: Fri Feb 09, 2007 1:07 am

Hello,

It would be helpful if you post what you ARE getting rather than just saying that the move doesn't work properly. It would also help if you post what kind of output you'd like beyond just saying 22.90.

Do you want leading zeros? If the value was 2222.90 would you want a comma (2,222.90) inserted?. How do you want negatives to appear?

The more info you provide, the more we can help.

rarvins · New User Joined: 24 Jan 2007 Posts: 59 Location: Texas

hi, sorry for not providing enuf input.

What I am facing rite now.
If I have 22.90 ( S9(3)V9(2) ) in the input file, I am moving it to a character fields ( A size 8) the value 22.90 comes as some 480 and sumthing.

What I need:
I wud need to supress the leading zeros.No trailing supression is required.
I need the same input value in the output character field.

so I just want 22.90
Even if it is 2222.90 I want it as 2222.90
No more formatting is required.
In case theres is -22.90 I would need the negative sign also
So I need -22.90 in the output

Hope I havent missed out anything this time.

William Thompson · Posted: Fri Feb 09, 2007 11:00 pm

dick scherrer · Posted: Fri Feb 09, 2007 11:05 pm

Hi Rarvins,

To get what you want, please try:

William Thompson · Posted: Fri Feb 09, 2007 11:07 pm

Dick, I'm more interested in that "22.90 comes as some 480 and sumthing".....Now that's got my curiosity up....

dick scherrer · Posted: Fri Feb 09, 2007 11:14 pm

Hi Bill,

Me too, but unless/until we can see the actual result, we'll just have to wonder. . . .

I should have also mentioned that the move statement should be

William Thompson · Posted: Fri Feb 09, 2007 11:19 pm

dick scherrer · Posted: Sat Feb 10, 2007 12:42 am

Mercy,

'Tis a bad day when your mistake is that you think you made one

Don't know if i should feel better or worse. . . .

rajesh_mbt · New User Joined: 27 Mar 2006 Posts: 97 Location: India

dick scherrer · Posted: Mon Feb 12, 2007 8:19 pm

Hi Rajesh,

Please modify your solution to include a floating minus sign. What you posted will "work" but the -22.90 will be missing the '-'. Also, if you use redefinition, you will not need to move the data more than once.

If you look at a prior post in this thread, you will see code that does what Rarvins requested. Once you compare the 2 suggestions, try yours and see if you get the correct result for both positive and negative numbers.

rajesh_mbt · New User Joined: 27 Mar 2006 Posts: 97 Location: India

Hi Scherrer
Thanks for your suggestion. Is the following sound ok?

01 IN-PUT PIC 9(5)v9(2) COMP-3.
01 OUT-PUT PIC X(8).

01 IN-PUT-RES.
05 IP-TEMP PIC 9(5)V9(2).
05 IP-FMAT REDEFINE IP-TEMP PIC -ZZZZZ.99.

MOVE IN-PUT TO IP-PUT-RES.
MOVE IP-FMAT TO OUT-PUT.

DISPLAY IN-PUT.
DISPLAY OUT-PUT.

William Thompson · Posted: Tue Feb 13, 2007 2:45 pm

Rajesh,

Why don't you just move in-put to ip-fmat with out the redefined?

Bill

rajesh_mbt · New User Joined: 27 Mar 2006 Posts: 97 Location: India

Hi Bill

I am not damn sure whether we can directly move comp-3 variable to editing fields like Zero suppressed(IP-FMAT) since, the sending field(IN-PUT) value is stored as packed decimal format. Also I got some errors in my previous exp when I did the same. Hence, I firstly moved it to decimal variable(IP-TEMP) which is moved later to output field.

MOVE IN-PUT TO IP-TEMP.
MOVE IP-FMAT TO OUT-PUT.

William Thompson · Posted: Tue Feb 13, 2007 3:44 pm

Trust me on this, move the comp-3 field directly to the edit field, no redef, just directly, it is now edited, move the edit field anywhere you want (except to a numeric field). I am 'dang sure' that is all you need.

dick scherrer · Posted: Tue Feb 13, 2007 8:28 pm

Hello,

Please review my earlier post and do the redefine that way. You will get the editing needed and will have an x(8) field that is easier to move around or string.

umasankar.eee06 · New User Joined: 04 Sep 2008 Posts: 11 Location: chennai

Hi,
I have a filed in my inputfile declared as s9(5)v99 comp-3. I read that file and moved to copy book declared as same at the same time I moved that filed to as variable declared with same notation and displayed that filed but i didt got the exact value.

value is 1143.85 but it displayed as 000 011.
Can any one help me. Thios is urgent I need to solve it by 5pm today.

Thanks

umasankar.eee06 · New User Joined: 04 Sep 2008 Posts: 11 Location: chennai

Sorry to every one rather than answer his question I asked my doubt.

Thanks

Anuj Dhawan · Posted: Fri Sep 05, 2008 7:44 pm

Hi,