Hallo kr1s!

Probier' mal folgendes (ohne Gewähr):

Code:
D STRINGDS        DS                                                   
D   STRING                      30A                                    
D   BYTE                         1A   Dim(30) Overlay(STRING)          
D   WERT                         3U 0 Dim(30) Overlay(STRING)          
D NUM             S              3U 0 Inz                              
D**********************************************************************
D   BYTES         C                    'ABCDEFGHIJKLMNOPQRSTUVWXYZ'    
D   WERTE         C                   X'0A0B0C0D0E0F101112131415161718-
D                                     191A1B1C1D1E1F20212223'          
D**********************************************************************
C                   MOVEL     'QWERTZ'      STRING                     
C     BYTES:WERTE   XLATE     STRING        STRING                     
C                   MOVE      WERT(5)       NUM                        
C                   SETON                                        LR
Gruß
Jürgen