目的
制御変数の既存の世代の数を示す固定小数点 2 進数の整数を返します。
構文
ALLOCATION (x)
省略形:ALLOCATION は ALLOCN。
例
DECLARE INPUT CHAR(10) CONTROLLED,
A CHAR(3) VARYING;
.
.
.
DO UNTIL (INPUT = 'STOP');
ALLOCATE INPUT;
GET LIST (INPUT);
.
.
.
END;
A = ALLOCATION(INPUT);
PUT SKIP LIST('Generations = ', A);
説明
ALLOCATION 関数は、指定した制御変数の既存の世代の数を示す固定小数点 2 進数の整数を返します。x が現在割り当てられていない場合、結果はゼロになります。