Hallo,

Zitat Zitat von kaifeba
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)
Code:
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