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