$IF 文の例 (Micro Focus 条件付き翻訳)

ソース プログラムのコードの一部を「条件付きで翻訳する」ために、$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