conversion of varchar to numeric comp-3

soundari · New User Joined: 23 Feb 2007 Posts: 7 Location: chennai

could you please tell how to convert the var char variable to numeric comp-3 variable (x(254) into 9(12)v9(6)) to use the variable in calculations

William Thompson · Posted: Thu Mar 29, 2007 1:35 pm Post subject:

The intrinsic function NUMVAL could do it but which 20 or so bytes of the 254 are you going to apply it to?

soundari · New User Joined: 23 Feb 2007 Posts: 7 Location: chennai

i am extracting only 19 chars out of 254 and converting it as comp-3 variale.

William Thompson · Posted: Thu Mar 29, 2007 2:33 pm Post subject:

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

Assuming you selected ARITH(EXTEND) as a compiler option and var-data contains only external decimal data (trailing A/N data is OK), you can do this:

Your var field is defined as:

soundari · New User Joined: 23 Feb 2007 Posts: 7 Location: chennai

hi

your concept is working fine. now i just want to do the reverse process(converting x(254) to 9(15).9(3) comp-3)

will the following code work properly

01 COMP-VAR
05 COMP-LEN PIC S9(04) COMP
05 COMP-DATA PIC 9(15)V9(3).

01 HLD-CHAR PIC X(19).
01 FINAL-CHAR PIC X(254).

MOVE COMP-DATA TO HLD-CHAR
MOVE HLD-CHAR TO FINAL-CHAR

venosol · New User Joined: 16 Nov 2006 Posts: 43 Location: Bangalore

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

Please show us an example of the data contained in the packed field and the data string you expect to see in FINAL-DATA.

Include both pos/neg examples.