zOs/JCL/QMW1099Q

//QMW1000S JOB (PD00,KE30,,SS00000000),
//             'DB2 CMD',
//             MSGCLASS=T
//*---- SUBMITTED BY CONTROL-M (FROM MEMLIB)      ODATE=080325
//*---- SCHEDULE (UNKNOWN)
//*---- SCHEDULED DUE TO TAG:
//*---- JCL      JOB.U0000.S0.RZ2AKT.OVER.@005.JCO(QMW1000S)
//*---- CONTROL-M JOB IDENTIFICATION:  ORDER ID=ZZZZZ  RUN NO.=00001
//*---- OMS NET=
//******************************************* S K A - SYSTEMTEST SI7230
//* %%GLOBAL GLOBAL
//* %%INCLIB  PCS.U0000.S0.RZ1AKT.PERM.@007.JVA  %%INCMEM JOBLRZ1S
//*JOBFROM A540769
//JOBLIB DD DSN=PCL.U0000.S0.RZ1AKT.PROM.@008.LLB,DISP=SHR
//       DD DSN=PCL.U0000.S0.RZ1AKT.PROM.@008.LLG,DISP=SHR
//       DD DSN=PCL.U0000.P0.RZ1AKT.PERM.@008.LLB,DISP=SHR
//       DD DSN=PCL.U0000.P0.RZ1AKT.PERM.@008.LLG,DISP=SHR
//           DD DSN=MQM.QT00,DISP=SHR
//*MAIN CLASS=SUBT0
//* %%SET %%SUBSYS  = DBAF
//********************************************************************
//*                         JCLPREP   25/03/2008   15:18:43   A965472
//********************************************************************
//*
//P02     EXEC PGM=IEFBR14
//TST       DD DSN=DSN.QMW1000.DBAF.TST,
//             DISP=(MOD,CATLG),
//             MGMTCLAS=COM#A092,
//             SPACE=(CYL,(15,75),RLSE),
//             RECFM=VB
//COPIES    DD DSN=DSN.QMW1000.DBAF.COPIES,
//             DISP=(MOD,CATLG),
//             MGMTCLAS=COM#A092,
//             SPACE=(CYL,(15,75),RLSE),
//             RECFM=VB
//ALTER     DD DSN=DSN.QMW1000.DBAF.ALTER,
//             DISP=(MOD,CATLG),
//             MGMTCLAS=COM#A092,
//             SPACE=(CYL,(15,75),RLSE),
//             RECFM=FB,LRECL=80
//ALOUT     DD DSN=DSN.QMW1000.DBAF.ALOUT,
//             DISP=(MOD,CATLG),
//             MGMTCLAS=COM#A092,
//             SPACE=(CYL,(15,75),RLSE),
//             RECFM=VBA,LRECL=121
//*
// IF P02.RC = 0 THEN
//P03     EXEC PGM=IKJEFT01,
//             DYNAMNBR=200
//SYSTSIN   DD *
   DSN SYSTEM(DBAF)
   RUN PROGRAM(DSNTIAUL) PARMS('SQL')
   END
//SYSTSPRT  DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSTERM   DD DUMMY
//SYSPUNCH  DD SYSOUT=*
//SYSIN     DD DSN=DBAF.DBAA.LCTL(QMW10000),DISP=SHR
//SYSREC00  DD DSN=*.P02.TST,DISP=OLD
//SYSREC01  DD DSN=*.P02.COPIES,DISP=OLD
// ENDIF
//*
// IF P03.RC <= 4 THEN
//P04     EXEC PGM=IKJEFT01,
//             DYNAMNBR=200,
//             PARM=('%DB2COARC DBAF GEN')
//SYSIN     DD DUMMY
//SYSTSIN   DD DUMMY
//SYSTSPRT  DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSTERM   DD DUMMY
//SYSPROC   DD DSN=TSO.RZ1.P0.PROD.EXEC,DISP=SHR
//TST       DD DSN=*.P02.TST,DISP=SHR
//COPIES    DD DSN=*.P02.COPIES,DISP=SHR
//ALTER     DD DSN=*.P02.ALTER,DISP=OLD
// ENDIF
//*
// IF P04.RC = 0 THEN
//P05     EXEC PGM=IDCAMS
//SYSPRINT  DD DSN=*.P02.ALOUT,DISP=OLD
//CEEDUMP   DD SYSOUT=*
//SYSABEND  DD SYSOUT=*
//SYSIN     DD DSN=*.P02.ALTER,DISP=SHR
// ENDIF
//*--------------------------------------------------------***
//* COPY TO SYSOUT
//*--------------------------------------------------------***
//*
// IF P05.RC <= 4 THEN
//P06     EXEC PGM=ICEGENER
//SYSPRINT  DD SYSOUT=*
//SYSUT1    DD DSN=*.P02.ALOUT,DISP=SHR
//SYSUT2    DD SYSOUT=*
// ENDIF
//*
// IF P06.RC = 0 THEN
//P07     EXEC PGM=IKJEFT01,
//             DYNAMNBR=200,
//             PARM=('%DB2COARC DBAF check')
//SYSIN     DD DUMMY
//SYSTSIN   DD DUMMY
//SYSTSPRT  DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSTERM   DD DUMMY
//SYSPROC   DD DSN=TSO.RZ1.P0.PROD.EXEC,DISP=SHR
//TST       DD DSN=*.P02.TST,DISP=SHR
//ALOUT     DD DSN=*.P02.ALOUT,DISP=SHR
// ENDIF
//*
// IF (ABEND OR RC > 4 OR NOT (P05.RUN AND P07.RUN)) THEN
//P08     EXEC PGM=OS3550
//SYSPRINT  DD SYSOUT=*
//IEMLOG    DD SYSOUT=*
//IEMAPI    DD *
SUBJECT    Copy Archive: JobFehler QMW1000S RZ1 DBAF
//          DD DSN=DBAF.DBAA.LCTL(QMW0000M),DISP=SHR
//          DD *
           rz=RZ1, subsys=DBAF, job=QMW1000S
// ENDIF
//*                                                     SI7400 25.03.08
//