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:
- /* 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. */
- /* */
- /* */
- 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) USEDUPMED(*YES)
- DLTOVR FILE(QP1ARCY)
- DLTOVR FILE(QP1A2RCY)
- /* +
- | Ensure that we can talk to the remote shares. +
- */
- MD '/QNTC/GDSNT'
- MONMSG CPFA0A0 EXEC(DO) /* Object already exists */
- /* Remove message from cluttering joblog */
- RCVMSG PGMQ(*SAME (*)) MSGTYPE(*EXCP) MSGKEY(*NONE) +
- WAIT(0) RMV(*YES)
- EndDo
- MD '/QNTC/PTINT'
- MONMSG CPFA0A0 EXEC(DO) /* Object already exists */
- /* Remove message from cluttering joblog */
- RCVMSG PGMQ(*SAME (*)) MSGTYPE(*EXCP) MSGKEY(*NONE) +
- WAIT(0) RMV(*YES)
- EndDo
- MD '/QNTC/JRZNT'
- MONMSG 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 Garrett, Kendallville + Juarez servers for storage. +
- */
- CPY OBJ(&QP1ARCY) TODIR('/qntc/Gdsnt/BRMS/RecoveryReports') +
- TOCCSID(1252) REPLACE(*YES)
- CPY OBJ(&QP1A2RCY) TODIR('/qntc/Gdsnt/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
|
|
|