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