midrange.com code scratchpad
Name:
brreccovery
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
10/27/2016 07:36:38 pm
IP:
Logged
Description:
The user was to lazy to give a description
Code:
  1. /* Group Dekko Services, LLC                                              */
  2. /* ALL RIGHTS RESERVED.                                                   */
  3. /*                                                                        */
  4. /* This program will create PDFs out of BRMS recovery reports             */
  5. /*                                                                        */
  6. /*                                                                        */
  7. /* Modification log:                                                      */
  8. /* 08/04/11 by R.Berendt, CDP   GDS,LLC                                   */
  9. /*          Created                                                       */
  10. /* 06/16/16 by R.Berendt                                                  */
  11. /*          Add trap stuff for errors connecting to Juarez                */
  12. /* 06/20/16 by R.Berendt                                                  */
  13. /*          Changed from JRZDATA to JRZNT to avoid long share names       */
  14. /* 08/25/16 by R.Berendt                                                  */
  15. /*          Change the recovery reports to include DUPMEDBRM media.       */
  16. /*                                                                        */
  17. /*                                                                        */
  18. PGM
  19.  
  20.  DCL  &QP1ARCY     *CHAR  25  /* PDF file:  step by step to full recovery */
  21.  DCL  &QP1A2RCY    *CHAR  26  /* PDF file:  Volumes needed for above.     */
  22.  DCL  &SysName     *CHAR   8  /* System Name                              */
  23.  
  24. /* IBM trap */
  25.  CHGJOB LOG(4 00 *SECLVL) LOGCLPGM(*YES)
  26.  
  27.     /*                                                                         +
  28.      | Retrieve the current system name                                        +
  29.     */
  30.  RTVNETA SYSNAME(&SysName)
  31.  CHGVAR &QP1ARCY  ('/tmp/' *tcat &SysName *tcat '_QP1ARCY.PDF')
  32.  CHGVAR &QP1A2RCY ('/tmp/' *tcat &SysName *tcat '_QP1A2RCY.PDF')
  33.  
  34.  RMVLNK OBJLNK(&QP1ARCY)
  35.  MONMSG CPFA0A9 EXEC(DO) /* Object does not exist */
  36.    /* Remove message from cluttering joblog */
  37.     RCVMSG  PGMQ(*SAME (*)) MSGTYPE(*EXCP) MSGKEY(*NONE) +
  38.               WAIT(0) RMV(*YES)
  39.  EndDo
  40.  RMVLNK OBJLNK(&QP1A2RCY)
  41.  MONMSG CPFA0A9 EXEC(DO) /* Object does not exist */
  42.    /* Remove message from cluttering joblog */
  43.     RCVMSG  PGMQ(*SAME (*)) MSGTYPE(*EXCP) MSGKEY(*NONE) +
  44.               WAIT(0) RMV(*YES)
  45.  EndDo
  46.  
  47.  OVRPRTF FILE(QP1ARCY)  DEVTYPE(*AFPDS) TOSTMF(&QP1ARCY) WSCST(*PDF)
  48.  OVRPRTF FILE(QP1A2RCY) DEVTYPE(*AFPDS) TOSTMF(&QP1A2RCY) WSCST(*PDF)
  49.  STRRCYBRM OPTION(*SYSTEM) ACTION(*REPORT) USEDUPMED(*YES)
  50.  DLTOVR FILE(QP1ARCY)
  51.  DLTOVR FILE(QP1A2RCY)
  52.     /*                                                                         +
  53.      | Ensure that we can talk to the remote shares.                           +
  54.     */
  55.  MD '/QNTC/GDSNT'
  56.  MONMSG CPFA0A0 EXEC(DO) /* Object already exists */
  57.    /* Remove message from cluttering joblog */
  58.     RCVMSG  PGMQ(*SAME (*)) MSGTYPE(*EXCP) MSGKEY(*NONE) +
  59.               WAIT(0) RMV(*YES)
  60.  EndDo
  61.  MD '/QNTC/PTINT'
  62.  MONMSG CPFA0A0 EXEC(DO) /* Object already exists */
  63.    /* Remove message from cluttering joblog */
  64.     RCVMSG  PGMQ(*SAME (*)) MSGTYPE(*EXCP) MSGKEY(*NONE) +
  65.               WAIT(0) RMV(*YES)
  66.  EndDo
  67.  MD '/QNTC/JRZNT'
  68.  MONMSG CPFA0A0 EXEC(DO) /* Object already exists */
  69.    /* Remove message from cluttering joblog */
  70.     RCVMSG  PGMQ(*SAME (*)) MSGTYPE(*EXCP) MSGKEY(*NONE) +
  71.               WAIT(0) RMV(*YES)
  72.  EndDo
  73.  
  74. /* IBM Trap */
  75. DSPOBJD OBJ(*ALL/CPY) OBJTYPE(*CMD) OUTPUT(*PRINT)
  76. DSPLIBL OUTPUT(*PRINT)
  77. CALL QSYS/QSRSRV PARM(METRICS '/qntc/JRZNT/BRMS')
  78. QSH CMD('ls /qntc/JRZNT/BRMS/RecoveryReports/* > /tmp/listing.txt')
  79.  
  80.     /*                                                                         +
  81.      | Copy PDF's out to Garrett, Kendallville + Juarez servers for storage.   +
  82.     */
  83.  CPY OBJ(&QP1ARCY)  TODIR('/qntc/Gdsnt/BRMS/RecoveryReports')  +
  84.      TOCCSID(1252) REPLACE(*YES)
  85.  CPY OBJ(&QP1A2RCY) TODIR('/qntc/Gdsnt/BRMS/RecoveryReports') +
  86.      TOCCSID(1252) REPLACE(*YES)
  87.  CPY OBJ(&QP1ARCY)  TODIR('/qntc/PTInt/BRMS/RecoveryReports') +
  88.      TOCCSID(1252) REPLACE(*YES)
  89.  CPY OBJ(&QP1A2RCY) TODIR('/qntc/PTInt/BRMS/RecoveryReports') +
  90.      TOCCSID(1252) REPLACE(*YES)
  91.  CPY OBJ(&QP1ARCY)  TODIR('/qntc/JRZNT/BRMS/RecoveryReports') +
  92.      TOCCSID(1252) REPLACE(*YES)
  93.  CPY OBJ(&QP1A2RCY) TODIR('/qntc/JRZNT/BRMS/RecoveryReports') +
  94.      TOCCSID(1252) REPLACE(*YES)
  95.  
  96.  
  97. END:
  98.  
  99.              ENDPGM 
© 2004-2019 by midrange.com generated in 0.007s valid xhtml & css