Skip to Main Content
IBM Power Ideas 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
  1. Post an idea.

  2. Get feedback from the IBM team and other customers to refine your idea.

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

Status Not under consideration
Workspace IBM i
Categories BRMS
Created by Guest
Created on Sep 30, 2019

BRMS Hub Recovery Reports Need To Print To a Printer and Be Sent to the Hub at the same time.

When generating reports from the BRMS Hub server if the node has WRKPCYBRM setup to send recovery reports to a printer writer the reports print and then are deleted before the reports are sent to the BRMS Hub for storage. It would be nice if IBM i would be able to print out the reports to a printer then wait to delete until after the reports have been sent to the BRMS Hub.


Use Case:

Someone wants a hard copy of the BRMS recovery report sent to a printer and also wants to send the reports to the BRMS Hub for storage in case of a disaster. They want this done all in one shot with out a ny intervention to print the reports manually.

This was investigated in case # TS002727132. The legacy PMR is supplied in the PMR ID field.


Idea priority Low
  • Guest
    Reply
    |
    Nov 6, 2020

    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.

  • Guest
    Reply
    |
    Jan 29, 2020

    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

  • Guest
    Reply
    |
    Oct 28, 2019

    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.