PA
CLR
DISPLAY -------------------------------------------------------------------------
DISPLAY * PARAGRAPH PERFORMS AUTOMATED TEMPORARY AND UNECESSARY RECORD CLEANUP. *
DISPLAY * IT LEAVES A 30 DAY RETENTION FOR _PH_, _HOLD_ AND SAVEDLISTS RECORDS. *
DISPLAY * .PERM AND XDRG.* RECORDS ARE NOT DELETED.                             *
DISPLAY *                                                                       *
DISPLAY * CREATED BY: BEN DIEL CPCC SEPT. 26, 2007.                             *
DISPLAY -------------------------------------------------------------------------
DISPLAY 
* 
* 
* 
ONE:
COMO ON FILE.CLEANUP
* ------------------------------------------------------
* DELETE REFORMAT RECORDS GENERATED FROM QUERY BUILDER *
* ------------------------------------------------------
SELECT VOC WITH @ID LIKE "WIN.RFMT0..." OR WITH @ID LIKE \
"WIN.RFMT1..." OR WITH @ID LIKE "WIN.RFMT2..." OR WITH @ID \
LIKE "WIN.RFMT3..." OR WITH @ID LIKE "WIN.RFMT4..." OR WITH \
@ID LIKE "WIN.RFMT5..." OR WITH @ID LIKE "WIN.RFMT6..." OR \
WITH @ID LIKE "WIN.RFMT7..." OR WITH @ID LIKE "WIN.RFMT8..." \
OR WITH @ID LIKE "WIN.RFMT9..."
IF @SYSTEM.RETURN.CODE LE 0 THEN GO THREE
DISPLAY 
DISPLAY 
* 
DELETE VOC
DATA YES
*
DISPLAY 
DISPLAY 
* 
* 
* TWO:
* ----------------------------------------------
* DELETE REFORMAT RECORDS FROM SAVEDLISTS FILE *
* ----------------------------------------------
* SELECT SAVEDLISTS WITH @ID LIKE "WIN.RFMT0..." OR WITH @ID LIKE \
* "WIN.RFMT1..." OR WITH @ID LIKE "WIN.RFMT2..." OR WITH @ID \
* LIKE "WIN.RFMT3..." OR WITH @ID LIKE "WIN.RFMT4..." OR WITH \
* @ID LIKE "WIN.RFMT5..." OR WITH @ID LIKE "WIN.RFMT6..." OR \
* WITH @ID LIKE "WIN.RFMT7..." OR WITH @ID LIKE "WIN.RFMT8..." \
* OR WITH @ID LIKE "WIN.RFMT9..."
* IF @SYSTEM.RETURN.CODE LE 0 THEN GO THREE
* DISPLAY 
* DISPLAY 
*
* DELETE SAVEDLISTS
* DATA YES
*
* DISPLAY 
* DISPLAY 
*
*
THREE:
* ----------------------------------------------------
* DELETE SETPTR RECORDS FROM EACH APPL.PRINTERS FILE *
* ----------------------------------------------------
SELECT CF.PRINTERS WITH @ID LIKE 'SETPTR...'
IF @SYSTEM.RETURN.CODE LE 0 THEN GO PRN1
DELETE CF.PRINTERS
DATA YES
*
PRN1:
SELECT CORE.PRINTERS WITH @ID LIKE 'SETPTR...'
IF @SYSTEM.RETURN.CODE LE 0 THEN GO PRN2
DELETE CORE.PRINTERS
DATA YES
*
PRN2:
SELECT HR.PRINTERS WITH @ID LIKE 'SETPTR...'
IF @SYSTEM.RETURN.CODE LE 0 THEN GO PRN3
DELETE HR.PRINTERS
DATA YES
*
PRN3:
SELECT ST.PRINTERS WITH @ID LIKE 'SETPTR...'
IF @SYSTEM.RETURN.CODE LE 0 THEN GO PRN4
DELETE ST.PRINTERS
DATA YES
*
PRN4:
SELECT UT.PRINTERS WITH @ID LIKE 'SETPTR...'
IF @SYSTEM.RETURN.CODE LE 0 THEN GO FOUR:
DELETE UT.PRINTERS
DATA YES
*
*
FOUR:
* ------------------------------------------
* DELETE RUN.### RECORDS FROM THE VOC FILE *
* ------------------------------------------
SELECT VOC WITH @ID LIKE "'RUN.'..." AND WITH F1 UNLIKE "C..."
SELECT VOC WITH @ID UNLIKE "RUN.AUTO..."
IF @SYSTEM.RETURN.CODE LE 0 THEN GO FIVE
DELETE VOC
DATA YES
*
*
FIVE:
* -----------------------------------------------
* DELETE EXPRESS LOAD RECORDS FROM THE VOC FILE *
* -----------------------------------------------
SELECT VOC WITH @ID LIKE ..._170_UNIX_...
IF @SYSTEM.RETURN.CODE LE 0 THEN GO EXP1
DELETE VOC
DATA YES
*
EXP1:
SELECT VOC WITH @ID LIKE ..._170_U_...
IF @SYSTEM.RETURN.CODE LE 0 THEN GO EXP2
DELETE VOC
DATA YES
*
EXP2:
SELECT VOC WITH @ID LIKE ..._17014_U_...
IF @SYSTEM.RETURN.CODE LE 0 THEN GO EXP3
DELETE VOC
DATA YES
*
EXP3:
SELECT VOC WITH @ID LIKE ..._4718_U_...
IF @SYSTEM.RETURN.CODE LE 0 THEN GO SIX
DELETE VOC
DATA YES
*
*
SIX:
* -----------------------
* CLEAR PARAMETERS FILE *
* -----------------------
CLEAR.FILE PARAMETERS
*
*
SEVEN:
* -------------------------------------------------
* DELETE RUNTIME VARIABLES FROM THE JSPARAMS FILE *
* -------------------------------------------------
SELECT JSPARAMS WITH @ID LIKE '..._..._..._...'
IF @SYSTEM.RETURN.CODE LE 0 THEN GO EIGHT
DELETE JSPARAMS
DATA YES
*
*
*
*
EIGHT:
* ------------------------
* DELETE AE_COMS RECORDS *
* ------------------------
SELECT AE_COMS WITH @ID LIKE 'com...''pre...'
IF @SYSTEM.RETURN.CODE LE 0 THEN GO DONE
DELETE AE_COMS
DATA YES
*
*
*
*
DONE:
* -----------------------------------------------
* REMOVE UNECESSARY FILES FROM UNIX DIRECTORIES *
* -----------------------------------------------
!rm -f *WIN.RFMT*
!rm -f ./SAVEDLISTS/*WIN.RFMT*
!echo "WIN.RFMT Records Deleted..."
!echo ""
!find _PH_ -mtime +30 -exec rm -f {} \;
!echo "_PH_ Records Deleted..."
!echo ""
!find _HOLD_ \( ! -name '*.PERM' -a ! -name 'XDRG*' \) -mtime +30 -exec rm -f {} \;
!echo "_HOLD_ Records Deleted..."
!echo ""
!find SAVEDLISTS \( ! -name '*.PERM' -a ! -name 'XDRG*' -a ! -name 'RESIZE.EXCLUDE000' \) -mtime +180 -exec rm -f {} \;
!echo "SAVEDLISTS Records Deleted..."
!echo ""
!find . \( -name 'udms*.log' -o -name 'ipc*.log' \) -mtime +30 -exec rm -f {} \;
!echo "Log Files Deleted..."
!echo ""
!find . -name 'GUIDE*' -mtime +30 -exec rm -f {} \;
!echo "GUIDE Files Deleted..."
!echo ""
!rm -f ./savedlists/*
!echo "savedlists Records Deleted..."
!echo ""
*
*
DISPLAY 
DISPLAY 
DISPLAY COMPLETED!!!
DATE
COMO OFF