Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Alphabetic Check Using COBOL

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
meenasomu

New User


Joined: 15 Sep 2005
Posts: 17

PostPosted: Mon Jun 19, 2006 11:51 am    Post subject: Alphabetic Check Using COBOL
Reply with quote

Hi,

Can anyone tell me how to check the whether a particular character in a string has only alphabetic character.

My requirement is to scan through each and every character of the string to check whether the particular character is numeric or alphabhetic.

Code:


IF (WS-STRING(i:1) ='N' and WS-ID(i:1) IS NUMERIC)
OR (WS-STRING(i:1) ='A' and <need to check whether the ID variable has value in the range 'A' to 'Z'> )
    perform necessary logic
END-IF




To check whether the character is numeric , i can use a IS NUMERIC clause. Can anyone help me to get link to check for the alphabet?

Thanks in Advance.

Regards,
Meena S.
Back to top
View user's profile Send private message

ksk

Active User


Joined: 08 Jun 2006
Posts: 355
Location: New York

PostPosted: Mon Jun 19, 2006 12:09 pm    Post subject: Re: Alphabetic Check Using COBOL
Reply with quote

Hello Meena,

To check an alphabetic character, we can use IS ALPHABETIC clause.

for ex:

IF (SEGMENT-NAME IS ALPHABETIC OR
SEGMENT-NAME IS NUMERIC)

Note: IS ALPHABETIC is to check only for alphabets.

ksk
Back to top
View user's profile Send private message
meenasomu

New User


Joined: 15 Sep 2005
Posts: 17

PostPosted: Mon Jun 19, 2006 2:23 pm    Post subject: Re: Alphabetic Check Using COBOL
Reply with quote

Thanks ksk
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Submit JCL to INTRDR and check the st... srajendran2 COBOL Programming 3 Sat Jun 16, 2018 1:30 am
This topic is locked: you cannot edit posts or make replies. Issue in suppressing leading zeros &a... Vijay_Sirisha COBOL Programming 21 Thu Jun 07, 2018 8:01 pm
No new posts VBS to VB in COBOL and JCL srajendran2 COBOL Programming 12 Fri Jun 01, 2018 3:04 am
This topic is locked: you cannot edit posts or make replies. Rexx code to find greater then symobl... Bharath Vikraman CLIST & REXX 8 Tue May 29, 2018 9:40 am
No new posts How to convert 2 bytes into single by... pkmurali DB2 6 Fri May 25, 2018 1:41 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us