zOs/JCL/QMW1000P
//QMW1000P JOB (PD00,KE50,,SP00000000),
// 'DB2 CMD',TIME=120,REGION=0M,
// MSGCLASS=E
//*OMS NET=%%GROUP
//**CONTROL-M-JOB
//* %%GLOBAL GLOBAL
//* %%INCLIB PCL.U0000.P0.RZ2AKT.PERM.@007.JVA %%INCMEM JOBLRZ2P
// DD DSN=MQM.QP00,DISP=SHR
//*MAIN CLASS=SUBP2
//* %%SET %%SUBSYS = DBTF
//*--- 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.%%JOBNAME.TST, 00130001
// SPACE=(CYL,(1,1)),MGMTCLAS=COM#A092, 00140001
// RECFM=VB 00150001
//COPIES DD DISP=(MOD,CATLG,CATLG),DSN=DSN.%%JOBNAME.COPIES, 00160002
// SPACE=(CYL,(20,100)),MGMTCLAS=COM#A092, 00170001
// RECFM=VB 00180001
//ALTER DD DISP=(MOD,CATLG,CATLG),DSN=DSN.%%JOBNAME.ALTER, 00190002
// SPACE=(CYL,(20,100)),MGMTCLAS=COM#A092, 00200002
// RECFM=FB,LRECL=80 00210002
//ALOUT DD DISP=(MOD,CATLG,CATLG),DSN=DSN.%%JOBNAME.ALOUT, 00220002
// SPACE=(CYL,(20,100)),MGMTCLAS=COM#A092, 00230002
// RECFM=VBA,LRECL=121 00240002
//*--- 00250002
//P02 EXEC PGM=IKJEFT01,DYNAMNBR=200 00260002
//SYSTSIN DD * 00290002
DSN SYSTEM(%%SUBSYS) 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=%%SUBSYS.DBAA.LCTL(QMW10000) 00380002
//SYSREC00 DD DISP=OLD,DSN=DSN.%%JOBNAME.TST 00390002
//SYSREC01 DD DISP=OLD,DSN=DSN.%%JOBNAME.COPIES 00400002
//*--- 00410002
//P03 EXEC PGM=IKJEFT01,DYNAMNBR=200 00420002
// PARM=('%DB2COARC %%SUBSYS 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.RZ%%RZ.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
// PARM=('%DB2COARC %%SUBSYS 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.RZ%%RZ.P0.PROD.EXEC 00500002
//TST DD DISP=SHR,DSN=*.P01.TST
//ALOUT DD DISP=SHR,DSN=*.P01.ALOUT
//*---
// IF (ABEND OR RC > 4 OR NOT (P04.RUN AND P06.RUN)) THEN
//*
//P07 EXEC PGM=OS3550,COND=EVEN
//SYSPRINT DD SYSOUT=*
//IEMLOG DD SYSOUT=*
//IEMAPI DD *
SUBJECT Copy Archive: JobFehler %%JOBNAME RZ%%RZ %%SUBSYS
// DD DISP=SHR,DSN=%%SUBSYS.DBAA.LCTL(QMW0000M)
// DD *
rz=RZ%%RZ, subsys=%%SUBSYS, job=%%JOBNAME
// ENDIF