From:	SMTP%"MX-List%WKUVX1.BITNET@uu7.psi.com"  9-JUL-1993 08:35:21.03
To:	EVERHART
CC:	
Subj:	Zero sized entries in MCP queue

X-Listname: Message Exchange Discussion List <MX-List@WKUVX1.BITNET>
Warnings-To: <>
Errors-To: list-mgr%WKUVX1.BITNET@uu7.psi.com
Sender: list-mgr%WKUVX1.BITNET@uu7.psi.com
X-Newsgroups: vmsnet.mail.mx
From: <egger@ubeclu.unibe.ch>
Subject: Zero sized entries in MCP queue
Message-Id: <1993Jul9.104416.8136@aragorn.unibe.ch>
Reply-To: MX-List%WKUVX1.BITNET@uu7.psi.com
Organization: University of Bern, Switzerland
Date: Fri, 9 Jul 1993 10:44:16 GMT
Lines: 45
To: MX-List@WKUVX1.BITNET
X-Gateway-Source-Info: USENET

Some time ago I asked about removing zero sized entries from the MCP queue. As
this is not possible with wildcards, I wrote a little procedure. Perhaps
somebody else can use it.

Martin

--- CUT ---
$
$!      Remove zero size entries from MCP queue
$!      Tested with MX 3.3
$!      Eg / 9.7.1993
$
$       mcp queue show /output=sys$scratch:mcp.lis
$       open /write mcpcmd sys$scratch:mcpcmd.com
$       tmp := write mcpcmd
$       tmp "$ mcp"
$       open /read mcplis sys$scratch:mcp.lis
$       read /error=done /end=done mcplis string
$       read /error=done /end=done mcplis string
$ loop: read /error=done /end=done mcplis string
$       string = f$edit(string,"trim,compress")
$       number = f$element(0," ",string)
$       size = f$element(2," ",string)
$       if size .eqs. "0"
$       then
$          tmp "queue cancel ''number'"
$       endif
$       goto loop
$ done: close mcplis
$       tmp "queue purge"
$       tmp "$ exit"
$       close mcpcmd
$       @sys$scratch:mcpcmd.com
$       delete sys$scratch:mcpcmd.com;*
$       delete sys$scratch:mcp.lis;*
$       exit
--- CUT ---

*******************************************************************************
  Martin Egger, Ph.D., Computing Services - Head of System/User Support Group
  University of Bern, P.O. Box, Laenggassstrasse 51, CH-3012 Bern, Switzerland
  Phone: ++41 (0)31 65 38 45, Fax: ++41 (0)31 65 38 65, Telex: 912 643 pibe ch
  RFC: egger@id.unibe.ch, X.400: S=egger;OU=id;O=unibe;P=switch;A=arcom;C=ch;
  HEPNET/SPAN: 20579::49202::egger, DECnet (Switzerland): 49202::egger
*******************************************************************************
