zOs/TX/PER24DEG

//A540769G  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.tper24G1 in exclusive mode;
delete from A540769.tper24G1
  where -- part between 1 and 100
        mod(part, 3) = 1
;
commit
//SYSIX    DD *
;
lock table A540769.tper24G1 in exclusive mode;
delete from A540769.tper24G1
  where part between 101 and 200
        and mod(part, 3) = 1
;
commit
;
lock table A540769.tper24G1 in exclusive mode;
delete from A540769.tper24G1
  where part between 201 and 300
        and mod(part, 3) = 0
;
commit
;
lock table A540769.tper24G1 in exclusive mode;
delete from A540769.tper24G1
  where part between 301 and 400
        and mod(part, 3) = 0
;
commit
;
lock table A540769.tper24G1 in exclusive mode;
delete from A540769.tper24G1
  where part between 401 and 500
        and mod(part, 3) = 0
;
commit
;
lock table A540769.tper24G1 in exclusive mode;
delete from A540769.tper24G1
  where part between 501 and 600
        and mod(part, 3) = 0
;
commit
;
lock table A540769.tper24G1 in exclusive mode;
delete from A540769.tper24G1
  where part between 601 and 700
        and mod(part, 3) = 0
;
commit
;
lock table A540769.tper24G1 in exclusive mode;
delete from A540769.tper24G1
  where part between 701 and 800
        and mod(part, 3) = 0
;
commit
;
lock table A540769.tper24G1 in exclusive mode;
delete from A540769.tper24G1
  where part between 801 and 900
        and mod(part, 3) = 0
;
commit
;
lock table A540769.tper24G1 in exclusive mode;
delete from A540769.tper24G1
  where part > 900
        and mod(part, 3) = 0
;
commit
;