zOs/JCL/MFDEL
//A540769E JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG0 SYSTEM=S12
//S01 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DBTF)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
delete
from oa1t.tmf202a1
where buid = '0000'
and ( selcd = 'MF8320 CID-RIGHTS'
or selcd = 'MF8320 SF-RIGHTS' )
and letzteMut = (
select timestamp(TEV_TIMESTAMP)
from oa1t.vmf202a1
)
;
rollback;