Example 26: Using MODIFY with MAXRECDAYS to delete copies but assure recoverability for a specific number of days
This job example uses MODIFY with MAXRECDAYS to delete copies but assure recoverability for a specific number of days.
SYSPRINT from a SELECT statement to SYSCOPY prior to the MODIFY step execution
+---------------------------------------------------------------------------------------------------------------
| | TSNAME | DSNUM | ICTYPE | DSNAME | ICDATE | ICTIME |
+----------------------------------------------------------------------------------------------------------------
1_| 0187D0898F6F | TS63N1 | 0 | M | | 110620 | 115235 |
2_| 01A7745E5317 | TS63N1 | 0 | Q | AMPDB63.TS63N1 | 110720 | 094856 |
3_| 01A7745EC8DC | TS63N1 | 0 | F | COPY.TS63N1.D110716.T094800.LP00 | 110716 | 094800 |
4_| 01A7745EC8DD | TS63N1 | 0 | F | COPY.TS63N1.D110717.T094800.LP00 | 110717 | 094800 |
5_| 01A7745EC8DE | TS63N1 | 0 | F | COPY.TS63N1.D110718.T094800.LP00 | 110718 | 094800 |
6_| 01A7745EC8DF | TS63N1 | 0 | F | COPY.TS63N1.D110719.T094800.LP00 | 110719 | 094800 |
7_| 01A7745EC8E0 | TS63N1 | 0 | F | AMP.V10NF.AMPDB63.TS63N1.D00.LPT1 | 110720 | 094856 |
+----------------------------------------------------------------------------------------------------------------
| | TSNAME | DSNUM | ICTYPE | DSNAME | ICDATE | ICTIME |
+----------------------------------------------------------------------------------------------------------------
1_| 0187D0898F6F | TS63N1 | 0 | M | | 110620 | 115235 |
2_| 01A7745E5317 | TS63N1 | 0 | Q | AMPDB63.TS63N1 | 110720 | 094856 |
3_| 01A7745EC8DC | TS63N1 | 0 | F | COPY.TS63N1.D110716.T094800.LP00 | 110716 | 094800 |
4_| 01A7745EC8DD | TS63N1 | 0 | F | COPY.TS63N1.D110717.T094800.LP00 | 110717 | 094800 |
5_| 01A7745EC8DE | TS63N1 | 0 | F | COPY.TS63N1.D110718.T094800.LP00 | 110718 | 094800 |
6_| 01A7745EC8DF | TS63N1 | 0 | F | COPY.TS63N1.D110719.T094800.LP00 | 110719 | 094800 |
7_| 01A7745EC8E0 | TS63N1 | 0 | F | AMP.V10NF.AMPDB63.TS63N1.D00.LPT1 | 110720 | 094856 |
+----------------------------------------------------------------------------------------------------------------
SYSPRINT from a SELECT statement to SYSCOPY prior to the MODIFY step execution
//ACPEX99 JOB (PACP),'EXAMPLE 26',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID
//**************************************************************************************************
//* Use MODIFY - MAXRECDAYS to assure recoverability for a specific number of
//* days, delete the entries from SYSIBM.SYSCOPY and BMCXCOPY that are beyond
//* the specified number of days.
//**************************************************************************************************
//BMCMODD1 EXEC PGM=ACPMAIN,REGION=0M,
// PARM='&SSID,&JOBID,NEW/RESET,MSGLEVEL(2)'
//STEPLIB DD DISP=SHR,DSN=product.libraries
// DD DISP=SHR,DSN=DB2.DSNEXIT
// DD DISP=SHR,DSN=DB2.DSNLOAD
//SYSPRINT DD SYSOUT=*
//ACPPRT01 DD SYSOUT=*
//ACPPRT02 DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN DD *
MODIFY TABLESPACE AMPDB63.TS63N1
DSNUM ALL
DELETE
ICFDELETE YES
WHERE MAXRECDAYS 2
/*
//**************************************************************************************************
//* Use MODIFY - MAXRECDAYS to assure recoverability for a specific number of
//* days, delete the entries from SYSIBM.SYSCOPY and BMCXCOPY that are beyond
//* the specified number of days.
//**************************************************************************************************
//BMCMODD1 EXEC PGM=ACPMAIN,REGION=0M,
// PARM='&SSID,&JOBID,NEW/RESET,MSGLEVEL(2)'
//STEPLIB DD DISP=SHR,DSN=product.libraries
// DD DISP=SHR,DSN=DB2.DSNEXIT
// DD DISP=SHR,DSN=DB2.DSNLOAD
//SYSPRINT DD SYSOUT=*
//ACPPRT01 DD SYSOUT=*
//ACPPRT02 DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN DD *
MODIFY TABLESPACE AMPDB63.TS63N1
DSNUM ALL
DELETE
ICFDELETE YES
WHERE MAXRECDAYS 2
/*
Partial SYSPRINT Output
BMC30101I MODIFY TABLESPACE AMPDB63.TS63N1
BMC30101I DSNUM ALL
BMC30101I DELETE
BMC30101I ICFDELETE YES
BMC30101I WHERE MAXRECDAYS 2
BMC30101I
BMC160660I PROCESSING COMMAND MODIFY ON AMPDB63.TS63N1
BMC47347I BEGINNING INITIALIZATION FOR AMPDB63.TS63N1 (00), COMMAND NBR 0
BMC30593I TABLESPACE INFO COMPLETE, TIME = 2011-07-20-09.48.59.832462
BMC30593I AUTHORIZATION COMPLETE, TIME = 2011-07-20-09.48.59.832671
DSNT360I *DEFQ ***********************************
DSNT361I *DEFQ * DISPLAY DATABASE SUMMARY
* GLOBAL
DSNT360I *DEFQ ***********************************
DSNT362I *DEFQ DATABASE = AMPDB63 STATUS = RW
DBD LENGTH = 12104
DSNT397I *DEFQ
NAME TYPE PART STATUS PHYERRLO PHYERRHI CATALOG PIECE
-------- ---- ----- ----------------- -------- -------- -------- -----
TS63N1 TS RW
******* DISPLAY OF DATABASE AMPDB63 ENDED **********************
DSN9022I *DEFQ DSNTDDIS 'DISPLAY DATABASE' NORMAL COMPLETION
BMC180199I ROW AT 0187D0898F6F S M 00 1 V-01 ACTION(NODELETE/SYSLGRNX) 00
BMC180199I ROW AT 01A7745E5317 S Q 00 1 V-01 ACTION(DELETE/SYSLGRNX) 00 AMPDB63.TS63N1
BMC180199I ROW AT 01A7745EC8DC S F 00 1 V000 ACTION(DELETE/DELTOP/SYSLGRNX) 00 COPY.TS63N1.D110716.T094800.LP00
BMC180040I ROW DELETED AT START_RBA 01A7745E5317, ICTYPE Q
BMC180020I COPY DELETED AT START_RBA 01A7745EC8DC, DSNAME COPY.TS63N1.D110716.T094800.LP00
BMC180048I TOTAL NUMBER OF ROWS MODIFIED WAS 2
BMC180047I TOTAL COPIES DELETED FOR ICBACKUP LP WAS 1
BMC180047I TOTAL COPIES DELETED FOR ICBACKUP LB WAS 0
BMC180047I TOTAL COPIES DELETED FOR ICBACKUP RP WAS 0
BMC180047I TOTAL COPIES DELETED FOR ICBACKUP RB WAS 0
BMC30005I UTILITY EXECUTION COMPLETE, RETURN CODE = 0
BMC30101I DSNUM ALL
BMC30101I DELETE
BMC30101I ICFDELETE YES
BMC30101I WHERE MAXRECDAYS 2
BMC30101I
BMC160660I PROCESSING COMMAND MODIFY ON AMPDB63.TS63N1
BMC47347I BEGINNING INITIALIZATION FOR AMPDB63.TS63N1 (00), COMMAND NBR 0
BMC30593I TABLESPACE INFO COMPLETE, TIME = 2011-07-20-09.48.59.832462
BMC30593I AUTHORIZATION COMPLETE, TIME = 2011-07-20-09.48.59.832671
DSNT360I *DEFQ ***********************************
DSNT361I *DEFQ * DISPLAY DATABASE SUMMARY
* GLOBAL
DSNT360I *DEFQ ***********************************
DSNT362I *DEFQ DATABASE = AMPDB63 STATUS = RW
DBD LENGTH = 12104
DSNT397I *DEFQ
NAME TYPE PART STATUS PHYERRLO PHYERRHI CATALOG PIECE
-------- ---- ----- ----------------- -------- -------- -------- -----
TS63N1 TS RW
******* DISPLAY OF DATABASE AMPDB63 ENDED **********************
DSN9022I *DEFQ DSNTDDIS 'DISPLAY DATABASE' NORMAL COMPLETION
BMC180199I ROW AT 0187D0898F6F S M 00 1 V-01 ACTION(NODELETE/SYSLGRNX) 00
BMC180199I ROW AT 01A7745E5317 S Q 00 1 V-01 ACTION(DELETE/SYSLGRNX) 00 AMPDB63.TS63N1
BMC180199I ROW AT 01A7745EC8DC S F 00 1 V000 ACTION(DELETE/DELTOP/SYSLGRNX) 00 COPY.TS63N1.D110716.T094800.LP00
BMC180040I ROW DELETED AT START_RBA 01A7745E5317, ICTYPE Q
BMC180020I COPY DELETED AT START_RBA 01A7745EC8DC, DSNAME COPY.TS63N1.D110716.T094800.LP00
BMC180048I TOTAL NUMBER OF ROWS MODIFIED WAS 2
BMC180047I TOTAL COPIES DELETED FOR ICBACKUP LP WAS 1
BMC180047I TOTAL COPIES DELETED FOR ICBACKUP LB WAS 0
BMC180047I TOTAL COPIES DELETED FOR ICBACKUP RP WAS 0
BMC180047I TOTAL COPIES DELETED FOR ICBACKUP RB WAS 0
BMC30005I UTILITY EXECUTION COMPLETE, RETURN CODE = 0
SYSPRINT from a SELECT statement to SYSCOPY after the MODIFY step execution
+-----------------------------------------------------------------------------------------------------------------
| | TSNAME | DSNUM | ICTYPE | DSNAME | ICDATE | ICTIME |
+----------------------------------------------------------------------------------------------------------------
1_| 0187D0898F6F | TS63N1 | 0 | M | | 110620 | 115235 |
2_| 01A7745EC8DD | TS63N1 | 0 | F | COPY.TS63N1.D110717.T094800.LP00 | 110717 | 094800 |
3_| 01A7745EC8DE | TS63N1 | 0 | F | COPY.TS63N1.D110718.T094800.LP00 | 110718 | 094800 |
4_| 01A7745EC8DF | TS63N1 | 0 | F | COPY.TS63N1.D110719.T094800.LP00 | 110719 | 094800 |
5_| 01A7745EC8E0 | TS63N1 | 0 | F | AMP.V10NF.AMPDB63.TS63N1.D00.LPT1 | 110720 | 094856 |
+-----------------------------------------------------------------------------------------------------------------------------------
| | TSNAME | DSNUM | ICTYPE | DSNAME | ICDATE | ICTIME |
+----------------------------------------------------------------------------------------------------------------
1_| 0187D0898F6F | TS63N1 | 0 | M | | 110620 | 115235 |
2_| 01A7745EC8DD | TS63N1 | 0 | F | COPY.TS63N1.D110717.T094800.LP00 | 110717 | 094800 |
3_| 01A7745EC8DE | TS63N1 | 0 | F | COPY.TS63N1.D110718.T094800.LP00 | 110718 | 094800 |
4_| 01A7745EC8DF | TS63N1 | 0 | F | COPY.TS63N1.D110719.T094800.LP00 | 110719 | 094800 |
5_| 01A7745EC8E0 | TS63N1 | 0 | F | AMP.V10NF.AMPDB63.TS63N1.D00.LPT1 | 110720 | 094856 |
+-----------------------------------------------------------------------------------------------------------------------------------
Related topic
Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*