Umsetzung Klein- in Großbuchstaben

[lossin]

Hallo @all,

wie kann ich elegant ganze Felder von Klein- in Großbuchstaben umsetzen, am Besten im free-Format ?
Ich bin hier im Forum über das API QDCXLATE gestolpert.
Hilft das weiter ? Und wenn ja, wo bekomme ich die Umsetzungstabellen her ?

Oder geht das Ganze noch einfacher ?
Die einzelnen Buchstaben per Schleife durch den LOOKUP zu schicken wäre ja wohl die letzte Lösung.

Vielen Dank im voraus

Holger Lossin

[JonnyRico]

Hi,

versuchs mal mit

dUP               c                   CONST('ABCDEFGHIJKLMNOPQRSTUVWXYZ')
dLO               c                   CONST('abcdefghijklmnopqrstuvwxyz')
dMyString         s              255a
.
.
 /Free
   MyString = %XLATE(lo:up:MyString);
 /End-Free 

Gruß

Sascha

[JonnyRico]

P.s.:

Wenn es sich um eine SQL-Quelle handelt, kannst du natürklich auch SQL bemühen

DMyString         S             255A  inz('kleinschrift')
C/Exec SQL Set :MyString = Upper(:MyString)
C/End-Exec 

Gruß

Sascha

[lossin]

Vielen Dank !

Werde beides testen, wobei ich SQL erstmal
schöner finde.

Holger Lossin

[procher]

Hallo @lossin,
zu RPG Handbuch SC09-1817-00 RPG400 Reference Seite 377.

[Fuerchau]

SQL ist insoweit auch eleganter, da Sonderzeichen je nach CCSID entsprechend berücksichtigt werden.

[mariupol1963]

Mit SQL muss man erst prüfen, denn
z.B.

select upper(trim(usnam1) concat ' ' concat usnam2 )

liefert HANS MüLLER

Richtig:

select trim(upper(usnam1)) concat trim(upper(usnam2))

[JonnyRico]

Mit SQL muss man erst prüfen, denn
z.B.

select upper(trim(usnam1) concat ' ' concat usnam2 )

liefert HANS MüLLER

Richtig:

select trim(upper(usnam1)) concat trim(upper(usnam2))

Sorry aber ich vestehe die Problematik nicht?! Bei mir sieht beides gleich aus. Oben eben mit Blank dazwichen. Es geht ja aber hier auch um die direkte Variablenumsetzung in einem PGM. Da ist mit Select dann ja eh nichts.

[Fuerchau]

Klar geht das im PGM mit SQL:

set :myvar = upper(:myvar)

Ich muss nicht immer Dateizugriffe programmieren.

[JonnyRico]

Moin,

sag ich ja aber wo ist denn im genannten Bsp. der Unterschied (also ich meine in der Ausgabe außer dem selbst eingefügten Blank)?

Gruß

Sascha

[Joe]

Moin,

sag ich ja aber wo ist denn im genannten Bsp. der Unterschied (also ich meine in der Ausgabe außer dem selbst eingefügten Blank)?

Gruß

Sascha

H

allo Sascha.

Der Unterschied ist beim NICHT umgesetzten Umlaut 'ü' !!!

Gruß Joe

[Fuerchau]

Auch hier gibt's wieder mal ein CCSID-Problem:

Bei "trim(upper(usnam1)) concat trim(upper(usnam2))" wird die CCSID des Datenbankfeldes verwendet, so dass wohl eine korrekte Umsetzung erfolgen kann.

Bei "select upper(trim(usnam1) concat ' ' concat usnam2 )" muss ein temporäres Feld angelegt werden. Dieses erhält die CCSID des Job's.
Steht der Job aber auf 65535 (aus Systemwert QCCSID), kann nur eine korrekte Umsetzung der nicht varianten Zeichen erfolgen.
Setze den Job auf eine korrekte CCSID, dann erfolgt auch hier eine Umwandlung.