IEB の SETRC 使用例

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