/**************************************************************************\
             $VER: LogActs3 Purge, v3.4 by Dotoran (2-Jul-94)
\**************************************************************************/
options results;tr=transmit;se=sendstring;gu=getuser;gs=getscratch
gu 2400088;acts=result;se 'f1'

se 'c9Delete cfALL cb"ca_LogActs3cb" c6Files c7[caYesc7]c6? ca'
getchar;a=result;if a='N' then do;tr 'No.';exit;end;else tr 'Yes!n1'
do i=1 to acts
    loadscratch i;st=result;savescratch (-i);gs 1;han=result
    se 'cf'right(i,3)'c6: '
    if st=0 & han='!' then do;tr 'c9Empty caAccount.';iterate i;end
    gs 39;file='mail:users/'||result||'/_LogActs3';a=exists(file)
    if a=0 then tr 'c9No ceLogActs3 cbConfig caFound.'
    if a=1 then do ; address command 'DELETE  'file
        tr 'ceLogActs3 cbConfig c9DELETEDca.';end
end i

/** Last Edited: 2-Jul-94 *************************************************\
\****************************************** FRONTIERS BBS (716)/823-9892 **/