%bitor

[kaifeba]

Ich möchte das 1. Bit auf '1' setzen (z.B. Kleinbuchstaben auf Grossbuchstaben setzen)

In RPG400:

BITON '1' Byte

Wie erhält man das gleiche Resultat im FreeForm RPG mit der Funktion %bitor?

Besten Dank

Felix

[Fuerchau]

%bitor(Feld:x'80') !!!!!!!!!!

[kaifeba]

Danke für den schnellen reply; aber:

a='a';
%bitor(a:x'80');
====> aaaaaab c
NF0955 30 a 018800 Eintrag als linke Seite einer Operation EVAL ungültig.
NF0955 30 b 018800 Eintrag als linke Seite einer Operation EVAL ungültig.
NF5347 30 c 018800 Für die Operation EVAL wird ein Zuordnungsoperator
erwartet.


Danke

Felix

[Fuerchau]

So ist das nun mal mt BuiltIn's:

Feld = %bitor(Feld:x'80);

[cbe]

Hallo,

Ich möchte das 1. Bit auf '1' setzen (z.B. Kleinbuchstaben auf Grossbuchstaben setzen)
...

Für Klein auf GROSS umsetzen finde ich XLATE sympatischer

Hier ein Beispiel (nicht schön, aber läuft)

C     'ABCDEFGH'    CAT(P)    'IJKLMNOP'    §A30             30    
C                   CAT       'QRSTUV':0    §A30                   
C                   CAT       'WXYZÄÖ':0    §A30                   
C                   CAT       'Ü':0         §A30                   
C     'abcdefgh'    CAT(P)    'ijklmnop'    §A30B            30    
C                   CAT       'qrstuv':0    §A30B                  
C                   CAT       'wxyzäö':0    §A30B                  
C                   CAT       'ü':0         §A30B                  
C     §A30:§A30B    XLATE     #MTCM         §MTCM

Gruß
Christian

[Fuerchau]

Diese Version funktioniert nicht bei verschiedenen CCSID's !

[cbe]

geht denn die biton-Variante bei verschiedenen ccsid?

[Fuerchau]

Biton an sich funktioniert.
Was ich meine ist die Umsetzung von Groß/Kleinschreibung mittels Biton/%xor. Dafür ist SQL UPPER/LOWER besser geeignet.

[cbe]

ok, einverstanden.

Gruß
Christian