krbabu
New User
.jpg)
Joined: 20 Feb 2004
Posts: 57
|
|
|
|
hi all,
I have doubt about, which states as A record which was created before 2 years of period has to be deleteed from a database table on by checking each and every month? how u will code that JCL? while before deleting I have to take a back up copy of that table?
Can anybody explain about this |
|
mdtendulkar
Active User
Joined: 29 Jul 2003
Posts: 237
Location: USA
|
|
|
|
Hello krbabu,
Below is the jcl you may require,
I have not tested it...but it should work
| Code: |
//UNLOAD EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DSN)
RUN PROGRAM(DSNTIAUL) PLAN(DSNTIB71) -
LIB('DSN710.RUNLIB.LOAD')
//*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
//SYSREC00 DD DSN=DSN8UNLD.SYSREC00,
// UNIT=SYSDA,SPACE=(32760,(1000,500)),DISP=(,CATLG)
//*
//SYSPUNCH DD DSN=DSN8UNLD.SYSPUNCH,
// UNIT=SYSDA,SPACE=(800,(15,15)),DISP=(,CATLG),
// RECFM=FB,LRECL=120,BLKSIZE=1200
//*
//SYSIN DD *
DSN8710.EMP
//*
//*--------------------------------------------------------------
//DELETESTP EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DSN)
RUN PROGRAM(DSNTIAUL) PLAN(DSNTIB71) PARMS('SQL') -
LIB('DSN710.RUNLIB.LOAD')
//*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
//SYSREC00 DD DSN=DSN8UNLD.SYSREC00,
// UNIT=SYSDA,SPACE=(32760,(1000,500)),DISP=(,CATLG)
//*
//SYSREC01 DD DSN=DSN8UNLD.SYSREC01,
// UNIT=SYSDA,SPACE=(32760,(1000,500)),DISP=(,CATLG)
//*
//SYSPUNCH DD DSN=DSN8UNLD.SYSPUNCH,
// UNIT=SYSDA,SPACE=(800,(15,15)),DISP=(,CATLG)
// RECFM=FB,LRECL=120,BLKSIZE=1200
//*
//SYSIN DD *
LOCK TABLE DSN8710.EMP IN EXCLUSIVE MODE;
DELETE FROM DSN8710.EMP
WHERE EMPDATE > '2002-02-26'
//*
|
Hope this helps,
Regards
Mayuresh Tendulkar |
|
mdtendulkar
Active User
Joined: 29 Jul 2003
Posts: 237
Location: USA
|
|
|
|
Hello krbabu,
Review the jcl carefully,
It has 2 steps UNLOAD & DELETESTP
In UNLOAD, the unloaded table is stored in SYSREC00
Hope this helps,
Regards
Mayuresh Tendulkar |
|
