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