RE: Can't delete old mail distributions

[makins@xxxxxxxxxxxxxx]

If you have a permission problem you could use this code to grant yourself
permission to all the users.



           PGM        PARM(&TOUSER)
             DCL        VAR(&TOUSER) TYPE(*CHAR) LEN(10)
             DCLF       FILE(QADSPUPB)
             OVRDBF     FILE(QADSPUPB) TOFILE(QTEMP/QADSPUPB)
             DSPUSRPRF  USRPRF(*ALL) OUTPUT(*OUTFILE) +
                          OUTFILE(QTEMP/QADSPUPB)
 LOOP:       RCVF
             MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(ENDPGM))
             GRTUSRPMN  TOUSER(&TOUSER) FORUSER(&UPUPRF)
             MONMSG     CPF0000
             GOTO       LOOP
 ENDPGM:     ENDPGM



Here is the code that I use to delete the distributions.



             PGM        PARM(&USERID &ADDRESS)
             DCL        &USERID *CHAR LEN(10)
             DCL        &ADDRESS *CHAR LEN(10)
             DCLF       FILE(QAOSILOT)
             MONMSG     CPF0000
             OVRDBF     FILE(QAOSILOT) TOFILE(QTEMP/QAOSILOT)
             QRYDST     OPTION(*OUT) USRID(&USERID &ADDRESS) +
                          OUTFILE(QTEMP/QAOSILOT)
 LOOP:       RCVF
             MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(ENDPGM))
             DLTDST     DSTID(&OUTDID) OPTION(*OUT) USRID(&OUTSUI +
                          &OUTSUA)  DSTIDEXN(&OUTDEX)
             MONMSG     MSGID(CPD9022)  EXEC(DO)
             DLTDST     DSTID(&OUTDID) OPTION(*ERR) USRID(&OUTSUI +
                          &OUTSUA) DSTIDEXN(&OUTDEX)
             ENDDO
             GOTO       LOOP
 ENDPGM:     ENDPGM