zOs/REXX/XBDDLCHK

$#:
mbr = QZXBDD00
mbr = DBO1015X
ddl = DSN.DBXDP4G.XDL($mbr)
ddl = A540769.TMP.SQL($mbr)
anaStdDsn = A540769.TMP.ANASTD($mbr)
anaComDsn = A540769.TMP.ANACOM($mbr)
dbSys = DP4G
stra = XBDDLCH#
cChgs = XBDDLCHK                    $** global change set for standard
caPre = DSN.CADB2.RZ4.P1
$#=
$>. fSub()
//XBDDLCHK JOB (CP00,KE50),'DB2 XB DDL CHECK',
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2
//*MAIN CLASS=LOG
//*** auto map ddl to ddl **********************************************
//* change    QZXBDD0C.0.006. strategy QZXBDD0#
//* changeRem zs test auf QZXBDD0C 0 import DBX
//AUTO1    EXEC PGM=PTLDRIVM,REGION=0M,
//             PARM=$"'SUFFIX=00,EP=RML$CMAI'"
//STEPLIB    DD DISP=SHR,DSN=$caPre.CDBALOAD
//           DD DISP=SHR,DSN=DB2@.RZ4.P0.DSNLOAD
//PTILIB     DD DISP=SHR,DSN=$caPre.CDBALOAD
//           DD DISP=SHR,DSN=DB2@.RZ4.P0.DSNLOAD
//PTIPARM    DD DISP=SHR,DSN=$caPre.CDBAPARM
//PTIXMSG    DD DISP=SHR,DSN=$caPre.CDBAXMSG
//MSGFILE    DD SYSOUT=*
//*BNLIGNR   DD DUMMY                 SUPPRESS ABENDAID DUMPS
//CNTLFILE   DD DUMMY
//DDLIN      DD DISP=SHR,DSN=$ddl
//DDLINTRG   DD DUMMY
//*DLINTRG   DD DISP=SHR,DSN=ORG.U0009.B0106.KIDI63.SKELS(DBXEMPTY)
//PARMFILE   DD *
 STRATEGY    $stra       -- new strategy
 CREATOR     DBX          -- new strategy
 SHAREOPT    U
 STRTSSID    $dbSys   -- ssid für Strategy
 STRTDESC    XBDDLCHK $ddl
 REPLACE
 EXPOPT      A           -- A=explode source keep Target, X=drop unmap
 TRGSSID     $dbSys   -- target
 RULECRTR    DBX       -- change rule set
 RULENAME    XBDDLCHK
 MASKCRTR    DBX       -- auto map mask
 MASKNAME    ALLLALLL
//*      no endIf
//       IF AUTO1.RUN AND AUTO1.RC = 0 THEN
//*** ca: analyze Strategy $stra *********************************
//ANA1  EXEC PGM=PTLDRIVM,REGION=0M,PARM='SUFFIX=00,EP=RML@MAIN'
//STEPLIB    DD DISP=SHR,DSN=$caPre.CDBALOAD
//           DD DISP=SHR,DSN=DB2@.RZ4.P0.DSNLOAD
//PTILIB     DD DISP=SHR,DSN=$caPre.CDBALOAD
//           DD DISP=SHR,DSN=DB2@.RZ4.P0.DSNLOAD
//PTIPARM    DD DISP=SHR,DSN=$caPre.CDBAPARM
//PTIXMSG    DD DISP=SHR,DSN=$caPre.CDBAXMSG
//MSGFILE    DD SYSOUT=*
//REPFILE    DD SYSOUT=*
//ABNLIGNR   DD DUMMY                 SUPPRESS ABENDAID DUMPS
//*                                   strategy
//DDLFILE    DD DISP=SHR,DSN=$anaStdDsn
//PARMFILE   DD *
 STRTSSID    $dbSys
 CREATOR     DBX
 STRATEGY    $stra
 AUXIMP      N
 MQTIMP
 REFMQT      N
 SEQIMP
 RTNIMP
 RTNIIO      N
 SQLID       S100447
 DDLONLY
 NOAUTHS
 HEADER
 TRAILER
 REPINDDL
 PREFIX      DSN.DBA
 MODEL4      @DEFAULT
 MODEL4C     S100447
 $@<dsn.dbx.glbChg($cChgs)
//       ENDIF
//       IF ANA1.RUN AND (ANA1.RC = 0 OR ANA1.RC = 4) THEN
//AUTO2    EXEC PGM=PTLDRIVM,REGION=0M,
//             PARM=$"'SUFFIX=00,EP=RML$CMAI'"
//STEPLIB    DD DISP=SHR,DSN=$caPre.CDBALOAD
//           DD DISP=SHR,DSN=DB2@.RZ4.P0.DSNLOAD
//PTILIB     DD DISP=SHR,DSN=$caPre.CDBALOAD
//           DD DISP=SHR,DSN=DB2@.RZ4.P0.DSNLOAD
//PTIPARM    DD DISP=SHR,DSN=$caPre.CDBAPARM
//PTIXMSG    DD DISP=SHR,DSN=$caPre.CDBAXMSG
//MSGFILE    DD SYSOUT=*
//*BNLIGNR   DD DUMMY                 SUPPRESS ABENDAID DUMPS
//CNTLFILE   DD DUMMY
//DDLIN      DD DISP=SHR,DSN=$anaStdDsn
//DDLINTRG   DD DISP=SHR,DSN=$ddl
//PARMFILE   DD *
 STRATEGY    $stra       -- new strategy
 CREATOR     DBX          -- new strategy
 SHAREOPT    U
 STRTSSID    $dbSys   -- ssid für Strategy
 STRTDESC    XBDDLCHK std->ddl1 $ddl
 REPLACE
 EXPOPT      X           -- A=explode source keep Target, X=drop unmap
 TRGSSID     $dbSys   -- target
 RULECRTR    DBX       -- change rule set
 RULENAME    ALL
 MASKCRTR    DBX       -- auto map mask
 MASKNAME    ALLLALLL
//       ENDIF
//       IF AUTO2.RUN AND AUTO2.RC = 0 THEN
//*** ca: analyze Strategy $stra *********************************
//ANA2  EXEC PGM=PTLDRIVM,REGION=0M,PARM='SUFFIX=00,EP=RML@MAIN'
//STEPLIB    DD DISP=SHR,DSN=$caPre.CDBALOAD
//           DD DISP=SHR,DSN=DB2@.RZ4.P0.DSNLOAD
//PTILIB     DD DISP=SHR,DSN=$caPre.CDBALOAD
//           DD DISP=SHR,DSN=DB2@.RZ4.P0.DSNLOAD
//PTIPARM    DD DISP=SHR,DSN=$caPre.CDBAPARM
//PTIXMSG    DD DISP=SHR,DSN=$caPre.CDBAXMSG
//MSGFILE    DD SYSOUT=*
//REPFILE    DD SYSOUT=*
//ABNLIGNR   DD DUMMY                 SUPPRESS ABENDAID DUMPS
//*                                   strategy
//DDLFILE    DD DISP=SHR,DSN=$anaComDsn
//PARMFILE   DD *
 STRTSSID    $dbSys
 CREATOR     DBX
 STRATEGY    $stra
 AUXIMP      N
 MQTIMP
 REFMQT      N
 SEQIMP
 RTNIMP
 RTNIIO      N
 SQLID       S100447
 DDLONLY
 NOAUTHS
 HEADER
 TRAILER
 REPINDDL
 PREFIX      DSN.DBA
 MODEL4      @DEFAULT
 MODEL4C     S100447
 $@<dsn.dbx.glbChg(alllAlll)
//       ENDIF