
  TYPE
    clt$parameter_list = pmt$program_parameters;

*copyc pmt$program_parameters
