Software development, photography, jokes, ....

Sites by me

 
tas-logoTransportation Administration System
snoezelkussen-logo-kleinstSnoezelkussens voor verstandelijk gehandicapten
ikzoekeenbegeleider-logoBegeleiders voor gehandicapten
Laat uw hond het jaarlijkse vuurwerk overwinnen
logo 50x50Hey Vos! Je eigen naam@vos.net emailadres?
Kunst in huis? Nicole Karrèr maakt echt bijzonder mooie dingen
nettylogo2Kunst in huis? Netty Franssen maakt ook bijzonder mooie dingen
Salarisadministratie en belastingadvies bij De Zaak Loont
Zutphense Bomenstichting

Hosting Favorites

 
ANU Internet Services
XelMedia .internet Services
register.com

Blogroll

 
Bomenstichting
LassoSoft
MacFreak
Quality that computes
The Economy of Motion
Wheel 2.0
IntrAktv



Website Hosting bij Xel Media

Marc's Place

 

FN_E$UML - Convert characters to ASCII-7 set

Convert non-ASCII characters (like the german UMLauts) to standard ASCII characters

Inclusion in RPG source

E /COPY E$LIB/SRC(ILE),ES_E$UML
. . .
. . .
I /COPY E$LIB/SRC(ILE),DS_E$UML
. . .
. . .
C /COPY E$LIB/SRC(ILE),FN_E$UML

Invocation

EXSR E$UML

Input Parameters

UMLXX (a80)
Field to contain text which may contain characters that need to be converted.

Output Parameters

UMLXX (a80)
Field to contain the upcased, converted text.

What it does

The routine upcases the contents of UMLXX and walks through the text string, examening each character and if it matches with one out of the list of characters to convert, the character will be substitued by its upcased equivalent, depending on the language used. Following is the table with characters that will be converted and their equivalents, under OS/400 using a German language set:
 
ü or ] = UE
ü or } = UE
ä or [ = AE
Ä or { = AE
ö or \ = OE
Ö or ¦ = OE
ß or ~ = SS
_ = -
á or Á = A
é or É = E
í or Í = I
ó or Ó = O
ú or Ú = U
ý or Ý = Y
à or À = A
è or È = E
ì or Ì = I
ò or Ò = O
ù or Ù = U
â or  = A
ê or Ê = E
î or Î = I
ô or Ô = O
û or Û = U
õ or Õ = O
ø or Ø = O
© = S
¹ = S
» = T
¾ = Z
æ or Æ = AE
# = R
" = (nothing)
Note: included is also the routine FN_E$UMLMG, which converts the special characters coming from Map&Guide into ASCII 7 characters.

Examples

 * Convert text that has been input by a user:
 *                                                          
C                     ...
C                     MOVEL'Grüße   'UMLXX     P      Greetings
C                     EXSR E$UML
C                     MOVELUMLXX     #FIELD    P      'GRUESSE'
C                     ...
*
 
Go to download page
© 1997- Marc Vos (and others) Contact Me