$set proc/priv=all
$set comm sys$system:fdhostremot_robust
$assign NORLMN fdnode
$assign FDREMSD1 fdobj
$if f$device("*fda*") .eqs. "" then mc sysgen conn fda1:/noada/driver=fddriver
$fdhostremot fda1:
$!
$log