Hi Robi,

gerade mal ausprobiert:


rpgle eval u8=*On
cl: dcl swc *char len(8)
rtvjoba sws(&switch)
if cond(&switch *eq '00000001') Do
/* was auch immer */
enddo


hat funktioniert.

lg Hans-Joachim