if device[1,1] eq "." then options_ok = @false error_message<-1> = "Relative paths ('.' or '..') are not allowed!" end else if index(device, dir_delim, 1) then ;* we have a full path device_name = field(device, dir_delim, dcount(device, dir_delim)) device_directory = group(device, dir_delim, 1, count(device, dir_delim)) end else ;* we have just the device name device_name = device device_directory = jbcdatadir end device_directory := dir_delim open device_directory to device_dscb then ;* don't close this file yet, still need to check if the overwrite option is in effect device = device_directory:device_name end else error_message<-1> = "Directory ":dquote(device_directory):" does not exist!~" options_ok = @false end end