MVSFORUMS.com

Vanitha · Beginner Joined: 10 Jan 2005 Posts: 2 Topics: 1

I want a field to accept both numeric,alphabetic or both but it should not accept special characters.How can i check that condition?

s_shivaraj · Posted: Mon Jan 10, 2005 5:49 am Post subject:

Vanitha,

Try this,

Idea

Assuming your Field is of Lenght 1,

10 ws-variable.
88 ws-alphanum pic x(1) value 0 to 9, 'a' to 'z' , 'A' to 'Z'.
88 ws-special pic x(1).
Check for ws-special, if it's true, then the variable is an special character , otherwise it is your's.

Some one can suggest how it can be used on a field of more than 1 byte.

Hope it will be useful for you.
_________________
Cheers
Sivaraj S

'Technical Skill is the Master of complexity, while Creativity is the Master of Simplicity'

Vanitha · Beginner Joined: 10 Jan 2005 Posts: 2 Topics: 1

Thanks.But I get the value of the field as an input from CICS screen.It is of 8 bytes.I want to validate the input.

kolusu · Posted: Mon Jan 10, 2005 8:45 am Post subject:

Vanitha,

You can use the CLASS definition under SPECIAL-NAMES paragraph to enter the valid characters. I am considering SPACE also as a valid alphanumeric.

ex:

dtf · Posted: Mon Jan 10, 2005 9:55 am Post subject:

s_shivaraj · Posted: Tue Jan 11, 2005 12:15 am Post subject:

DTF,

8) Thanks for the poniting that... I was intrested in putting my logic there, forget to take care of syntax, Thanks DTF.

Kolusu solution is a good One
_________________
Cheers
Sivaraj S

'Technical Skill is the Master of complexity, while Creativity is the Master of Simplicity'

slade · Posted: Sat Jan 15, 2005 9:19 pm Post subject:

One point to keep in mind when defining ALPHA-NUM as a CLASS:

The chars A through Z are NOT contiguous. The result is that some printable chars for eg. } or \ as well as some other printables and non-printables will be accepted as ALPHA-NUM.

The solution is to define the chars individually, e.g. A B C ...... X Y Z or in 3 groups: A THRU I J THRU R S THRU Z.
_________________
Regards, Jack.

"A problem well stated is a problem half solved" -- Charles F. Kettering