

TYPE
  pmt$program_name = ost$name;

*copyc OST$NAME
