
  TYPE
    pft$directory_array_index = ost$non_negative_integers;

*copyc ost$non_negative_integers
