DLTDST doesn't

[rob@xxxxxxxxx]

Looking at the output generated by
             SAVDLO     DLO(*ALL) DEV(&DEVICE) EXPDATE(&EXPDT) +
                          ENDOPT(*LEAVE) OUTPUT(*PRINT) +
                          DTACPR(*DEV) /* Backup all folders */
             MONMSG     MSGID(CPF90AC CPF902E) /* Avoid open folder +
                          blowup */
We get about 172 pages of printout like:
                                                       Distributions  
------ from ------                                                  Date  
User ID   Address    Description                                    Sent  
ADOPT     GDIHQ      Not Used 12/05/01
ADOPT     GDIHQ      Not Used 12/05/01
...
QTCP      QTCP       DELIVERY FAILURE: User PATM13 (PATM13@DEKKO. 05/16/01
...
Until we finally get into the meat and potatoes of the SAVDLO.

So, IBM sent me some code.  One of the programs does this:
             PGM
             DCLF       FILE(QSYS/QAOSILOT) RCDFMT(OSLOUT)
             QRYDST     OPTION(*OUT) USRID(*CURRENT) OUTFILE(QTEMP/OUT)
             OVRDBF     FILE(QAOSILOT) TOFILE(QTEMP/OUT)
 LOOP:       RCVF       RCDFMT(OSLOUT)
             MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(DONE))
             DLTDST     DSTID(&OUTDID) OPTION(*OUT) USRID(*CURRENT) +
                          DSTIDEXN(&OUTDEX)
             MONMSG     MSGID(CPF0000)
             GOTO       CMDLBL(LOOP)
DONE:        ENDPGM

Turning on maximum job logging shows me:
                                     Message . . . . :      700 - DLTDST 
DSTID('GDIHQ   ROB     0062') OPTION(*OUT) 
                                       USRID(*CURRENT) DSTIDEXN(0)         
 
CPD9022    Diagnostic              30   02/14/03  16:13:18.684864 QOSCNLDS 
    QSYS        01D2     CLN400MOUT  ROB         0024
                                     Message . . . . :   Distribution 
GDIHQ-ROB-0062-00 cannot be found. 
But
SELECT OUTDID, OUTDEX FROM QTEMP/OUT
shows
DISTRIBUTION          DISTRIBUTION ID
     ID                  EXTENSION 
--------------------  ---------------
GDIHQ   ROB     0062               0 



(Don't you just love MONMSG CPF0000?  Well, maybe the assumption is that 
the message got sent between the QRYDST and the DLTDST.)

Rob Berendt
-- 
"They that can give up essential liberty to obtain a little temporary 
safety deserve neither liberty nor safety." 
Benjamin Franklin