%REPLACE 文

%REPLACE 文は、コンパイル時に識別子を指定された定数または別の名前に置き換えることを指定します。この文の一般的な形式は次のとおりです。

%REPLACE name BY constant-or-name;

%REPLACE 文が検出された時点以降、コンパイルが終了するまで、%REPLACE 文に続くすべての name が指定した定数または別の名前に置き換えられます。

%REPLACE 文は通常、テーブルのサイズを指定する目的、またはそのままでは意味が明確でない定数に名前を付ける目的で使用されます。次に例を示します。

%REPLACE TRUE BY '1'B;
%REPLACE TABLE_SIZE BY 400;
%REPLACE MOTOR_POOL BY 5;
%REPLACE X BY -3.0E0;
DECLARE X(TABLE_SIZE) FIXED STATIC; 
DO K = 1 TO TABLE_SIZE;
IF DEPARTMENT_NUMBER = MOTOR_POOL 
   THEN DO;
    .
    .
    .

%REPLACE 文および %INCLUDE 文は、テキストの意味に関係なくプログラムテキストを操作します。

%REPLACE 文は、「ブロック」セクションで説明されているように、モジュールのブロック構造に関係なく、それ以降に出現するすべての name を置き換えます。