× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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 thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.