COBCH1676 匿名メソッドのコードに GO TO またはライン外 PERFORM は使用できない

次の例では、PERFORM および GO TO 文をデリゲート宣言から削除する必要があります。

class-id MyClass.
method-id main static.
01 del type MyDelegate.
set del to delegate
    perform s1           *> must be removed
    go to exit-para      *> must be removed
end-delegate
goback.
s1 section.
display "Start".
s2 section.
exit-para.
 goback.
end method.
end class.
delegate-id MyDelegate.
end delegate.