Accented Character Upper Case Conversion

[Kevin Corkery]

Hello Listers .



It would appear that the FUNCTION UPPER-CASE in COBOL for VSE does nothing
with respects to converting lower case accented characters. I've an
application that accommodates French language characters that I need to be
able to convert to upper case in order to support case insensitive
searching. Has anyone done this directly in COBOL or do I need to create a
translation subroutine. Of course, maybe I'm off base with this and these
characters don't necessarily translate between upper and lower cases. TIA
for your suggestions.





Kevin P Corkery

Independent Consultant

Voorhees, New Jersey

[Kevin Corkery]

Thanks Dave. I pretty much have a program ready that will do what I need. I’m pretty certain I can deal with it using the values in code page 037 as a basis.



From: vse-l-bounces+kcorkery=***@lists.lehigh.edu [mailto:vse-l-bounces+kcorkery=***@lists.lehigh.edu] On Behalf Of ***@winwholesale.com
Sent: Thursday, May 16, 2013 12:53 PM
To: VSE Discussion List
Subject: Re: Accented Character Upper Case Conversion

Post by Kevin Corkery
It would appear that the FUNCTION UPPER-CASE in COBOL for VSE does
nothing with respects to converting lower case accented characters.
I’ve an application that accommodates French language characters
that I need to be able to convert to upper case in order to support
case insensitive searching. Has anyone done this directly in COBOL
or do I need to create a translation subroutine. Of course, maybe
I’m off base with this and these characters don’t necessarily
translate between upper and lower cases. TIA for your suggestions.

I haven't done French characters but I have done two different translations directly in COBOL:

01 WORK-FIELDS.
03 LOWER-CASE PIC X(26) VALUE
'abcdefghijklmnopqrstuvwxyz'.
03 UPPER-CASE PIC X(26) VALUE
'ABCDEFGHIJKLMNOPQRSTUVWXYZ'.
03 NON-DISPLAY PIC X(65) VALUE
X'000102030405060708090A0B0C0D0E0F
- '101112131415161718191A1B1C1D1E1F
- '202122232425262728292A2B2C2D2E2F
- '303132333435363738393A3B3C3D3E3FFF'.
03 PERIODS-65 PIC X(65) VALUE
'................................
- '.................................'.

INSPECT MAP1-LINEO (IDX)
CONVERTING NON-DISPLAY TO PERIODS-65.

INSPECT DAPL-DATA CONVERTING LOWER-CASE TO UPPER-CASE.

Sincerely,

Dave Clark

WinWholesale Group Services
3110 Kettering Boulevard
Dayton, Ohio 45439 USA
[phone]



*********************************************************************************************
This email message and any attachments is for use only by the named addressee(s) and may contain confidential, privileged and/or proprietary information. If you have received this message in error, please immediately notify the sender and delete and destroy the message and all copies. All unauthorized direct or indirect use or disclosure of this message is strictly prohibited. No right to confidentiality or privilege is waived or lost by any error in transmission.
*********************************************************************************************

[Steve Huggins]

Please define " lower case accented characters"...

Are you talking about embedded control sequences that cause a character to
be accented -or- special characters that aren't contained in the '.'
translation...

I get confused easily...

Huggy

Hello Listers …****
** **
It would appear that the FUNCTION UPPER-CASE in COBOL for VSE does nothing
with respects to converting lower case accented characters. I’ve an
application that accommodates French language characters that I need to be
able to convert to upper case in order to support case insensitive
searching. Has anyone done this directly in COBOL or do I need to create
a translation subroutine. Of course, maybe I’m off base with this and
these characters don’t necessarily translate between upper and lower
cases. TIA for your suggestions.****
** **
** **
*Kevin P Corkery*
*Independent Consultant*
*Voorhees, New Jersey*
** **
** **
_______________________________________________
VSE-L mailing list
https://lists.lehigh.edu/mailman/listinfo/vse-l

[Kevin Corkery]

Yep 
 almost have everything I need now.



From: vse-l-bounces+kcorkery=***@lists.lehigh.edu [mailto:vse-l-bounces+kcorkery=***@lists.lehigh.edu] On Behalf Of ***@winwholesale.com
Sent: Thursday, May 16, 2013 1:37 PM
To: VSE Discussion List
Subject: Re: Accented Character Upper Case Conversion

Post by Steve Huggins
Please define " lower case accented characters"...
Are you talking about embedded control sequences that cause a
character to be accented -or- special characters that aren't
contained in the '.' translation...

I presumed he was talking about translating, for example, x'51' to x'71' and x'54' to x'74'.

-----------------------------------------
EBCDIC Š 0 1 2 3 4 5 6 7 8 9 A B C D E F
-------Š---------------------------------
4 Š â À à á ã å ç ñ ¢ . < ( + |
5 Š & é ê ë Ú í î ï ì ß ! $ * ) ; ¬
6 Š - / Â Ä À Á Ã Å Ç Ñ Š , % _ > ?
7 Š Þ É Ê Ë È Í Î Ï Ì ` : # @ ' = "
8 Š Ø a b c d e f g h i « » ð Ãœ ß ±
9 Š ° j k l m n o p q r ª º Ê ž Æ €
A Š µ ~ s t u v w x y z ¡ ¿ Ð Ý Þ ®
B Š ^ £ Â¥ · © § ¶ ÂŒ Âœ Ÿ [ ] ¯ š ÂŽ ×
C Š { A B C D E F G H I ­ Î ö ò ó õ
D Š } J K L M N O P Q R ¹ û Ì ù ú ÿ
E Š \ ÷ S T U V W X Y Z ² Ô Ö Ò Ó Õ
F Š 0 1 2 3 4 5 6 7 8 9 ³ Û Ü Ù Ú
-------Š---------------------------------

Sincerely,

Dave Clark

WinWholesale Group Services
3110 Kettering Boulevard
Dayton, Ohio 45439 USA
[phone]

Post by Steve Huggins
I get confused easily...
Huggy
Hello Listers 

It would appear that the FUNCTION UPPER-CASE in COBOL for VSE does
nothing with respects to converting lower case accented characters.
I’ve an application that accommodates French language characters
that I need to be able to convert to upper case in order to support
case insensitive searching. Has anyone done this directly in COBOL
or do I need to create a translation subroutine. Of course, maybe
I’m off base with this and these characters don’t necessarily
translate between upper and lower cases. TIA for your suggestions.
Kevin P Corkery
Independent Consultant
Voorhees, New Jersey
_______________________________________________
VSE-L mailing list
<https://lists.lehigh.edu/mailman/listinfo/vse-l> https://lists.lehigh.edu/mailman/listinfo/vse-l
_______________________________________________
VSE-L mailing list
<https://lists.lehigh.edu/mailman/listinfo/vse-l> https://lists.lehigh.edu/mailman/listinfo/vse-l

*********************************************************************************************
This email message and any attachments is for use only by the named addressee(s) and may contain confidential, privileged and/or proprietary information. If you have received this message in error, please immediately notify the sender and delete and destroy the message and all copies. All unauthorized direct or indirect use or disclosure of this message is strictly prohibited. No right to confidentiality or privilege is waived or lost by any error in transmission.
*********************************************************************************************