$IF 文 (条件翻訳)

$IF 文は、ソース コードの一部を「条件付きで翻訳」するために使用できる。以下の例では、プログラムに次の指令を指定して翻訳する。

/MF /CONSTANT WHERE "PC"

これにより、翻訳時に「NO」という語が表示され、オブジェクト コードには GO TO 文ではなく、EVALUATE が含まれる。MF 指令が設定されていない場合、「Not MF dialect」というメッセージも表示されます。

$if WHERE = "PC"
     evaluate test-field
       when 5  perform test-a
     end-evaluate
$if OTHER-CONSTANT defined
$display Program compiled with other-constant set
$else
$display NO
$end
$else
     go to test-a test-b depending on test-field
$end
$if NOMF set
$display Not MF dialect
$end