Movement of alphanumeric data to numeric

sandy_venkat · New User Joined: 16 May 2007 Posts: 35 Location: India

Hi Guys,

I checked out the previous posts of alpha numeric to numeric moves etc. I am getting a peculiar output for a small cobol pgm. Could someone help me out here.

My Code:

Aaru · Posted: Wed Oct 24, 2007 4:20 pm

sandy,

ksk · Posted: Wed Oct 24, 2007 4:21 pm

What is the output you are getting? Post the same here.

sandy_venkat · New User Joined: 16 May 2007 Posts: 35 Location: India

Hi aaru,

The output i got was this....

A = ABCDE
B = ABCD5
C = 22345

I dont understand how i got that. Should it not give a S0C7? Does a S0C7 occur during a 'MOVE' of alphanumeric to numeric or during Arithmetic operations on Numerics( that already contain Alphanumeric values )?? Could you please clear this doubt of mine...

Aaru · Posted: Wed Oct 24, 2007 4:24 pm

sandy,

The MOVE will happen fine and there wont be any compilation error. But the alphabets would have been compared to integers as the destination field is numeric. A numeric data item cannot have alphanumeric data.

Please refer to the manuals as to why this is happening.

Aaru · Posted: Wed Oct 24, 2007 4:36 pm

Searched and found a similar topic discussed.

http://ibmmainframes.com/viewtopic.php?t=6130

dick scherrer · Posted: Wed Oct 24, 2007 7:49 pm

Hello,

When moving pic x fields to some numeric field, it is a good idea to verify that the pic x fields contains valid numeric data.

What happens all tooo often is that some piece of code "works" during testing and later abends or gives unexpected/wrong results in a production execution.

For example, try using STUVW instead of ABCDE and notice what happens. . .

sandy_venkat · New User Joined: 16 May 2007 Posts: 35 Location: India

Hi guys, Thanks a lot for explaining...I got it. It treats the values as a numeric and adds the values. 'A' was taken as C1 and so on. So i got the output of 22345. I got it now. Thanks a lot..

krisprems · Posted: Thu Oct 25, 2007 12:01 pm

sandy_venkat

Have this attacment reference table with you, this will help you.

dick
Can we have this attachment sticky, because this is the 2 and or 3rd time that i am attaching this.

sandy_venkat · New User Joined: 16 May 2007 Posts: 35 Location: India

thanks a lot krisprems. This is indeed very useful

krisprems · Posted: Thu Oct 25, 2007 12:39 pm

Enjaay!

Shanti · New User Joined: 19 Jun 2007 Posts: 8 Location: hyderabad

Hi Krisprems,

Could you please explain the chart that you posted. Its a bit confusing.

dick scherrer · Posted: Fri Oct 26, 2007 8:06 pm

Hello,

The chart posted shows whether a move from one format to another is valid.

Pick your sending and receiving field types on the chart (say source = "numeric integer" and destination = "alphabetic) and follow the lines for each in the diamond until they intersect. The Y or N tells whether the move is valid or not. In the example i used, the move is not valid, therefore the N at the intersection.

The chart is in the COBOL manual.