Convert lower case to Upper case(COBOL/400)

[Guest.Visitor]

Thanks for taking time here. I'm working on COBOL program. In the program, I'm comparing 2 fields. One has Upper case characters. Another field has lower case characters. FIELDA = APPLE FIELDB = apple I'd like to treat them as the same value.(FIELDA = FIELDB) Is there any reserved word of COBOL to convert lower case to upper case? Is there any way to convert them other than using array? Any advice will be appreciated. Again, thanks for taking your time and considerations.

[Guest.Visitor]

I don't know much about Cobol, but I do know that there is an API that will do it. You might want to take a look at the Convert Case API (QLGCNVCS). It converts an input string to either upper or lower case. Mark

[Guest.Visitor]

May be you would like to try the following : INSPECT CONVERTING 'abcdefghijklmnopqrstuvwxyz' TO 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' where is the name of the field containing the string to be converted. HTH Best Regards Bernd

[M.Martinez]

If you have ILE Cobol compiler, you can use the UPPER-CASE or LOWER-CASE functions. Attached is some code that will demonstrate how this works. It's pretty straight forward. The code works on V4R4, but I don't know what OS/400 version is required to run it. HTH