Delete detached audit journal receivers

Under many disk space crunch instances. We may require clearing the detached journal receivers. For example, as a system administrator we may need to clear the detached journal receivers of the system audit journal QAUDJRN.

This will bring down the system space utilization if the detached journal receivers are plenty.

Assumptions:
The journal receivers, to be deleted are backed up along with other important system objects as a part of Daily, Weekly or monthly backup.
The process does allow the execution of the sample program provided.


Now, this simple task can be automated with much simpler CL program.

PGM
DCLF FILE(SUBBU/AUDJRNFIL)
DSPOBJD OBJ(QGPL/AUDRCV*) OBJTYPE(*JRNRCV) +
OUTPUT(*OUTFILE) OUTFILE(SUBBU/AUDJRNFIL)
NEXT: RCVF
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(ENDPGM))
DLTJRNRCV JRNRCV(QGPL/&ODOBNM)
MONMSG MSGID(CPF7022) EXEC(SNDPGMMSG MSGID(CPF9898) +
MSGF(QCPFMSG) MSGDTA('The detached +
journal receivers are deleted'))
GOTO CMDLBL(NEXT)
ENDPGM: ENDPGM

The library name needs to be changed.
Outfile needs to be created before hand.

Reach me at dean@iseriesuniversity.com for any queries or clarifications.

Next, How to save the deceivers before deleting them