Convert non numeric fields to Numeric fields in COBOL

Abi · New User Joined: 27 Jul 2005 Posts: 35 Location: Chennai

One of the filed has values like
111-222-333
111/222/333
111 222 333
111-222/333

I need convert all these values to 11122233.I need to remove all these dashes,slashes and spaces .. and need to convert into a numeric char.

How can i do it ? can i do it by INSPECT verb.Can anybody let me know the syntax

Thanks

Arun Raj · Posted: Wed Nov 22, 2006 7:30 pm

Hi Abi

You can use rerference modification to achieve this.

Arun Raj · Posted: Wed Nov 22, 2006 7:47 pm

Or you can use the STRING verb also.Here is the syntax.

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

Hi arcvns,

You need one missing piece to complete your 2 ans:

Arun Raj · Posted: Thu Nov 23, 2006 9:39 am

Thanks for correcting me.I was not sure if any arithmetic stmts are using this NUM.

Abi · New User Joined: 27 Jul 2005 Posts: 35 Location: Chennai

Thanks for the replies... I also have datas like

/188-160 4/
026 375 3/
028-625 7

how to convert these into non-numeric

Abi · New User Joined: 27 Jul 2005 Posts: 35 Location: Chennai

sorry how to convert these into numeric

surya_pathaus · Active User Joined: 28 Aug 2006 Posts: 110

Hi,

This can work for you for all types of strings which you mentioned...

Arun Raj · Posted: Thu Nov 23, 2006 4:24 pm

Hi surya

I tried to execute your code and ended up with some compile-time errors.
I think it should be like this

surya_pathaus · Active User Joined: 28 Aug 2006 Posts: 110

Hi Arun,

Ya. That code is not tested. I gave it as algorithm. Just to give the idea about the logic.

Thanks. Tested the code and corrected.

Is it giving proper results as required?

Arun Raj · Posted: Thu Nov 23, 2006 4:48 pm

Ya...its working fine.

Thanks
Arun

Abi · New User Joined: 27 Jul 2005 Posts: 35 Location: Chennai

Hi arcvns

What should the value of I be .... shld move the the value of K to I ?

Arun Raj · Posted: Fri Nov 24, 2006 5:47 pm

Hi Abi

You dont need to move any particular value to I.You need to move only the lengths of source and target strings to K and J respectively.

Thanks
Arun

Abi · New User Joined: 27 Jul 2005 Posts: 35 Location: Chennai

Hi
I treid to execute the above code .Non-numeric fields were eliminated.But got one problem.

when i converted the value 188-160 4/

in the traget string i got the value as " 1881604" .I ogt additional 3 spaces in the front.How to remove that space.

Arun Raj · Posted: Mon Nov 27, 2006 11:33 am

Hi Abi

In the above code the result will get stored in a numeric variable(right justified with leading zeros) as the target variable I have defined is

01 RESULT PIC S9(18) VALUE 0.

When I tried with your input I am getting 000000000001881604.Is nt that matching with your expected result?

Please correct me if wrong

Thanks
Arun

Abi · New User Joined: 27 Jul 2005 Posts: 35 Location: Chennai

Hi,
I tried this below code & it i got the expected values.

MOVE LENGTH OF SOURCE-STRING TO K
MOVE 1 TO J

PERFORM VARYING I FROM 1 BY 1 UNTIL I > K
IF ALPHANUM(I : 1) IS NUMERIC
MOVE ALPHANUM(I : 1) TO RESULT(J : 1)
ADD 1 TO J
END-IF
END-PERFORM

Thanks for your suggestions.

Arun Raj · Posted: Wed Nov 29, 2006 7:04 pm

Hi Abi

Please let me know hw did u define your destination variable.is it PIC X or PIC 9?

Thnks
Arun