zOs/TX/PER24INP

//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;
insert into A540769.tper24P1
  select * from A540769.tper24P1
     where part between 301 and 400
     fetch first 1000000 rows only
;
commit
;
insert into A540769.tper24P1
  select * from A540769.tper24P1
     where part between 301 and 400
     fetch first 1000000 rows only
;
commit