Also schön ist anders, aber wer's brauchen kann... bitte:
Code:
PGM                                               
DCL        VAR(&TEXT) TYPE(*CHAR) LEN(255)        
DCL        VAR(&TYP  ) TYPE(*CHAR) LEN(8  )       
CALL       PGM(QLZARCAPI)                         
RCVMSG     PGMQ(*SAME) MSGQ(*PGMQ) MSG(&TEXT)     
CHGVAR     VAR(&TYP) VALUE(%SST(&TEXT 69 5) *CAT +
             %SST(&TEXT 75 3))                    
ENDPGM