Lines Matching refs:destname
417 $ destname = filename
420 $ old_start = f$locate("[gnv.usr", destname)
421 $ if old_start .lt. f$length(destname)
423 $ destname = "[gnv.beta" + destname - "[gnv.usr"
434 $ write pdsc " directory ""''destname'"" PROTECTION PUBLIC ;"
445 $ destname = filename
448 $ old_start = f$locate("[gnv.usr", destname)
449 $ if old_start .lt. f$length(destname)
451 $ destname = "[gnv.beta" + destname - "[gnv.usr"
456 $ write pdsc " file ""''destname'"" "