externalroutine  maillog(string (255) null)
!!
!!  Makes a copy of MAILER's logfile.
!!  Should be run in a process with whole-index permission to MAILER
!!  and ACR 9.
!!
recordformat  rrf(integer  conad, type, dstart, dend)
systemroutinespec  connect(string (31) file,integer  mode, hole, prot, record (rrf) name  rr, integername  flag)
systemroutinespec  outfile(string (31) file, integer  size, hole, prot, integername  conad, flag)
systemroutinespec  move(integer  length, from, to)
systemroutinespec  psysmes(integer  root, flag)
systemroutinespec  sdisconnect(string (31) file, integer  fsys, integername  flag)
recordformat  comf(integer  ocp type,ipldev,sblks,sepgs,ndiscs,  c 
         ddtaddr,gpctabsize,gpca,sfctabsize,sfca,sfck,dirsite,  c 
         dcodeda,suplvn)
record (rrf) rr
constrecord (comf) name  com=x'80000000'+48<<18
constinteger  shared = b'00001000';           !allow others access
constinteger  r = b'00000001';                !read permission
integer  flag, conad
!!
connect("MAILER.STREAM1",r!shared,0,(com_suplvn<<8)!x'80',rr,flag)
if  flag#0 then  psysmes(8,flag) and  return 
outfile("T#OUT",integer(rr_conad),0,0,conad,flag)
if  flag=0 start 
   move(integer(rr_conad),rr_conad,conad)
   printstring("T#OUT written")
   newline
finish  else  psysmes(10,flag)
sdisconnect("MAILER.STREAM1",com_suplvn,flag)
if  flag#0 then  psysmes(14,flag)
end 
endoffile