Check whether lower or upper case letter are present

garuabhash · New User Joined: 02 Nov 2005 Posts: 12 Location: Delhi

Hi,

I am working on a requirement in which I need to check whether lower or upper case letter are present in a string or not?

I need to check a string which is having few lower case, few upper case, few numbers and few special characters. I need to identify each of them and put them into an array. And then dispay the count of each one.

Please help me!
Thanks
garuabhash

Robert Sample · Posted: Wed Sep 09, 2009 12:26 am

The numbers are USAGE DISPLAY, not USAGE COMP or USAGE COMP-3? Have you clicked on the manuals link at the top of the page, clicked on the COBOL Language Reference manual, and searched for reference modification? If not, start there and let us know if you have any problems after reading.

Is this a homework assignment by some chance?

garuabhash · New User Joined: 02 Nov 2005 Posts: 12 Location: Delhi

Hi,

This is not a practice assignment.

Here the problem I am facing is, it is receiving the string from a cics screen and when I receive I could see all the string is in upper case.

I am searching for some function in cobol which will tell me that it is upper case letter, lower case letter, etc....

Thanks
garuabhash

Ketan Varhade · Posted: Wed Sep 09, 2009 2:01 pm

Hi,

Robert Sample · Posted: Wed Sep 09, 2009 3:06 pm

Unless the CICS support person has made provision for lower case data, your screen text will be translated to upper case before your program ever gets to see it. So you don't need a function to check for lower case. And reference modification will let you check for numeric digits.

garuabhash · New User Joined: 02 Nov 2005 Posts: 12 Location: Delhi

Hi,

Thanks for your reply.

But As per my requirement the cics program should receive the string in the same fashion how it has been entered on the screen. Actually this is a password field on the screen for some online transaction. In which user can enter the lower and upper case letter both. Event heir password can has number and special characters also.

Please tell me the way, how my online program can receive the value in the sane fashion as it entered on the screen.

Thanks
garuabhash

Bill O'Boyle · Posted: Wed Sep 09, 2009 5:02 pm

Click on the following link -

ibmmainframes.com/viewtopic.php?p=206727&highlight=#206727

Bill

mallik4u · New User Joined: 17 Sep 2008 Posts: 75 Location: bangalore

Hi,

What i understood from your post is that you are not able to get the same input from the screen (MAP) what user has entered.

This topic has been discussed earlier. Go through the following link...it might help you out.

http://www.ibmmainframes.com/post-54827.html

acevedo · Active User Joined: 11 May 2005 Posts: 344 Location: Spain

Mickeydusaor · Posted: Wed Sep 09, 2009 8:12 pm

You can also do this within your CICS program. You perform the routine
it will allow you to accept the input in both upper and lower case. You
perform the routine a 2nd time at it puts the terminal back in upper case.
as all terminals here are defined upper case.

smilingashutosh · New User Joined: 08 Jun 2006 Posts: 22

Robert,
Agreed with you, even in My case we have a seperate TransID when we need to receive case sensitive sgtring.
Ketan,
There could be n number of cases where you could need that like say you screen is displaying an offer name which is case sensitive data taken from a table then once you receive that data it will be received in upper case and next time upper case data will be updated in the table.
So you need to have possibly seperate transid for the screen program for which you want to store case sensitive data.

garuabhash · New User Joined: 02 Nov 2005 Posts: 12 Location: Delhi

Hi,

Thanks a lot for your response and help.

Please send me the working storage declarations also for the below variables.

WS-UCTRANS, UCTRAN, TRANIDONLY

Thanks
Abhash

Mickeydusaor · Posted: Thu Sep 10, 2009 12:04 am

Here is the field for WS-UCTRANS, The others a CICS CVDA values found in the CICS System Programming Reference Manual.

UCTRAN is a value of 450 and TRANIDONLY is a value of 452.

Robert Sample · Posted: Thu Sep 10, 2009 12:30 am

Getting back to the original question, you could use reference modification to move each byte of your string to a one-byte field that has some 88 levels defined on it:

garuabhash · New User Joined: 02 Nov 2005 Posts: 12 Location: Delhi

Hi,

Where do I need to add the Logic for 'changing the screen in mixed mode'.
I mean it should be before sending the screen or after receiving the screen.

Thanks
Garuabhash

Mickeydusaor · Posted: Fri Sep 11, 2009 7:12 pm

I make it one of the first things I do in the program and the last thing I do before returning back to cics.