
  TYPE
    pft$file_description = record
      name: pft$name,
      password: pft$password,
      charge_id: pft$charge_id,
      logging_selection: pft$log,
    recend;

*copyc pft$charge_id
*copyc pft$log
*copyc pft$name
*copyc pft$password
