Da du in eine DS fetchst, estelle eine 2. DS mit NULL-Flags:

D NULLDS DS
D NULLFLG I5 dim(50)

FETCH NEXT FROM crsr1 INTO : WEB01VIEW : NULLDS;