zOs/JCL/CAAUTDDL

//YWK40300 JOB (CP00,KE50),'DB2 DBX',
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG0
//* Funktion importAna DBAF Auftrag WK40300C db2=V1015 tool=V
//* dbx import: compare automap creating strategy
//* change    WK40300C038_TEST
//* changeRem zs Test auf WK40300C E import DBX
//AUTOMAP  EXEC PGM=PTLDRIVM,REGION=0M,PARM='SUFFIX=00,EP=RML$CMAI'
//STEPLIB    DD DISP=SHR,DSN=DSN.CADB2.RZ1.P0.CDBALOAD
//           DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//PTILIB     DD DISP=SHR,DSN=DSN.CADB2.RZ1.P0.CDBALOAD
//           DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//PTIPARM    DD DISP=SHR,DSN=DSN.CADB2.RZ1.P0.CDBAPARM
//PTIXMSG    DD DISP=SHR,DSN=DSN.CADB2.RZ1.P0.CDBAXMSG
//MSGFILE    DD SYSOUT=*
//ABNLIGNR   DD DUMMY                 SUPPRESS ABENDAID DUMPS
//CNTLFILE   DD DISP=SHR,DSN=DSN.DBX.ZZZDUMMY(WK40300E)
//DDLIN      DD DISP=SHR,
//             DSN=DSN.DBX.CACDL(WK40300E)
//DDLINTRG   DD DISP=SHR,
//             DSN=DSN.DBX.CACDL(EMPTY)
//PARMFILE   DD *
 STRATEGY    WK40300X     -- new strategy
 CREATOR     DBX          -- new strategy
 SHAREOPT    Y
 STRTSSID    DBAF     -- ssid für Strategy
 STRTDESC    WK40300C038_TEST zs Test auf WK40300C E import DBX
 REPLACE
 EXPOPT      A           -- A=explode source keep Target, X=drop unmap
 TRGSSID     DBAF     -- target
 RULECRTR    S100447       -- change rule set
 RULENAME    @DEFAULT
 MASKCRTR    A540769       -- auto map mask
 MASKNAME    WKA2B
//       IF AUTOMAP.RC = 0 THEN
//* ca: analyze strategy
//ANA      EXEC PGM=PTLDRIVM,REGION=0M,PARM='SUFFIX=00,EP=RML@MAIN'
//STEPLIB    DD DISP=SHR,DSN=DSN.CADB2.RZ1.P0.CDBALOAD
//           DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//PTILIB     DD DISP=SHR,DSN=DSN.CADB2.RZ1.P0.CDBALOAD
//           DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//PTIPARM    DD DISP=SHR,DSN=DSN.CADB2.RZ1.P0.CDBAPARM
//PTIXMSG    DD DISP=SHR,DSN=DSN.CADB2.RZ1.P0.CDBAXMSG
//MSGFILE    DD SYSOUT=*
//REPFILE    DD SYSOUT=*
//ABNLIGNR   DD DUMMY                 SUPPRESS ABENDAID DUMPS
//*                                   strategy
//DDLFILE    DD DISP=SHR,DSN=DSN.DBXDBAF.STRY(WK40300X)
//PARMFILE   DD *
 STRTSSID    DBAF
 CREATOR     DBX
 STRATEGY    WK40300X
 AUXIMP      N
 MQTIMP
 REFMQT      N
 SEQIMP
 RTNIMP
 RTNIIO      N
 SQLID       S100447
 UNLOAD
 NOAUTHS
 HEADER
 TRAILER
 REBIND
 RECOVIX
 REORGTS
 IMAGCOPY    PARTITION
 PREFIX      DSN.DBA
 MODEL4      @DEFAULT
 MODEL4C     S100447
 RULESET     DBXNN
 RULECR      A540769
 GLBLNAME  WKA2B                -- 8.11.12 14:45
 GLBLCRTR  A540769
 ALCR      A540769              A540769B
 ALDB      DA540769             DA54076B
 ALSG      *                    GSMS
 TSSS      0                    0
 TSSS      *                    64
 TSCP      *                    YES
 VWTC      A540769              A540769B
 VWFS      A540769              A540769B
 TGSC      A540769              A540769B
 TGTO      A540769              A540769B
 TGTC      A540769              A540769B
 TGFS      A540769              A540769B
 TGQS      A540769              A540769B
 SQSC      A540769              A540769B
 RTSC      A540769              A540769B
//       ENDIF
//       IF ABEND OR NOT (AUTOMAP.RUN AND
//          (AUTOMAP.RC = 0 OR AUTOMAP.RC = 4)) THEN
//PERROR   EXEC PGM=IDCAMS
//SYSPRINT   DD SYSOUT=*
//SYSIN      DD *
   SET MAXCC = 12
//       ENDIF