zOs/TX/PER24DER

//A540769P  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(DBAF)
   RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
lock table A540769.tper24P1 in exclusive mode;
delete from A540769.tper24P1
  where -- part between 1 and 100
  where part <= 100
        mod(part, 4) = 2
;
commit
;
lock table A540769.tper24P1 in exclusive mode;
delete from A540769.tper24P1
  where part between 101 and 200
        and mod(part, 4) = 2
;
commit
;
lock table A540769.tper24P1 in exclusive mode;
delete from A540769.tper24P1
  where part between 201 and 300
        and mod(part, 4) = 2
;
commit
;
lock table A540769.tper24P1 in exclusive mode;
delete from A540769.tper24P1
  where part between 301 and 400
        and mod(part, 4) = 2
;
commit
;
lock table A540769.tper24P1 in exclusive mode;
delete from A540769.tper24P1
  where part between 401 and 500
        and mod(part, 4) = 2
;
commit
;
lock table A540769.tper24P1 in exclusive mode;
delete from A540769.tper24P1
  where part between 501 and 600
        and mod(part, 4) = 2
;
commit
;
lock table A540769.tper24P1 in exclusive mode;
delete from A540769.tper24P1
  where part between 601 and 700
        and mod(part, 4) = 2
;
commit
;
lock table A540769.tper24P1 in exclusive mode;
delete from A540769.tper24P1
  where part between 701 and 800
        and mod(part, 4) = 2
;
commit
;
lock table A540769.tper24P1 in exclusive mode;
delete from A540769.tper24P1
  where part between 801 and 900
        and mod(part, 4) = 2
;
commit
;
lock table A540769.tper24P1 in exclusive mode;
delete from A540769.tper24P1
  where part > 900
        and mod(part, 4) = 2
;
commit
;