Generate CTLRGPSTAT report by control group
I'm leaving you a simple CLP script that goes through the existing BRMS control groups
and generates the PRTRPTBRM *CTLRGPSTAT report one by one, saving each output with a different
name so you can review them all without losing information.
PGM
DCLF FILE(QUSRBRM/Q1ACTLGRP) /* Archivo donde se listan los grupos */
DLTF FILE(QTEMP/CTLGRP)
MONMSG MSGID(CPF0000)
CRTPF FILE(QTEMP/CTLGRP) RCDLEN(132)
DSPBRMCTLGRP OUTPUT(*OUTFILE) OUTFILE(QTEMP/CTLGRP)
OVRDBF FILE(Q1ACTLGRP) TOFILE(QTEMP/CTLGRP)
DCL VAR(&GRPNAME) TYPE(*CHAR) LEN(10)
READ: RCVF
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END))
CHGVAR VAR(&GRPNAME) VALUE(&CTGRPN)
SNDPGMMSG MSG('Generando reporte para grupo: ' *CAT &GRPNAME)
PRTRPTBRM TYPE(*CTLRGPSTAT) CTLGRP(&GRPNAME) SPLFNAME(&GRPNAME)
GOTO CMDLBL(READ)
END: DLTOVR FILE(Q1ACTLGRP)
ENDPGM
------------------------------
Nelson Enrique Gaete Barriga
------------------------------
Original Message:
Sent: Mon January 13, 2025 09:27 AM
From: Rich Malloy
Subject: PRTRPTBM *CTLGRPSTAT
Have you tried using the SQL service QUSRBRM.CG_STATUS - might be easier / cleaner to digest .....It doesn't look like it has the retention info, but it has the backup size you need/want.
BRMS SQL Services - IBM Partnership -
------------------------------
Rich Malloy
------------------------------