|
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
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.