あるフィールドに右揃えされたいくつかの文字が入っている場合に、文字を別のフィールドに移動し、右ではなく左に揃えたいとします。 これは、参照修飾子と INSPECT ステートメントを使用して行うことができます。
プログラムに次のデータが入っているとします。
01 LEFTY PIC X(30). 01 RIGHTY PIC X(30) JUSTIFIED RIGHT. 01 I PIC 9(9) USAGE BINARY.
プログラムは、先行するスペースの数をカウントし、参照修飾子内の算術式を使用して、右揃えされた文字を別のフィールドに移動し、左寄せします。
MOVE SPACES TO LEFTY MOVE ZERO TO I INSPECT RIGHTY TALLYING I FOR LEADING SPACE. IF I IS LESS THAN LENGTH OF RIGHTY THEN MOVE RIGHTY ( I + 1 : LENGTH OF RIGHTY - I ) TO LEFTY END-IF
MOVE ステートメントは、RIGHTY の文字を、I + 1 で計算された位置から、LENGTH OF RIGHTY - I で計算された長さだけ、フィールド LEFTY に移動します。