$ !						SYS$MANAGER:SYLOGIN.COM
$ SET NOVERIFY	
$ EXIT						! end of SYLOGIN.COM
$ !							[JEH]LOGIN.COM
$ SET NOVERIFY
$ EXIT							! end of LOGIN.COM
$  ! invoke DSR with table of contents magic. 
$ !	p1 input file (.rno)
$ !	p2-p8 qualifiers for runoff command
$ !
$ set noon
$ ! if qualifiers came with the file name, separate them
$ ! before doing TOC stuff
$
$ sls_loc = f$loca("/",p1)
$ if sls_loc .eq. f$leng(p1) then goto doit
$doit:
$ runo/inter/nooutput USRGD13
%RUNOFF-F-COI, Can't open input file "USRGD13"
%RMS-E-FNF, file not found
$ runo/cont/deep=1/log USRGD13
%DSRTOC-F-OPENIN, error opening 'DUB1:[JEH]USRGD13.BTC;' for input
-XPO-E-NO_FILE, file does not exist
$ runo/log USRGD13       
%RUNOFF-F-COI, Can't open input file "USRGD13"
%RMS-E-FNF, file not found
  JEH          job terminated at 25-JAN-1991 17:48:09.90

  Accounting information:
  Buffered I/O count:           79      Peak working set size:   649
  Direct I/O count:             48      Peak page file size:    2334
  Page faults:                 905      Mounted volumes:           0
  Charged CPU time:     0 00:00:02.29   Elapsed time:     0 00:00:05.26