Would like a Batch package job to COMMIT DELETE and ARCHIVE

Products

• Endevor
• Endevor Natural Integration
• Endevor - ECLIPSE Plugin
• Endevor - Enterprise Workbench

Issue/Introduction

Need a sample job that will COMMIT, DELETE and ARCHIVE Packages
1) COMMIT PACKAGES OLDER THAN 14 DAYS.             
2) DELETE PACKAGES OLDER THAN 61 DAYS IF PACKAGE
     STATUS IS INAPPROVAL, DENIED, OR APPROVED.   
3) ARCHIVE PACKAGES OLDER THAN 365 DAYS and delete after the archive.

Environment

All Supported Releases

Resolution

This is a SAMPLE JOB that will:

1) COMMIT PACKAGES OLDER THAN 14 DAYS.             
2) DELETE PACKAGES OLDER THAN 61 DAYS IF PACKAGE
     STATUS IS INAPPROVAL, DENIED, OR APPROVED.   
3) ARCHIVE PACKAGES OLDER THAN 365 DAYS and delete after the archive.

//PACKAGE EXEC PGM=NDVRC1,PARM='ENBP1000',DYNAMNBR=1500 
//STEPLIB DD DISP=SHR,DSN=iprfx.iqual.CSIQAUTU 
// DD DISP=SHR,DSN=iprfx.iqual.CSIQAUTH 
//CONLIB DD DISP=SHR,DSN=iprfx.iqual.CSIQLOAD 
//ENPSCLIN DD * 
COMMIT PACKAGE * 
OPTIONS WHERE OLDER THAN 14 DAYS 
. 
DELETE PACKAGE * 
OPTIONS WHERE OLDER THAN 61 DAYS 
WHERE PACKAGE STATUS IS INAPPROVAL OR DENIED OR APPROVED 
.
ARCHIVE PACKAGE * 
TO DDNAME PKGBKUP 
OPTIONS WHERE OLDER THAN 365 DAYS 
DELETE AFTER ARCHIVE 
. 
/* 
//PKGBKUP DD DSN=iprfx.iqual.PKGOUT,DISP=(,CATLG,DELETE), 
// SPACE=(CYL,(100,100),RLSE), 
// DCB=(DSORG=PS,RECFM=VB,LRECL=4200,BLKSIZE=0) 
//C1MSGS1 DD SYSOUT=* MESSAGE OUTPUT 
//C1PRINT DD SYSOUT=* PRINT ACTION FILE 
//SYSOUT DD SYSOUT=* 
//SYMDUMP DD DUMMY 
//SYSUDUMP DD SYSOUT=*