//*--- run batchprocessor for a strategy -------------------------------00010000
//* 00010100
//* Achtung: um alte Unloads bei rerun zu renamen, benutze 00010200
//* TSO DBX %INMEM REN %SSID 00010300
//* 00010400
//* Ablauf 00010500
//* 1) RDL (recovery ddl) erstellen 00010700
//* 2) Ana und recovery ddl archivieren 00010800
//* 3) options modifizieren 00010900
//* 4) batchProzessor auf strategy 00011000
//* 5) execution Audit archivieren (rename) 00011100
//* 00011200
//* strategy %INMEM 00012000
//* dbSys %SSID 00020000
//* inDsn %INDSN 00030000
//* 00030100
//*** create RDL (recovery ddl) with quickMigrate ********************* 00031000
//S01RDL EXEC PGM=PTLDRIVM,REGION=0M,PARM='SUFFIX=00,EP=RML@MAIN' 00032000
//STEPLIB DD DISP=SHR,DSN=DSN.CADB2.RZ4.P0.CDBALOAD 00033000
// DD DISP=SHR,DSN=DB2@.RZ4.P0.DSNLOAD 00034000
//PTILIB DD DISP=SHR,DSN=DSN.CADB2.RZ4.P0.CDBALOAD 00035000
// DD DISP=SHR,DSN=DB2@.RZ4.P0.DSNLOAD 00036000
//PTIPARM DD DISP=SHR,DSN=DSN.CADB2.RZ4.P0.CDBAPARM 00037000
//PTIXMSG DD DISP=SHR,DSN=DSN.CADB2.RZ4.P0.CDBAXMSG 00038000
//MSGFILE DD SYSOUT=* 00039000
//REPFILE DD SYSOUT=* 00039100
//DDLFILE DD DISP=SHR,DSN=DSN.DBX%SSID..RDL(%INMEM) 00039200
//PARMFILE DD * 00039300
STRTSSID %SSID 00039400
CREATOR DBX 00039500
QUICKM 00039600
// DD DISP=SHR,DSN=DSN.DBX%SSID..QUICK(%INMEM) 00039700
// DD * 00039800
QUICKEND 00039900
TRGSSID %SSID 00040000
COMMENT "dbx execute generate RDL for %INMEM" 00040100
OMAPPNEW 00040200
OMRETMIN * 00040300
OMRETMAX * 00040400
OMRETAGE * 00040500
AUXIMP N 00040600
MQTIMP N 00040700
REFMQT N 00040800
RI LOCAL 00041000
LOBTOO 00041100
SEQIMP 00041200
VWIMPEXP 00041300
RTNIMP A 00041400
RTNIIO Y 00041500
NOAUTHS 00041600
DDLONLY 00041700
HEADER 00041800
TRAILER 00041900
REPINDDL 00042000
PREFIX DSN.DBY 00042100
MODEL4 @DEFAULT 00042200
MODEL4C S100447 00042300
// IF S01RDL.RUN AND (S01RDL.RC=0 OR S01RDL.RC=4) THEN 00042400
//*** ca: archive strategy & recoverDDL ******************************* 00042500
//S02ARC1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00042600
//SYSPROC DD DISP=SHR,DSN=DSN.DB2.EXEC 00042700
//SYSPRINT DD SYSOUT=* 00042800
//SYSUDUMP DD SYSOUT=* 00042900
//SYSTSPRT DD SYSOUT=* 00043000
//START DD DISP=(MOD,CATLG),MGMTCLAS=COM#A069, 00043100
// DCB=(RECFM=FB,LRECL=80,DSORG=PS), 00043200
// DSN=DSN.DBY%SSID..%SUBSTR(1,7,%INMEM).START 00043300
//SYSTSIN DD * 00043400
%%ANAPOST ARC %SSID %INDSN + 00043500
DSN.DBX%SSID..RDL(QTM2UTSB) + 00043600
DSN.DBY%SSID..%INMEM..##DT##.EXE 00043700
// ENDIF 00043800
// IF S02ARC1.RUN AND S02ARC1.RC=0 THEN 00043900
//* ca: modify opt input -----------------------------------------------00140000
//S03OPT EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00150000
// PARM='%%BPOPT' 00160000
//SYSIN DD DUMMY 00170000
//SYSTSIN DD DUMMY 00180000
//SYSTSPRT DD SYSOUT=* 00190000
//SYSPRINT DD SYSOUT=* 00200000
//SYSUDUMP DD SYSOUT=* 00210000
//SYSTERM DD DUMMY 00220000
//SYSPROC DD DISP=SHR,DSN=DSN.CADB2.CS.EXEC 00230000
//MODOPT DD DISP=(,PASS),MGMTCLAS=D001N000 00240000
//BPIOPT DD * 00260000
// ENDIF 00261000
// IF S03OPT.RUN AND S03OPT.RC = 0 THEN 00270000
//* ca: execute analysis with modified options -------------------------00290000
//S04EXE EXEC PGM=PTLDRIVM,REGION=4M,PARM='%SUFFIX.EP=BPLBCTL' 00300000
#INCLUDE STEPLIB 00310000
#INCLUDE PTILIB 00320000
#INCLUDE PTIPARM 00330000
//PTIXMSG DD DISP=SHR,DSN=%*XMSG1 00340000
//SYSOUT DD SYSOUT=* 00350000
//PTIIMSG DD SYSOUT=* 00360000
//UTPRINT DD SYSOUT=* 00370000
//ABNLIGNR DD DUMMY SUPPRESS ABENDAID DUMPS 00380000
//AUDIT DD DISP=(NEW,CATLG,CATLG),MGMTCLAS=COM#A049, 00390000
// DSN=DSN.DBY%SSID..%INMEM..##DT##.EXE 00400000
//START DD DISP=OLD,DSN=*.S02ARC1.START 00410000
//SYSPROC DD DISP=SHR,DSN=DSN.DB2.EXEC 00420000
// DD DISP=SHR,DSN=DSN.CADB2.CS.EXEC 00421000
//SYSTEMPL DD DISP=SHR,DSN=%SSID..DBAA.LISTDEF(TEMPL) 00430000
//SYSUT1 DD UNIT=%GENUNIT,SPACE=(CYL,(30,30)) 00440000
//SYSREC DD UNIT=%GENUNIT,SPACE=(TRK,(1,1)) 00450000
#IF(%IPTISDSN) 00460000
//BPIIPT DD DISP=SHR, 00470000
// DSN=%INDSN 00480000
#ENDIF 00490000
//BPIOPT DD DISP=SHR, 00500000
// DSN=*.S03OPT.MODOPT 00510000
// ENDIF 00520000
//*** ca: rename execution log **************************************** 00521000
// IF S04EXE.ABEND OR S04EXE.RUN THEN 00522000
//S05ARC2 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00523000
//SYSPROC DD DISP=SHR,DSN=DSN.DB2.EXEC 00524000
//SYSPRINT DD SYSOUT=* 00525000
//SYSUDUMP DD SYSOUT=* 00526000
//SYSTSPRT DD SYSOUT=* 00527000
//SYSTSIN DD * 00528000
%%ANAPOST ARC %SSID DSN.DBY%SSID..%INMEM..##DT##.EXE 00529000
// ENDIF 00529100
//*--- end batchprocessor from dsn.cadb2.rz1.p2.cdbamdl(mjbpmdl) -------00530000