zOs/JCL/QMW1003P
//A5407698 JOB (CP00,KE50), 00010000
// 'CATALOG',MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M 00030000
//*MAIN CLASS=LOG 00040002
//JOBLIB DD DISP=SHR,DSN=MQM.QP00 00050002
//*--- 00060002
//*--- verantwortlich kiut 23 - Db2 Administration 00070003
//*--- bei Fehler oder Abend: 00080003
//*--- kein Pikett Aufgebot 00090003
//*--- Ticket nur, falls P07 kein Mail schicken konnte 00100003
//*--- 00110003
//P01 EXEC PGM=IEFBR14 00120001
//TST DD DISP=(MOD,CATLG,CATLG),DSN=DSN.QMW1003P.TST, 00130001
// SPACE=(CYL,(1,1)),MGMTCLAS=COM#A092, 00140001
// RECFM=VB 00150001
//COPIES DD DISP=(MOD,CATLG,CATLG),DSN=DSN.QMW1003P.COPIES, 00160002
// SPACE=(CYL,(20,100)),MGMTCLAS=COM#A092, 00170001
// RECFM=VB 00180001
//ALTER DD DISP=(MOD,CATLG,CATLG),DSN=DSN.QMW1003P.ALTER, 00190002
// SPACE=(CYL,(20,100)),MGMTCLAS=COM#A092, 00200002
// RECFM=FB,LRECL=80 00210002
//ALOUT DD DISP=(MOD,CATLG,CATLG),DSN=DSN.QMW1003P.ALOUT, 00220002
// SPACE=(CYL,(20,100)),MGMTCLAS=COM#A092, 00230002
// RECFM=VBA,LRECL=121 00240002
//*--- 00250002
//P02 EXEC PGM=IKJEFT01, 00260002
// DYNAMNBR=200, 00270000
// TIME=99 00280000
//SYSTSIN DD * 00290002
DSN SYSTEM(DBZF) 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
//SYSIN DD DISP=SHR,DSN=DBZF.DBAA.LCTL(QMW10000) 00380002
//SYSREC00 DD DISP=OLD,DSN=DSN.QMW1003P.TST 00390002
//SYSREC01 DD DISP=OLD,DSN=DSN.QMW1003P.COPIES 00400002
//*--- 00410002
//P03 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00420002
// PARM=('%DB2COARC DBZF GEN') 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=TSO.RZ1.P0.PROD.EXEC 00500002
//TST DD DISP=SHR,DSN=*.P01.TST
//COPIES DD DISP=SHR,DSN=*.P01.COPIES
//ALTER DD DISP=OLD,DSN=*.P01.ALTER
//*---
//P04 EXEC PGM=IDCAMS
//SYSPRINT DD DISP=OLD,DSN=*.P01.ALOUT
//CEEDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSIN DD DISP=SHR,DSN=*.P01.ALTER
//*---
//P05 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=*.P01.ALOUT
//SYSUT2 DD SYSOUT=*
//*---
//P06 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM=('%DB2COARC DBZF check')
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=TSO.RZ1.P0.PROD.EXEC
//TST DD DISP=SHR,DSN=*.P01.TST
//ALOUT DD DISP=SHR,DSN=*.P01.ALOUT
//*---
// IF (ABEND OR NOT (RC <= 4 AND P04.RUN AND P06.RUN)) THEN
//*
//P07 EXEC PGM=OS3550,COND=EVEN
//SYSPRINT DD SYSOUT=*
//IEMLOG DD SYSOUT=*
//IEMAPI DD *
SUBJECT Copy Archive: JobFehler QMW1003P RZ1 DBZF
// DD DISP=SHR,DSN=DBZF.DBAA.LCTL(QMW1000M)
// DD *
rz=RZ1, subsys=DBZF, job=QMW1003P
// ENDIF