Uninitialized～は私の場合、DEFの戻り値変数に値を入れていない場合に出ることがほとんどです。 IN/OUTに同じ変数を書いても、代入さえしていればエラーにはならないはず。（IN/OUTが同じにする必要がある場面はないと思いますが） あと、命令型のDEFの戻り値はすでにVAR(DIM)された状態なので、VARを書くとduplicateエラーじゃないかな？