COBOLで乱数を作成する時どうやってるか教えてちょ

ちなみに俺はACCEPTで時間を変数に代入して代入された
秒の下一桁が偶数ならば２で割って奇数ならば３倍して１を加える。
求められた値に対してまた偶数なら２で割って奇数ならば３倍して１を加える・・・
を繰り返して１になるまでに何回計算したかを求めて乱数を発生させてる。