MVSFORUMS.com

[madisand]

I have file which contains a field of 40 characters. Is there a utility in which I can identify if any of the 40 characters contain a lowercase character and report it ?

[dbzTHEdinosauer]

application programming is not really the forum to post this question.

i imagine that you could build some sort cards that would accomplish this.

you could also view the file and xclude P'<' in the columns responding to the 40 char field. you could delete the non-xcluded and then create a new file with the remaining lines.

you possibly could use searchfor, but the max output is only 133 char -

you could write a cobol program to perform this function.

if the file is not to big (rlen and record volume) you could write a quick rexx script.

if you have ezytrieve (or something similar - SAS) you could also write a quick and dirty to accomplish this task.
_________________
Dick Brenholtz
American living in Varel, Germany

[computer]

Hi madisand,

Here is an COBOL program which will serve your purpose.

In cobol we have inbuit function which can retrieve the charater when a ascii code is passed to the function.

Now first retrieve all the ASCII characters for all the lower case letters....
check the link:http://docs.hp.com/cgi-bin/doc3k/B3150090013.11820/122

Thanks,
computer
Now do as shown below,

01 ASCII-a PIC 9(02) VALUE 'ascii value of a'

01 VARIABLE
05 VAR PIC X(40)
05 VAR1 REDEFINES VAR PIC 9 OCCURS 40 TIMES.

MOVE VAR TO VAR1.

Keep this loop for all 4o chanracters
IF FUNCTION CHAR(ASCII-a) = 'a' / VAR1(I)
DISPLAY 'LOWER CASE LETTERS EXISTS'
ELSE
DISPLAY 'LOWER CASE LETTERS DOES NOT EXISTS'
END-IF

[dbzTHEdinosauer]

why would anyone want to search for ASCII hex values on an IBM machine?

madisand,

I would INSPECT the 40 char field looking for less than 'A' (capital A) and not = SPACES.
_________________
Dick Brenholtz
American living in Varel, Germany

[jsharon1248]

You posted in the Application Programming section, so if you need a COBOL solution, use a class test.

[slade]

Not sure what your requirement is, but if you just want to verify that all chars are ALPHABETIC-LOWER you can just code: