//A5407698 JOB (CP00,KE50), 00010003
// 'CATALOG',MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M 00030000
//*MAIN CLASS=LOG 00040000
//JOBLIB DD DISP=SHR,DSN=MQM.QP00 00050000
//*--- 00060000
//*--- verantwortlich kiut 23 - Db2 Administration 00070000
//*--- bei Fehler oder Abend: 00080000
//*--- kein Pikett Aufgebot 00090000
//*--- Ticket nur, falls P07 kein Mail schicken konnte 00100000
//*--- 00110000
//P01 EXEC PGM=IEFBR14 00120000
//TST DD DISP=(MOD,CATLG,CATLG),DSN=DSN.QMW1007P.TST, 00130000
// SPACE=(CYL,(1,1)),MGMTCLAS=COM#A092, 00140002
// RECFM=VB 00150000
//COPIES DD DISP=(MOD,CATLG,CATLG),DSN=DSN.QMW1007P.COPIES, 00160000
// SPACE=(CYL,(20,100)),MGMTCLAS=COM#A092, 00170002
// RECFM=VB 00180000
//ALTER DD DISP=(MOD,CATLG,CATLG),DSN=DSN.QMW1007P.ALTER, 00190000
// SPACE=(CYL,(20,100)),MGMTCLAS=COM#A092, 00200002
// RECFM=FB,LRECL=80 00210000
//ALOUT DD DISP=(MOD,CATLG,CATLG),DSN=DSN.QMW1007P.ALOUT, 00220000
// SPACE=(CYL,(20,100)),MGMTCLAS=COM#A092, 00230002
// RECFM=VBA,LRECL=121 00240000
//*--- 00250000
//P02 EXEC PGM=IKJEFT01, 00260000
// DYNAMNBR=200, 00270000
// TIME=99 00280000
//SYSTSIN DD * 00290000
DSN SYSTEM(DBOC) 00300000
RUN PROGRAM(DSNTIAUL) PARMS('SQL') 00310000
END 00320000
//SYSTSPRT DD SYSOUT=* 00330000
//SYSPRINT DD SYSOUT=* 00340000
//SYSUDUMP DD SYSOUT=* 00350000
//SYSTERM DD DUMMY 00360000
//SYSPUNCH DD SYSOUT=* 00370000
//SYSIN DD DISP=SHR,DSN=DBOC.DBAA.LCTL(QMW10000) 00380000
//SYSREC00 DD DISP=OLD,DSN=DSN.QMW1007P.TST 00390000
//SYSREC01 DD DISP=OLD,DSN=DSN.QMW1007P.COPIES 00400000
//*--- 00410000
//P03 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00420000
// PARM=('%DB2COARC DBOC GEN') 00430001
//SYSIN DD DUMMY 00440000
//SYSTSIN DD DUMMY 00450000
//SYSTSPRT DD SYSOUT=* 00460000
//SYSPRINT DD SYSOUT=* 00470000
//SYSUDUMP DD SYSOUT=* 00480000
//SYSTERM DD DUMMY 00490000
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX 00500003
//TST DD DISP=SHR,DSN=*.P01.TST 00510000
//COPIES DD DISP=SHR,DSN=*.P01.COPIES 00520000
//ALTER DD DISP=OLD,DSN=*.P01.ALTER 00530000
//*--- 00540000
//P04 EXEC PGM=IDCAMS 00550000
//SYSPRINT DD DISP=OLD,DSN=*.P01.ALOUT 00560000
//CEEDUMP DD SYSOUT=* 00570000
//SYSABEND DD SYSOUT=* 00580000
//SYSIN DD DISP=SHR,DSN=*.P01.ALTER 00590000
//*--- 00600000
//P05 EXEC PGM=IEBGENER 00610000
//SYSPRINT DD SYSOUT=* 00620000
//SYSUT1 DD DISP=SHR,DSN=*.P01.ALOUT 00630000
//SYSUT2 DD SYSOUT=* 00640000
//*--- 00650000
//P06 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00660000
// PARM=('%DB2COARC DBOC check') 00670001
//SYSIN DD DUMMY 00680000
//SYSTSIN DD DUMMY 00690000
//SYSTSPRT DD SYSOUT=* 00700000
//SYSPRINT DD SYSOUT=* 00710000
//SYSUDUMP DD SYSOUT=* 00720000
//SYSTERM DD DUMMY 00730000
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX 00740003
//TST DD DISP=SHR,DSN=*.P01.TST 00750000
//ALOUT DD DISP=SHR,DSN=*.P01.ALOUT 00760000
//*--- 00770000
// IF (ABEND OR NOT (RC <= 4 AND P04.RUN AND P06.RUN)) THEN 00780001
//* 00790001
//P07 EXEC PGM=OS3550 00800001
//SYSPRINT DD SYSOUT=* 00810001
//IEMLOG DD SYSOUT=* 00820001
//IEMAPI DD * 00830001
SUBJECT Copy Archive: JobFehler QMW1002P RZ1 DBOC 00840001
// DD DISP=SHR,DSN=DBOC.DBAA.LCTL(QMW1000M) 00850001
// DD * 00860001
rz=RZ1, subsys=DBOC, job=QMW1007P 00870001
// ENDIF 00880001