get the length of the numeric values, alphabets from the COBOL variable

[pinball]

Hi,

I have variable like below

01 ws-a pic x(30) value 'abcd234567@#₹....'

I want to get the length of the numeric values, alphabets
 

[zum13]

Hello.

There is a "LENGTH" function and the "LENGTH OF" keywords, but these only provide the length of the field and not the length of the data within. This came up fairly recently, so you'll hopefully find what you need in this thread: viewtopic.php?p=36828#p36828

[pinball]

Thanks again zum13, that thread is helpful. How can we know that the read character is numeral or alphabet, once the length is known?

[zum13]

An "IS NUMERIC" check will do the job, for example:

Code: Select all

           IF WA-STRING(1:WA-LENGTH) IS NUMERIC
              do stuff here
           END-IF