Hallo Roman,

wie wäre es damit:
Code:
DCL        VAR(&ALPHA1) TYPE(*CHAR)                
DCL        VAR(&ALPHA2) TYPE(*CHAR)                
DCL        VAR(&Numer1)  TYPE(*DEC) LEN(3 0)       
DCL        VAR(&Numer2)  TYPE(*DEC) LEN(3 0)       
                                                   
RTVDTAARA  DTAARA(MYDTAARA (1 3)) RTNVAR(&ALPHA1)  
CHGVAR     VAR(&NUMER1) VALUE(&ALPHA1)             
RTVDTAARA  DTAARA(MYDTAARA (4 3)) RTNVAR(&ALPHA2)  
CHGVAR     VAR(&NUMER2) VALUE(&ALPHA2)
Birgitta