Convert COMP-3 into readable format

surya anem · New User Joined: 20 Dec 2007 Posts: 54 Location: Hyderabad

How do i display a comp-3 variable in readable format in COBOL

murmohk1 · Posted: Fri Dec 21, 2007 1:59 pm

Surya,

surya anem · New User Joined: 20 Dec 2007 Posts: 54 Location: Hyderabad

in COBOL.

murmohk1 · Posted: Fri Dec 21, 2007 2:39 pm

surya,

Chech this -
www.ibmmainframes.com/viewtopic.php?t=26892&highlight=readable

agkshirsagar · Posted: Fri Dec 21, 2007 2:44 pm

Have you tried DISPLAY statement? What was the result?
If not how about trying it and let us know about it..?
Murali,
The link you provided is to convert COMP-3 to DISPLAY I guess. If I got his question correctly, then DISPLAY stmt should help him achieving what he wanted.

murmohk1 · Posted: Fri Dec 21, 2007 2:48 pm

Abhijit,

Thanks for highlighting my error.

May be i missed out the 'display' word. Weekdend mood. Cant help it.

surya anem · New User Joined: 20 Dec 2007 Posts: 54 Location: Hyderabad

Yeah i tried that. But it was not displaying the sign if i have one.

ex: if the input is -40 it is not displaying. How to do that.
I tried to move that to edited picture clause +s9(4) but it was giving an s0c7 abend.

And one more thing it is not HE it is SHE

agkshirsagar · Posted: Fri Dec 21, 2007 3:39 pm

Ok. COMP-3 sign will be last nibble that is why you are facing problem.

See the below table to interpret values -

surya anem · New User Joined: 20 Dec 2007 Posts: 54 Location: Hyderabad

That is what i did and i got an SOC7 abend when i am trying to move that comp-3 variable to edited pic clause -s9(4).

And thats ok...it was not your mistake abt the name

agkshirsagar · Posted: Fri Dec 21, 2007 5:28 pm

-s9(4) is not a valid picture clause change it to -9(04). First I had thought it was a typo in your post.
And I don't think you will get S0C7 on move statement.

ksk · Posted: Fri Dec 21, 2007 5:42 pm

Hi Surya,

Declare as hsown below.

01 VAR1 PIC S9(05) COMP-3.
01 VAR2 PIC -9(05).

and MOVE Var1 to var2. Sign also will be displayed in VAR2.

KSK

ksk · Posted: Fri Dec 21, 2007 5:43 pm

Hi, I forgot to mention one thing. I have defined Var1 and Var2 with PIC 5 as an example.

Mohankalyan99 · New User Joined: 06 Apr 2005 Posts: 16

Hi,

I tried to display comp-3 var, but it is failing.

here is my flow:

A PIC S9(10)V99 COMP-3
B PIC -9(10)V99.

MOVE A TO B
DISPLAY B.

It is not displaying anything. it is giving SOC7.
And before doing this i displayed the comp-3 var directly as DISPLAY A.
It displayed like this :000004040404.

Can you suggest how can i display that variable.

Thanks
Kalyan.

mmwife · Super Moderator Joined: 30 May 2003 Posts: 1592

Hi Kalyan,

How did you get the comp-3 data into the A variable?

Craq Giegerich · Posted: Wed Jan 16, 2008 4:52 am

sdsinfo · New User Joined: 14 Jan 2008 Posts: 10 Location: bangalore

Hi , Surya

you move your data to s9(10)v99 , i will be successful..

ousep143 · New User Joined: 06 Oct 2007 Posts: 32 Location: India

Hi
if u get '000004040404' on comp-3 variable,no value in that variable.
first u manually move data into the comp-3 variable and try it.Ok

Regards

Mohankalyan99 · New User Joined: 06 Apr 2005 Posts: 16

I received comp-3 data in a file and i'm trying to read that and insert into a table.

One more point, Can this be possible moving the data from a S9(10)V99 comp-3 variable to a S9(07)V99 comp-3 variable ?

Thanks
Kalyan