RE: Can't delete old mail distributions

[Jeff Bull <Jeff.Bull@xxxxxxxxxxxxxxx>]

... tried it, no luck I'm afraid, just a string of CPF89BB's; got a laugh
out of the text of this message though, "No damaged and dangling object was
found" !!! I'm still smiling now.

Jeff Bull

-----Original Message-----
From: makins@hannasteel.com [mailto:makins@hannasteel.com]
Sent: 01 August 2002 20:21
To: midrange-l@midrange.com
Subject: RE: Can't delete old mail distributions



Here's one that gets rid of the distributions in error.

              PGM
              DCLF       FILE(QAOSDIRO)
              OVRDBF     FILE(QAOSDIRO) TOFILE(QTEMP/QAOSDIRO)
              DSPDIRE    OUTPUT(*OUTFILE) OUTFILE(QTEMP/QAOSDIRO)
  LOOP:       RCVF
              MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(ENDPGM))
              DLTDST     DSTID(*ERROBJ) OPTION(*ERR) USRID(&WOSDDEN +
                           &WOSDDGN) OBJ(*ALL)
              MONMSG     MSGID(CPF900A)
              GOTO       LOOP
  ENDPGM:     ENDPGM




_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.


________________________________________________________________________
This e-mail has been scanned for all viruses by ITM. The
service is powered by MessageLabs. For more information on a proactive
anti-virus service working around the clock, around the globe,
email marketing@itm-group.co.uk
ITM - Managing Communication and Information through technology
________________________________________________________________________


DISCLAIMER

Any opinions expressed in this email are those of the
individual and not necessarily the Company. This email
and any files transmitted with it, including replies and
forwarded copies (which may contain alterations)
subsequently transmitted from the Company, are
confidential and solely for the use of the intended recipient. If you are not 
the intended recipient or the
person responsible for delivering to the intended recipient,
be advised that you have received this email in error and
 that any use is strictly prohibited.

If you have received this email in error please notify the IT
manager by telephone on +44 (0)870 871 2233 or via
email to Administrator@itm-group.co.uk, including a copy
of this message. Please then delete this email and
destroy any copies of it.

________________________________________________________________________
This e-mail has been scanned for all viruses by ITM. The
service is powered by MessageLabs. For more information on a proactive
anti-virus service working around the clock, around the globe,
email marketing@itm-group.co.uk
ITM - Managing Communication and Information through technology
________________________________________________________________________