IEB example using SETRC

RTRC=GETIMS(USING_VIEW)
IF RTRC<>0 THEN DO
   SETRC(21)
   EXIT
END