MVSFORUMS.com

radkrish · Beginner Joined: 12 Aug 2005 Posts: 102 Topics: 19

Hi,

I need to move alphanumeric to numeric.I saw some of the post which explains the same thing.But it deals with 9(02).

My variable has to move from X(7) to 9(7) comp.

can anyone please tell me how to acheive this...

regds,
krish

radkrish · Beginner Joined: 12 Aug 2005 Posts: 102 Topics: 19

For your information,my compiler doesn't support intrinsic function NUMVAL.

regds,
krish

programmer1 · Beginner Joined: 18 Feb 2004 Posts: 138 Topics: 14

If your alphanumeric variable doesn't contain any spaces you can simply move the X(7) into 9(7) and then 9(7) into 9(7) comp.

If the variable contains spaces and you cannot use NUMVAL, simply use Inspect to remove the leading or trailing spaces.
_________________
Regards,
Programmer

radkrish · Beginner Joined: 12 Aug 2005 Posts: 102 Topics: 19

When we move x(7) to 9(7) it gives '0' as the last numeric value.

VAR1 PIC X(7)
VAR2 PIC 9(7)
VAR3 PIC 9(7) comp

MOVE VAR1 TO VAR2
MOVE VAR2 TO VAR3
result :
VAR1 is 989 then VAR2 = 989 0,VAR3 = 989 {
VAR2 is 189 then VAR2 = 189 0,VAR3 = 189 {

can any one give me sample code to resolve this.Iam using VAR3 as my host variable in db2.

regds,
krish

cobcurious · Beginner Joined: 04 Oct 2003 Posts: 68 Topics: 25

Hi,
You are getting "0" at the end because in VAR1, there are trailing spaces.I assume that you are expecting only numeric values in the VAR1.
You can try the following :
01 VAR1 PIC X(7) JUST. (It will move the value as $$$$989, where $ is a space)
01 VAR3 PIC 9(7) COMP.

INSPECT VAR1
CONVERTING ALL ' ' to '0'. (this will convert all spaces to zeros)

MOVE VAR1 TO VAR3.

Note : If VAR1 is not numeric, the aobe move statement may give S0C7 error.

Let me know if it works
Thanks
Tushar

radkrish · Beginner Joined: 12 Aug 2005 Posts: 102 Topics: 19

Thanks.It suited well.
While using UNSTRING,iam getting junk in place of SPACE.

UNSTRING SAJ24-V DELIMITED BY '|'
INTO SJ24-MTH
, SJ24-WK
. . . .
.. . . .
, SJ24-A-NUM
,SJ24-B-NUM

Throwing junk in the last 2fields A-NUM and B-NUM.

KIMOSABEE · Posted: Wed Feb 28, 2007 7:50 pm Post subject:

krish,

I recieve a file every year from a reputable vendor with the same problem. Here is how I solved the problem. You can examine each field for alphabetic or numeric data. Hope it helps.
10 VP-RVUNIT PIC X(007).
10 VP-RVUNITX1 REDEFINES VP-RVUNIT.
15 VP-RVUNITX PIC 9(006)V9.
10 VP-RVUNITX2 REDEFINES VP-RVUNITX1.
15 VP-RVUNIT1 PIC X(001).
15 VP-RVUNIT2 PIC X(001).
15 VP-RVUNIT3 PIC X(001).
15 VP-RVUNIT4 PIC X(001).
15 VP-RVUNIT5 PIC X(001).
15 VP-RVUNIT6 PIC X(001).
15 VP-RVUNIT7 PIC X(001).
_________________
Elvis is not coming. Confucious.

radkrish · Beginner Joined: 12 Aug 2005 Posts: 102 Topics: 19

Thanks.
Is that solve my junk value problem?

dbzTHEdinosauer · Posted: Thu Mar 01, 2007 9:55 pm Post subject:

radkrish,

are SJ24-A-NUM and SJ24-B-NUM defined as numeric? If so, I would suggest changing the type of any receiving fields defined as numeric to alpha. An UNSTRING to numeric fields is unpredictable if there are any non-numerics within the string being unstrung.

I would redefine SJ24-A-NUM and SJ24-B-NUM, each with by alpha field to be used in the UNSTRING statement. Then, REPLACE leading spaces with zeros. Then issue an IF SJ24-A-NUM NUMERIC then move, if not don't. (same for SJ24-B-NUM)

Since your compiler does not support NUMVAL, i would not count on it to support a sophisticated UNSTRING. Keep It Simple, UNSTRING to x-types, using the numeric redefines for validation and MOVE's to your comp fields.
_________________
Dick Brenholtz
American living in Varel, Germany

radkrish · Beginner Joined: 12 Aug 2005 Posts: 102 Topics: 19

Thanks for your reply,Dick.

SJ24-A-NUM and SJ24-B-NUM is defined as alphanumeric.But not sure why do i get junk values in that place.

regds,
krish

dbzTHEdinosauer · Posted: Fri Mar 02, 2007 5:34 am Post subject:

krish,

in your post of Thu Mar 01, 2007 1:18 am, you have 3 code windows. the first window is your input? Is that one record? or is each line a record?
_________________
Dick Brenholtz
American living in Varel, Germany

radkrish · Beginner Joined: 12 Aug 2005 Posts: 102 Topics: 19

Thanks for the reply.
My window shows different timings on this post.Assuming that you are talking about this code window.

dbzTHEdinosauer · Posted: Mon Mar 05, 2007 11:20 am Post subject:

your problem is that there is garbage in whatever workarea you are using as the source object of the UNSTRING.

I suggest that records 4 thru whatever are different lengths, layouts, whatever that the first 3.

kolusu · Posted: Mon Mar 05, 2007 1:14 pm Post subject:

It is a simple 101 programming exercise. check this

radkrish · Beginner Joined: 12 Aug 2005 Posts: 102 Topics: 19

Thanks for the reply,dbzTHEdinosauer.I mentioned 486 which is the maximum record length of the VB file.