One man's idea of hell is to be forced to remain in another man's idea of
heaven.

$set proc/priv=all
$dtnbr=p1 - ":" - "DTA" - "_"
$dtdvc=p1 - ":" 
$dtdvc="*"+dtdvc+"*"
$if f$device("*DTA*") .eqs. "" then mc sysman io conn dta0:/noada/driver=sys$system:dtdriver
$if f$device(dtdvc) .eqs. "" then mc sysman io conn DTA1:/noada/driver=dtdriver
$dtnnn="dtsrv"+dtnbr
$set proc/name=dtsrv1
$! to use the low compress, set comm sys$system:dthstimg next instead
$set comm sys$system:dthstimgh
$p2ln=f$length(p2)
$!if f$locate(".COM",p2).lt.p2ln then set comm sys$system:dthstimg
$if f$locate(".COM",p2).lt.p2ln then write sys$output "may be .cmp file"
$dthost DTA1: DKB204:DSKE.HCMP
%NONAME-W-NOMSG, Message number 00000000
$logo/brief
  EVERHART     job terminated at 24-JUL-1997 09:03:44.04