$! $! MAIL_COMPRESS.COM $! $! Created: 19-Apr-1993 L. Baldwin $! $! Desc: $! Command procedure to compress all MAIL.MAI files on the disk $! specified by the parameter P1 $! $ disk = P1 $LOOP: $ temp = f$search("''disk':[000000...]MAIL.MAI") $ if temp .eqs. "" then goto CLEAN_UP $! $ write sys$output "Compressing ''temp'" $ define FILE "''temp'" $ mail compress FILE exit $ goto LOOP $! $ CLEAN_UP: $ delete/log 'disk':[000000...]MAIL.OLD;