zOs/JCL/CADSAR

//A540769W JOB (CP00,KE50),'DB2 REO',
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG0
//* create ddl from source spec
//DDL      EXEC PGM=PTLDRIVM,REGION=0M,PARM='SUFFIX=00,EP=RML@MAIN'
//STEPLIB  DD DISP=SHR,DSN=DSN.CA.CDBALOAD
//         DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//PTILIB   DD DISP=SHR,DSN=DSN.CA.CDBALOAD
//         DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//PTIPARM  DD DISP=SHR,DSN=DSN.CA.CDBAPARM
//PTIXMSG  DD DISP=SHR,DSN=DSN.CA.CDBAXMSG
//MSGFILE  DD   SYSOUT=*                                                00110002
//REPFILE  DD   SYSOUT=*                                                00120002
//DDLFILE  DD   DISP=SHR,                                               00132002
//           DSN=A540769.TMP.SQL(WK911G)   -> GENDDL
//PARMFILE DD   *                                                       00135002
 STRTSSID DBAF
 CREATOR  A540769
 QUICKM
 TABLESPACE DGDB9998    A911K
 EXPLODE    TABLE
 EXPLODE    INDEX
 EXPLODE    VIEW
 EXPLODE    SYNONYM
 EXPLODE    TRIGGER
 EXPLODE    MQTB_T
 EXPLODE    MQTB_I
 EXPLODE    MQTB_V
 EXPLODE    MQTB_S
 EXPLODE    MQVW_VW
 EXPLODE    MQVW_I
 EXPLODE    MQVW_V
 EXPLODE    MQVW_S
 VIEW       GDB9998     VWK9210
 QUICKEND
 TRGSSID  DBAF
 AUXIMP   N
 MQTIMP   N
 REFMQT   N
 SEQIMP
 VWIMPEXP
 RTNIMP
 RTNIIO   N
 UNLOAD
 NOAUTHS
 DDLONLY
 HEADER
 TRAILER
 PREFIX   A540769
 MODEL4   @DEFAULT
 MODEL4C  A351153
 GLBLNAME  PROTTWAL                global change set
 GLBLCRTR  A540769
 ALCR      GDB9998              A540769  global change set must be exp
 ALDB      DGDB9998             DA540769
 SGNM      *                    GSMS
 TSSS      *                    64
 TSBP      *                    BP2
 VWTC      GDB9998              A540769        view text creator
 VWFS      GDB9998              A540769        view func schema
//* compare automap creating strategy
//AUTOMAP  EXEC PGM=PTLDRIVM,REGION=0M,PARM='SUFFIX=00,EP=RML$CMAI'
//STEPLIB  DD DISP=SHR,DSN=DSN.CA.CDBALOAD
//         DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//PTILIB   DD DISP=SHR,DSN=DSN.CA.CDBALOAD
//         DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//PTIPARM  DD DISP=SHR,DSN=DSN.CA.CDBAPARM
//MSGFILE  DD   SYSOUT=*                                                00110002
//ABNLIGNR DD   DUMMY                 SUPPRESS ABENDAID DUMPS           00130002
//CNTLFILE DD DISP=SHR,DSN=A540769.TMP.TEXT(AAA)                        00132002
//DDLIN    DD   DISP=SHR,                                               00132002
//           DSN=*.DDL.DDLFILE
//PARMFILE DD   *                                                       00135002
 STRATEGY  WK911G      -- new strategy
 CREATOR   A540769      -- new strategy
 SHAREOPT   Y
 STRTSSID   DBAF        -- ssid für Strategy
 STRTDESC   Beschreibung kommt hier
 EXPOPT     A           -- explode all
 TRGSSID    DBAF        -- target
 MASKCRTR   A540769     -- auto map mask
 MASKNAME   TWALWAL
 RULECRTR   A540769     -- change rule set
 RULENAME   TWALWAL
//* analyze strategy
//ANA      EXEC PGM=PTLDRIVM,REGION=0M,PARM='SUFFIX=00,EP=RML@MAIN'
//STEPLIB  DD DISP=SHR,DSN=DSN.CA.CDBALOAD
//         DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//PTILIB   DD DISP=SHR,DSN=DSN.CA.CDBALOAD
//         DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//PTIPARM  DD DISP=SHR,DSN=DSN.CA.CDBAPARM
//PTIXMSG  DD   DISP=SHR,DSN=DSN.CA.CDBAXMSG
//MSGFILE  DD   SYSOUT=*                                                00110002
//REPFILE  DD   SYSOUT=*                                                00120002
//ABNLIGNR DD   DUMMY                 SUPPRESS ABENDAID DUMPS           00130002
//DDLFILE  DD   DISP=SHR,                                               00132002
//           DSN=A540769.TMP.TEXT(WK911G) --> strategy
//PARMFILE DD   *                                                       00135002
 STRTSSID DBAF
 CREATOR  A540769
 STRATEGY WK911G
 AUXIMP   N
 MQTIMP
 REFMQT   N
 SEQIMP
 RTNIMP
 RTNIIO   N
 SQLID    S100447
 UNLOAD
 NOAUTHS
 HEADER
 TRAILER
 PREFIX   A540769
 MODEL4   @DEFAULT
 MODEL4C  A351153
 RULESET  IGNORE
 RULECR   A540769
//* execute strategy
//RUN      EXEC PGM=PTLDRIVM,REGION=4M,PARM='SUFFIX=00,EP=BPLBCTL'
//STEPLIB  DD DISP=SHR,DSN=DSN.CA.CDBALOAD
//         DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//PTILIB   DD DISP=SHR,DSN=DSN.CA.CDBALOAD
//         DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//PTIPARM  DD DISP=SHR,DSN=DSN.CA.CDBAPARM
//PTIXMSG  DD DISP=SHR,DSN=DSN.CA.CDBAXMSG
//SYSOUT   DD SYSOUT=*
//PTIIMSG  DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//ABNLIGNR DD DUMMY                 SUPPRESS ABENDAID DUMPS
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(30,30))
//SYSREC   DD UNIT=SYSDA,SPACE=(TRK,(1,1))
//BPIIPT   DD DISP=SHR,
//        DSN=*.ANA.DDLFILE
//BPIOPT   DD   *
.CONTROL BPID(A540769.TMP.TEXT-WK911G) +
 LOGID(DBAF) UNIT(SYSDA) --> syncpoints of run
.LIST SYSOUT(A)
.OPTION   ERRORS NOSQLERRORS RETRY(96)   BINDERRORS    +
   DISCARDS
.CONNECT DBAF