How to generate filename with a timestamp

Parent page: Service Functions – System (WinRunner, TSL)

public function sys_gen_file_name(in format, out fname) {
 auto t, src, year, date, time;
 
 format = toupper(format);
 if ((format != "DATE") && (format != "TIME") && (format != "DATETIME"))
  return(E_GENERAL_ERROR);
  
 src = time_str();
 src = str_replace(src, ":", "-");
 src = str_replace(src, ",", "-");
# Delete Day
 t = substr(src, 5);
# Extract Year 
 year = substr(t, length(t)-3,4);
 t = substr(t, 1, length(t)-5);
# Extract Time
 time = substr(t, length(t)-7,8);
 t = substr(t, 1, length(t)-9);

 switch(format) {
  case "DATE":
   fname = str_replace(year & "-" & t, " ", "-");
   break;
  case "TIME": 
   fname = time;
   break;
  case "DATETIME": 
   fname = str_replace(year & "-" & t, " ", "-") & " " & time;
   break;
  default:
   fname = ""; 
   break;
  }
 
 return(E_OK);
}