IBM Power Ideas Portal
Hide about this portal
This portal is to open public enhancement requests against IBM Power Systems products, including IBM i. To view all of your ideas submitted to IBM, create and manage groups of Ideas, or create an idea explicitly set to be either visible by all (public) or visible only to you and IBM (private), use the IBM Unified Ideas Portal (https://ideas.ibm.com).
Shape the future of IBM!
We invite you to shape the future of IBM, including product roadmaps, by submitting ideas that matter to you the most. Here's how it works:
Search existing ideas
Start by searching and reviewing ideas and requests to enhance a product or service. Take a look at ideas others have posted, and add a comment, vote, or subscribe to updates on them if they matter to you. If you can't find what you are looking for,
Post your ideas
Post an idea.
Get feedback from the IBM team and other customers to refine your idea.
Follow the idea through the IBM Ideas process.
Specific links you will want to bookmark for future use
Welcome to the IBM Ideas Portal (https://www.ibm.com/ideas) - Use this site to find out additional information and details about the IBM Ideas process and statuses.
IBM Unified Ideas Portal (https://ideas.ibm.com) - Use this site to view all of your ideas, create new ideas for any IBM product, or search for ideas across all of IBM.
ideasibm@us.ibm.com - Use this email to suggest enhancements to the Ideas process or request help from IBM for submitting your Ideas.
The BRMS team does not intend to provide a solution to this request at this time, so it is being closed. This is being declined because of the low number of votes combined with a long list of higher priority items on the BRMS backlog which prevent us from getting to this item in a timely manner.
Workaround:
Must have this loaded
5770TS1 *BASE 5050 IBM Transform Services for i
We have this program run every night. It creates PDF's out of our BRMS reports and sends it to three geographically dispersed servers.
/* Group Dekko Services, LLC */
/* ALL RIGHTS RESERVED. */
/* */
/* This program will create PDFs out of BRMS recovery reports */
/* */
/* */
/* Modification log: */
/* 08/04/11 by R.Berendt, CDP GDS,LLC */
/* Created */
/* 06/16/16 by R.Berendt */
/* Add trap stuff for errors connecting to Juarez */
/* 06/20/16 by R.Berendt */
/* Changed from JRZDATA to JRZNT to avoid long share names */
/* 08/25/16 by R.Berendt */
/* Change the recovery reports to include DUPMEDBRM media. */
/* 11/02/16 by R.Berendt */
/* Since we've had a full system save stop using DUPMEDBRM. */
/* */
/* */
PGM
DCL &QP1ARCY *CHAR 25 /* PDF file: step by step to full recovery */
DCL &QP1A2RCY *CHAR 26 /* PDF file: Volumes needed for above. */
DCL &SysName *CHAR 8 /* System Name */
/* IBM trap */
CHGJOB LOG(4 00 *SECLVL) LOGCLPGM(*YES)
/* +
| Retrieve the current system name +
*/
RTVNETA SYSNAME(&SysName)
CHGVAR &QP1ARCY ('/tmp/' *tcat &SysName *tcat '_QP1ARCY.PDF')
CHGVAR &QP1A2RCY ('/tmp/' *tcat &SysName *tcat '_QP1A2RCY.PDF')
RMVLNK OBJLNK(&QP1ARCY)
MONMSG CPFA0A9 EXEC(DO) /* Object does not exist */
/* Remove message from cluttering joblog */
RCVMSG PGMQ(*SAME (*)) MSGTYPE(*EXCP) MSGKEY(*NONE) +
WAIT(0) RMV(*YES)
EndDo
RMVLNK OBJLNK(&QP1A2RCY)
MONMSG CPFA0A9 EXEC(DO) /* Object does not exist */
/* Remove message from cluttering joblog */
RCVMSG PGMQ(*SAME (*)) MSGTYPE(*EXCP) MSGKEY(*NONE) +
WAIT(0) RMV(*YES)
EndDo
OVRPRTF FILE(QP1ARCY) DEVTYPE(*AFPDS) TOSTMF(&QP1ARCY) WSCST(*PDF)
OVRPRTF FILE(QP1A2RCY) DEVTYPE(*AFPDS) TOSTMF(&QP1A2RCY) WSCST(*PDF)
STRRCYBRM OPTION(*SYSTEM) ACTION(*REPORT)
DLTOVR FILE(QP1ARCY)
DLTOVR FILE(QP1A2RCY)
/* +
| Ensure that we can talk to the remote shares. +
*/
MD '/QNTC/GDFILES01'
MONMSG MSGID(CPFA0A0) EXEC(DO) /* Object already exists */
/* Remove message from cluttering joblog */
RCVMSG PGMQ(*SAME (*)) MSGTYPE(*EXCP) MSGKEY(*NONE) WAIT(0) +
RMV(*YES)
ENDDO
MD DIR('/QNTC/JRZNT')
MONMSG MSGID(CPFA0A0) EXEC(DO) /* Object already exists */
/* Remove message from cluttering joblog */
RCVMSG PGMQ(*SAME (*)) MSGTYPE(*EXCP) MSGKEY(*NONE) WAIT(0) +
RMV(*YES)
ENDDO
/* IBM Trap */
/* DSPOBJD OBJ(*ALL/CPY) OBJTYPE(*CMD) OUTPUT(*PRINT) */
/* DSPLIBL OUTPUT(*PRINT) */
/* CALL QSYS/QSRSRV PARM(METRICS '/qntc/JRZNT/BRMS') */
/* QSH CMD('ls /qntc/JRZNT/BRMS/RecoveryReports/* > /tmp/listing.txt') */
/* +
| Copy PDF's out to servers for storage. +
*/
CPY OBJ(&QP1ARCY) TODIR('/qntc/GDFILES01/BRMS/RecoveryReports') +
TOCCSID(1252) REPLACE(*YES)
CPY OBJ(&QP1A2RCY) TODIR('/qntc/GDFILES01/BRMS/RecoveryReports') +
TOCCSID(1252) REPLACE(*YES)
/* CPY OBJ(&QP1ARCY) TODIR('/qntc/PTInt/BRMS/RecoveryReports') +
TOCCSID(1252) REPLACE(*YES) */
/* CPY OBJ(&QP1A2RCY) TODIR('/qntc/PTInt/BRMS/RecoveryReports') +
TOCCSID(1252) REPLACE(*YES) */
CPY OBJ(&QP1ARCY) TODIR('/qntc/JRZNT/BRMS/RecoveryReports') +
TOCCSID(1252) REPLACE(*YES)
CPY OBJ(&QP1A2RCY) TODIR('/qntc/JRZNT/BRMS/RecoveryReports') +
TOCCSID(1252) REPLACE(*YES)
END:
ENDPGM
The BRMS team will use this request as input to planning but no commitment is made or implied. The request will be updated in the future if the request is implemented. The BRMS team will use votes and comments from others in the community to help prioritize this request.