zOs/TX/T

//YVVUNL01 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.T719P001.PUN,
//             DCB=(LRECL=80,RECFM=FB,BLKSIZE=4000),
//             SPACE=(TRK,(1,1)),
//             MGMTCLAS=COM#A064
//SYSREC00 DD  DISP=(NEW,CATLG),DSN=DSN.MFUNL.T719P001.UNL,
//             DCB=(LRECL=661,RECFM=FB,BLKSIZE=31728),
//             SPACE=(CYL,(2,1000)),
//             MGMTCLAS=COM#A064,DATACLAS=EYY0X
//SYSIN     DD *
   select t.*
        from  oa1a.tvv719a1 t
        where vv719002 >     (select VV719002von
                                  from A540769.TVV719Limits
                                  where part = 1)
            and vv719002 <=  (select VV719002bis
                                  from A540769.TVV719Limits
                                  where part = 1)
        order by vv719002 asc
        fetch first 100 rows only
  ;
   select t.*
        from  oa1a.tvv719a1 t
        where vv719002 >     (select VV719002von
                                  from A540769.TVV719Limits
                                  where part = 2)
            and vv719002 <=  (select VV719002bis
                                  from A540769.TVV719Limits
                                  where part = 2)
        order by vv719002 asc
  ;