|
midrange.com
The attachments to this posting are the same at the text included. If you
can't get the attachments, you should be able to use the text in this message to
generate the source code. The file transfer description is included for
member CPFMSGCHK, since the member is RPGLE and it converts to hex during
download.
README.TXT **************************************************************
This series of programs automatically deletes certain
messages out of QSYSOPR message queue. In order for
program to work, noone may have a lock on the queue.
On our system, no one signs on as QSYSOPR or allocates
the QSYSOPR message queue to their job.
The file PCPFMSG contains entries for all messages we
want automatically deleted. We use DBU to maintain
this file so there is not a program include for file
maintenance.
Program DLTOPRMSG is the program that you call how ever
often that you want the messages cleaned up out of
message queue QSYSOPR. We have this job set up in
Robot Scheduler to run every 15 minutes.
The source code is provided "as is" with no implied
warranties. Use at your own risk. Hope the code works
for you as good as it works for us.
Pattonville School District
Kirk R. Yates
11097 St Charles Rock Road
St Ann, MO 63074-1509
(314) 213-8045 voice
(314) 213-8650 fax
yatesk@pattonville.k12.mo.us
DLTOPRMSG **************************************************************
/*********************************************************************/
/* DLTOPRMSG - DELETE MESSAGES FOUND IN PCPFMSG FROM QSYSOPR MESSAGE */
/* QUEUE */
/*********************************************************************/
/* FIRST VERSION DATE: 12/22/93 BY: JERRY KEPPLER */
/*********************************************************************/
PGM
DCL VAR(&KEYVAR) TYPE(*CHAR) LEN(4)
DCL VAR(&MSGID) TYPE(*CHAR) LEN(7)
DCL VAR(&SEV) TYPE(*DEC) LEN(2 0)
DCL VAR(&RTNTYP) TYPE(*CHAR) LEN(2)
DCL VAR(&DELFLG) TYPE(*CHAR) LEN(1)
DCL VAR(&ENDPGM) TYPE(*CHAR) LEN(1)
CALL PGM(QGPL/$MSG2)
MSG: RCVMSG MSGQ(QSYSOPR) RMV(*NO) KEYVAR(&KEYVAR) +
MSGID(&MSGID) SEV(&SEV) RTNTYPE(&RTNTYP)
MONMSG MSGID(CPF2451) EXEC(GOTO CMDLBL(ENDPGM))
IF COND(&MSGID *EQ ' ') THEN(GOTO +
CMDLBL(ENDPGM))
IF COND(&SEV *NE 99 *AND &RTNTYP *NE '05') +
THEN(DO)
CALL PGM(QGPL/CPFMSGCHK) PARM(&MSGID &DELFLG +
&ENDPGM)
IF COND(&DELFLG *EQ 'Y') THEN(DO)
RMVMSG MSGQ(QSYSOPR) MSGKEY(&KEYVAR)
ENDDO
ENDDO
GOTO CMDLBL(MSG)
ENDPGM: CHGVAR VAR(&ENDPGM) VALUE('Y')
CALL PGM(QGPL/CPFMSGCHK) PARM(&MSGID &DELFLG +
&ENDPGM)
ENDPGM
$MSG2 ****************************************************************
PGM
DCL VAR(&MSGID) TYPE(*CHAR) LEN(7)
DCL VAR(&RTNTYPE) TYPE(*CHAR) LEN(2)
DCL VAR(&KEYVAR) TYPE(*CHAR) LEN(4)
DCL VAR(&SENDER) TYPE(*CHAR) LEN(80)
DCL VAR(&MSGIN) TYPE(*CHAR) LEN(132)
/* READ ALL QSYSOPR INQUIRY TYPE MESSAGES, AND RESET */
LOOP: RCVMSG MSGQ(QSYSOPR) MSGTYPE(*INQ) RMV(*NO) +
KEYVAR(&KEYVAR) MSG(&MSGIN) MSGID(&MSGID) +
SENDER(&SENDER) RTNTYPE(&RTNTYPE)
MONMSG MSGID(CPF2451) EXEC(GOTO CMDLBL(RESET))
IF COND(&MSGID = ' ') THEN(GOTO +
CMDLBL(ENDPGM))
GOTO CMDLBL(LOOP)
RESET: CHGMSGQ MSGQ(QSYSOPR) RESET(*YES)
MONMSG MSGID(CPF0000)
RETURN
ENDPGM: CHGMSGQ MSGQ(QSYSOPR) RESET(*YES)
MONMSG MSGID(CPF0000)
RETURN
ENDPGM
CPFMSGCHK ***********************************************************
Columns . . . : 6 76 Edit QGPL/QRPGSRC
SEU==> CPFMSGCHK
*************** Beginning of data *************************************
0001.00 H*****************************************************************
0002.00 H* CPFMSGCHK - CHECK PHYSICAL FILE FOR MESSAGE ID'S TO DELETE *
0003.00 H* FROM QSYSOPR MESSAGE QUEUE *
0004.00 H*****************************************************************
0005.00 H* FIRST VERSION DATE: 12/22/93 BY: JERRY KEPPLER *
0006.00 H*****************************************************************
0007.00 FPCPFMSG IF E K DISK
0008.00 C *ENTRY PLIST
0009.00 C PARM MSGID 7
0010.00 C PARM DELFLG 1
0011.00 C PARM ENDFLG 1
0012.00 C*
0013.00 C N01 EXSR $INIT
0014.00 C*
0015.00 C EXSR $ENTRY
0016.00 C*
0017.00 C *INLR IFEQ OFF
0018.00 C MSGID CHAIN PCPFMSG 99
0019.00 C *IN99 IFEQ OFF
0020.00 C MOVE 'Y' DELFLG 1
0021.00 C ENDIF
0022.00 C*
0023.00 C ENDIF
0024.00 C*
0025.00 C NLR RETURN
0026.00 C/TITLE $ENTRY
0027.00 C*****************************************************************
0028.00 C* $ENTRY - CALLED EVERY TIME ON ENTRY TO PROGRAM *
0029.00 C*****************************************************************
0030.00 CSR $ENTRY BEGSR
0031.00 C*
0032.00 C MOVE 'N' DELFLG
0033.00 C*
0034.00 C ENDFLG IFEQ 'Y'
0035.00 C MOVE ON *INLR
0036.00 C ENDIF
0037.00 C*
0038.00 CSR ENDSR
0039.00 C/TITLE $INIT
0040.00 C*****************************************************************
0041.00 C* $INIT - PROGRAM INITIALIZATION *
0042.00 C*****************************************************************
0043.00 CSR $INIT BEGSR
0044.00 C*
0045.00 C MOVE *ON ON 1
0046.00 C MOVE *OFF OFF 1
0047.00 C MOVE ON *IN01
0048.00 C*
0049.00 CSR ENDSR
PCPFMSG *************************************************************
A R FCPFMSG
A**
A CPFMSG 7 TEXT('MESSAGE IDS')
A**
A K CPFMSG
This series of programs automatically deletes certain messages out of QSYSOPR message queue. In order for program to work, noone may have a lock on the queue. On our system, no one signs on as QSYSOPR or allocates the QSYSOPR message queue to their job. The file PCPFMSG contains entries for all messages we want automatically deleted. We use DBU to maintain this file so there is not a program include for file maintenance. Program DLTOPRMSG is the program that you call how ever often that you want the messages cleaned up out of message queue QSYSOPR. We have this job set up in Robot Scheduler to run every 15 minutes. The source code is provided "as is" with no implied warranties. Use at your own risk. Hope the code works for you as good as it works for us. Pattonville School District Kirk R. Yates 11097 St Charles Rock Road St Ann, MO 63074-1509 (314) 213-8045 voice (314) 213-8650 fax yatesk@pattonville.k12.mo.us
/*********************************************************************/
/* DLTOPRMSG - DELETE MESSAGES FOUND IN PCPFMSG FROM QSYSOPR MESSAGE */
/* QUEUE */
/*********************************************************************/
/* FIRST VERSION DATE: 12/22/93 BY: JERRY KEPPLER */
/*********************************************************************/
PGM
DCL VAR(&KEYVAR) TYPE(*CHAR) LEN(4)
DCL VAR(&MSGID) TYPE(*CHAR) LEN(7)
DCL VAR(&SEV) TYPE(*DEC) LEN(2 0)
DCL VAR(&RTNTYP) TYPE(*CHAR) LEN(2)
DCL VAR(&DELFLG) TYPE(*CHAR) LEN(1)
DCL VAR(&ENDPGM) TYPE(*CHAR) LEN(1)
CALL PGM(QGPL/$MSG2)
MSG: RCVMSG MSGQ(QSYSOPR) RMV(*NO) KEYVAR(&KEYVAR) +
MSGID(&MSGID) SEV(&SEV) RTNTYPE(&RTNTYP)
MONMSG MSGID(CPF2451) EXEC(GOTO CMDLBL(ENDPGM))
IF COND(&MSGID *EQ ' ') THEN(GOTO +
CMDLBL(ENDPGM))
IF COND(&SEV *NE 99 *AND &RTNTYP *NE '05') +
THEN(DO)
CALL PGM(QGPL/CPFMSGCHK) PARM(&MSGID &DELFLG +
&ENDPGM)
IF COND(&DELFLG *EQ 'Y') THEN(DO)
RMVMSG MSGQ(QSYSOPR) MSGKEY(&KEYVAR)
ENDDO
ENDDO
GOTO CMDLBL(MSG)
ENDPGM: CHGVAR VAR(&ENDPGM) VALUE('Y')
CALL PGM(QGPL/CPFMSGCHK) PARM(&MSGID &DELFLG +
&ENDPGM)
ENDPGM
PGM
DCL VAR(&MSGID) TYPE(*CHAR) LEN(7)
DCL VAR(&RTNTYPE) TYPE(*CHAR) LEN(2)
DCL VAR(&KEYVAR) TYPE(*CHAR) LEN(4)
DCL VAR(&SENDER) TYPE(*CHAR) LEN(80)
DCL VAR(&MSGIN) TYPE(*CHAR) LEN(132)
/* READ ALL QSYSOPR INQUIRY TYPE MESSAGES, AND RESET */
LOOP: RCVMSG MSGQ(QSYSOPR) MSGTYPE(*INQ) RMV(*NO) +
KEYVAR(&KEYVAR) MSG(&MSGIN) MSGID(&MSGID) +
SENDER(&SENDER) RTNTYPE(&RTNTYPE)
MONMSG MSGID(CPF2451) EXEC(GOTO CMDLBL(RESET))
IF COND(&MSGID = ' ') THEN(GOTO +
CMDLBL(ENDPGM))
GOTO CMDLBL(LOOP)
RESET: CHGMSGQ MSGQ(QSYSOPR) RESET(*YES)
MONMSG MSGID(CPF0000)
RETURN
ENDPGM: CHGMSGQ MSGQ(QSYSOPR) RESET(*YES)
MONMSG MSGID(CPF0000)
RETURN
ENDPGM
4040404040C85C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C4040404040404040404040404040404040404040404040404040404040 4040404040C85C40C3D7C6D4E2C7C3C8D2406040C3C8C5C3D240D7C8E8E2C9C3C1D340C6C9D3C540C6D6D940D4C5E2E2C1C7C540C9C47DE240E3D640C4C5D3C5E3C5404040405C4040404040404040404040404040404040404040404040404040404040 4040404040C85C40404040404040404040404040C6D9D6D440D8E2E8E2D6D7D940D4C5E2E2C1C7C540D8E4C5E4C54040404040404040404040404040404040404040404040405C4040404040404040404040404040404040404040404040404040404040 4040404040C85C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C4040404040404040404040404040404040404040404040404040404040 4040404040C85C40C6C9D9E2E340E5C5D9E2C9D6D5404040404040404040404040404040C4C1E3C57A40F1F261F2F261F9F34040C2E87A40D1C5D9D9E840D2C5D7D7D3C5D9405C4040404040404040404040404040404040404040404040404040404040 4040404040C85C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C4040404040404040404040404040404040404040404040404040404040 4040404040C6D7C3D7C6D4E2C7404040C9C6404040C54040404040404040404040D240C4C9E2D240404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040 4040404040C340404040405CC5D5E3D9E84040404040404040D7D3C9E2E340404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040 4040404040C340404040404040404040404040404040404040D7C1D9D44040404040404040404040404040404040404040D4E2C7C9C440404040404040404040404040F74040404040404040404040404040404040404040404040404040404040404040 4040404040C340404040404040404040404040404040404040D7C1D9D44040404040404040404040404040404040404040C4C5D3C6D3C7404040404040404040404040F14040404040404040404040404040404040404040404040404040404040404040 4040404040C340404040404040404040404040404040404040D7C1D9D44040404040404040404040404040404040404040C5D5C4C6D3C7404040404040404040404040F14040404040404040404040404040404040404040404040404040404040404040 4040404040C35C404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040 4040404040C34040D5F0F14040404040404040404040404040C5E7E2D94040404040405BC9D5C9E3404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040 4040404040C35C404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040 4040404040C340404040404040404040404040404040404040C5E7E2D94040404040405BC5D5E3D9E84040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040 4040404040C35C404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040 4040404040C340404040405CC9D5D3D9404040404040404040C9C6C5D8404040404040D6C6C64040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040 4040404040C34040404040D4E2C7C9C4404040404040404040C3C8C1C9D54040404040D7C3D7C6D4E2C740404040404040404040404040404040404040404040404040404040F9F940404040404040404040404040404040404040404040404040404040 4040404040C340404040405CC9D5F9F9404040404040404040C9C6C5D8404040404040D6C6C64040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040 4040404040C340404040404040404040404040404040404040D4D6E5C54040404040407DE87D4040404040404040404040C4C5D3C6D3C7404040404040404040404040F14040404040404040404040404040404040404040404040404040404040404040 4040404040C340404040404040404040404040404040404040C5D5C4C9C640404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040 4040404040C35C404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040 4040404040C340404040404040404040404040404040404040C5D5C4C9C640404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040 4040404040C35C404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040 4040404040C34040D5D3D94040404040404040404040404040D9C5E3E4D9D5404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040 4040404040C361E3C9E3D3C5405BC5D5E3D9E8404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040 4040404040C35C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C4040404040404040404040404040404040404040404040404040404040 4040404040C35C405BC5D5E3D9E8406040C3C1D3D3C5C440C5E5C5D9E840E3C9D4C540D6D540C5D5E3D9E840E3D640D7D9D6C7D9C1D4404040404040404040404040404040405C4040404040404040404040404040404040404040404040404040404040 4040404040C35C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C4040404040404040404040404040404040404040404040404040404040 4040404040C3E2D94040405BC5D5E3D9E84040404040404040C2C5C7E2D940404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040 4040404040C35C404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040 4040404040C340404040404040404040404040404040404040D4D6E5C54040404040407DD57D4040404040404040404040C4C5D3C6D3C7404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040 4040404040C35C404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040 4040404040C34040404040C5D5C4C6D3C74040404040404040C9C6C5D84040404040407DE87D4040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040 4040404040C340404040404040404040404040404040404040D4D6E5C5404040404040D6D54040404040404040404040405CC9D5D3D940404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040 4040404040C340404040404040404040404040404040404040C5D5C4C9C640404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040 4040404040C35C404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040 4040404040C3E2D94040404040404040404040404040404040C5D5C4E2D940404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040 4040404040C361E3C9E3D3C5405BC9D5C9E340404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040 4040404040C35C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C4040404040404040404040404040404040404040404040404040404040 4040404040C35C405BC9D5C9E3406040D7D9D6C7D9C1D440C9D5C9E3C9C1D3C9E9C1E3C9D6D540404040404040404040404040404040404040404040404040404040404040405C4040404040404040404040404040404040404040404040404040404040 4040404040C35C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C4040404040404040404040404040404040404040404040404040404040 4040404040C3E2D94040405BC9D5C9E3404040404040404040C2C5C7E2D940404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040 4040404040C35C404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040 4040404040C340404040404040404040404040404040404040D4D6E5C54040404040405CD6D54040404040404040404040D6D540404040404040404040404040404040F14040404040404040404040404040404040404040404040404040404040404040 4040404040C340404040404040404040404040404040404040D4D6E5C54040404040405CD6C6C640404040404040404040D6C6C6404040404040404040404040404040F14040404040404040404040404040404040404040404040404040404040404040 4040404040C340404040404040404040404040404040404040D4D6E5C5404040404040D6D54040404040404040404040405CC9D5F0F140404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040 4040404040C35C404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040 4040404040C3E2D94040404040404040404040404040404040C5D5C4E2D940404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040
PCFDF PCFT 1 PCFO 1,1,1,1,1 PCFL SRCDTA 1 200
A R FCPFMSG
A**
A CPFMSG 7 TEXT('MESSAGE IDS')
A**
A K CPFMSG
|--------------------------------------------------------------------| |Kirk R. Yates Pattonville School District| |(314) 213-8045 Director of Data Processing| |yatesk@pattonville.k12.mo.us St Ann, MO | |--------------------------------------------------------------------|
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.
