zOs/JCL/QMW1902P
//QMW1902P JOB (CP00,KE50),'COPY ARC STATS', 00010000
// MSGCLASS=E,TIME=1440, 00020000
// REGION=0M 00030000
//*MAIN CLASS=LOG ,DEADLINE=(24H,A),HOLD=YES 00020001
//*01 EXEC PGM=IEBGENER 00030001
//P01 EXEC PGM=IEFBR14 00030001
//SYSPRINT DD SYSOUT=* 00040001
//SYSUT1 DD DISP=SHR,DSN=A540769.WK.JCL(QMW1902P) 00050001
//*YSUT2 DD DUMMY 00060001
//SYSUT2 DD SYSOUT=(A,INTRDR) 00060001
//TST DD DISP=(MOD,CATLG,CATLG),DSN=DSN.QMW1900.DBTF.TST, 00130001
// SPACE=(CYL,(1,1)),MGMTCLAS=COM#A092, 00140001
// RECFM=VB 00150001
//COPIES DD DISP=(MOD,CATLG,CATLG),DSN=DSN.QMW1900.DBTF.COPIES, 00160002
// SPACE=(CYL,(20,100)),MGMTCLAS=COM#A092, 00170001
// RECFM=VB 00180001
//*--- 00250002
//P02 EXEC PGM=IKJEFT01, 00260002
// DYNAMNBR=200, 00270000
// TIME=99 00280000
//SYSTSIN DD * 00290002
DSN SYSTEM(DBTF) 00300001
RUN PROGRAM(DSNTIAUL) PARMS('SQL') 00310000
END 00320000
//SYSTSPRT DD SYSOUT=* 00330002
//SYSPRINT DD SYSOUT=* 00340002
//SYSUDUMP DD SYSOUT=* 00350002
//SYSTERM DD DUMMY 00360002
//SYSPUNCH DD SYSOUT=* 00370002
//*YSIN DD DISP=SHR,DSN=DBTF.DBAA.LCTL(QMW10000) 00380002
//SYSIN DD * 00380002
SELECT CURRENT TIMESTAMP - 3 MINUTES,
CHAR(' SUB#ADB1 OA1T.TADM62A1 ', 50)
FROM SYSIBM.SYSDUMMY1
;
SELECT C.DBNAME, C.TSNAME, C.DSNUM, C.TIMESTAMP, C.ICTYPE, C.DSNAME,
CHAR(C.COPYPAGESF * 1024 * S.PGSIZE) COPIED, JOBNAME
FROM SYSIBM.SYSCOPY C, SYSIBM.SYSTABLESPACE S
WHERE C.ICTYPE IN ('F', 'I')
AND S.DBNAME = C.DBNAME
AND S.NAME = C.TSNAME
ORDER BY 1, 2, 3, 4 DESC
WITH UR
;
//SYSREC00 DD DISP=OLD,DSN=*.P01.TST 00390002
//SYSREC01 DD DISP=OLD,DSN=*.P01.COPIES 00400002
//*--- 00410002
//P03 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00420002
// PARM=('%DB2COARC DBTF DIST') 00430002
//SYSIN DD DUMMY 00440002
//SYSTSIN DD DUMMY 00450002
//SYSTSPRT DD SYSOUT=* 00460002
//SYSPRINT DD SYSOUT=* 00470002
//SYSUDUMP DD SYSOUT=* 00480002
//SYSTERM DD DUMMY 00490002
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX 00500002
//TST DD DISP=SHR,DSN=*.P01.TST
//COPIES DD DISP=SHR,DSN=*.P01.COPIES
//*---