例 10

  OPTION COPY
  INREC FINDREP=(IN=(X'00',X'FF'),OUT=C'')

この例には、FB レコードまたは VB レコードから文字を除去する方法が示されています。

VB 入力レコードは、16 進数で次のようになっています。

RDW----|Data
000F0000D1E4D5C500C1D7D9C9D3FF
00100000C2C5E3E3E800C4C1C9E2E8FF

各 X'00' 文字および X'FF' 文字を除去したいとします。 IN=(X'00',X'FF') を使用して、各 X'00' 文字および X'FF' 文字を検出し、さらに OUT=C''(null) を使用してこれを除去したいとします。

出力レコードは、次のようになります。

RDW----|Data
000D0000D1E4D5C5C1D7D9C9D3
000E0000C2C5E3E3E8C4C1C9E2E8

X'00' 文字および X'FF' 文字が除去され、したがって、RDW の長さが減っていることに注意してください。 VB 入力レコードの場合、FINDREP の処理は RDW の後の位置 5 で自動的に開始され、このため、RDW 内の X'00' 文字が影響されることはありません。