AS400/IBMi RPG COMP命令

社内プログラムでCOMPを多用しているのがあったので、どういう動きをするのか調べてみた。

試しに

を実行してみた。

フラグ１つめは大なり、２つめは小なり、３つ目はイコール。よくあるやつだ。

上記ならば小なりなので、２つ目が真になり、

*IN40が0　*IN41が1　*IN42が0

になる。

ここで注目すべきは最初にすべてSETONしていること。

比較して条件を満たさないものはOFFられることに注意。

例えばこんなコードあったとして、フラグなんて１つでいいのでは？と思い全て40にするとかはダメ。

仮に最初の’01’で真になっても、その下で否にされてしまう。

COMPはよくあるCASE文ではない。