
  TYPE
    clt$command = ^procedure (    parameter_list: clt$parameter_list;
                              VAR status: ost$status);

*copyc clt$parameter_list
*copyc ost$status
