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
Bookmarks