zOs/TX/VV71CNP

//A540769P  JOB (CP00,KE50),                                            00010001
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=A540769
//*MAIN CLASS=DBTF ,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=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM  DD DUMMY
//SYSIN    DD *
select part, (select count(*)
                from OA1A.TVV719A1
        where vv719002 > VV719002von
            and vv719002 <=   VV719002bis ) cnt
    from A540769.TVV719Limits
    order by part
//
$=stp=4
$=max=64
$=jx=0
$@do ct=1 by $stp to $max $@[
    $=von=- right(ct, 3, 0)
    $=bis=- min(ct+$stp-1, $max)
    $=jx=- right($jx+1, 2, 0)
    say 'job'$jx $von '-' $bis
$@=[
/ YVVUNL$jx JOB (CP00,KE50),
//       'CATALOG',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//P01     EXEC PGM=IKJEFT01,
//             DYNAMNBR=200,
//             TIME=99
//SYSTSIN   DD *
   DSN SYSTEM(DBAF)
   RUN PROGRAM(DSNTIAUL) PARMS('SQL')
   END
//SYSTSPRT  DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSTERM   DD DUMMY
//SYSPUNCH DD  DISP=(NEW,CATLG),DSN=DSN.VVUNL.T719P$von.PUN,
//             DCB=(LRECL=80,RECFM=FB,BLKSIZE=4000),
//             SPACE=(TRK,(1,1)),
//             MGMTCLAS=COM#A064
$]
$=dx= -1
$@do px = $von to $bis $@=[
    $=px=- right(px, 3, 0)
    $=dx=- right($dx+1, 2, 0)
//SYSREC$dx DD  DISP=(NEW,CATLG),DSN=DSN.VVUNL.T719P$px.UNL,
//             SPACE=(CYL,(1000,500)),
//             DCB=(RECFM=FB,BLKSIZE=31728),
//             MGMTCLAS=COM#A064,DATACLAS=EYY0X
    $]
$@=[
//SYSIN     DD *
    $]
$@do px = $von to $bis $@=[
   select t.*
        from  oa1a.tvv719a1 t
        where vv719002 >     (select VV719002von
                                  from A540769.TVV719Limits
                                  where part = $px)
            and vv719002 <=  (select VV719002bis
                                  from A540769.TVV719Limits
                                  where part = $px)
        order by vv719002 asc
  ;
    $]
$]
$#out                                              20100930 14:13:17
$#out                                              20100930 14:10:24
$#out                                              20100930 14:09:27
$#out                                              20100930 14:07:37
$#out                                              20100930 13:59:57