zOs/JCL/NZ242TIA

//A5407698 JOB (CP00,KE50),
//       'CATALOG',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=BS1
//P01     EXEC PGM=IKJEFT01,
//             DYNAMNBR=200,
//             TIME=99
//SYSTSIN   DD *
   DSN SYSTEM(DBOF)
   RUN PROGRAM(DSNTIAUL) PARMS('SQL')
   END
//SYSTSPRT  DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSTERM   DD DUMMY
//*YSPUNCH  DD DUMMY
//SYSPUNCH  DD DSN=DSN.NZ06A1P.TNZ242.UNL1.PUNCH,
//             DISP=(NEW,CATLG,CATLG),
//             SPACE=(CYL,(1,1)),
//             DATACLAS=NULL30,MGMTCLAS=COM#A092,
//             RECFM=FB,LRECL=80
//SYSREC00  DD DSN=DSN.NZ06A1P.TNZ242.UNL1.UNLOAD,
//             DISP=(NEW,CATLG,CATLG),
//             SPACE=(CYL,(1000,500)),
//             DATACLAS=NULL30,MGMTCLAS=COM#A092,
//             RECFM=FB,LRECL=80
//*            DCB=(LRECL=5000,RECFM=VB,BLKSIZE=32760)
//SYSREC01  DD SYSOUT=*,
//             RECFM=VB,LRECL=200
//SYSIN     DD *
SELECT *
    FROM OA1P.TNZ242A1  T242
    WHERE T242.NZ242001
      IN( SELECT T240.HEADERUWI
          FROM OA1P.VNZ240A1V T240
          WHERE T240.REFID LIKE '4A%'
            AND T240.STATUS = 'ENDED'
            AND T240.DBVIEWID = 'VNZ242A1V'
            AND T240.CREATEDATETIME BETWEEN '2008-02-09-00.00.00.000000'
                                        AND '2008-02-20-15.00.00.000000'
        )
    FETCH FIRST 100 ROWS ONLY
    WITH UR;