zOs/war/skels0
}¢--- A540769.WK.SKELS(DBXANA) cre=2007-06-29 mod=2011-06-21-12.04.41 A540769 ---
//EXDLTA EXEC PGM=IKJEFT01,DYNAMNBR=100
//STEPLIB DD DISP=SHR,DSN=DSN.ADB72.${rz}.C0.SADBLLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBLLIB
// DD DISP=SHR,DSN=${dsnload}
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM($subsys)
RUN PROG(ADBCVEX) PLAN(ADB)
//SYSPRINT DD SYSOUT=*
//REPORT DD SYSOUT=*
//VEROUT DD DISP=(NEW,PASS,DELETE),
// SPACE=(TRK,(20,20,0)),LRECL=16384,RECFM=VB,BLKSIZE=27998
//PARMIN DD *
VQUAL='F540769',
VNAME='$DELTAVERS';
//*
//**********************************************************************
//*
//* STEP EXOBJS1: EXTRACT DB2 CATALOG OBJECTS FROM VERSION FILE
//*
//******************************************************ADBCVOB*********
//EXOBJS1 EXEC PGM=ADBCVOB
//STEPLIB DD DISP=SHR,DSN=DSN.ADB72.${rz}.C0.SADBLLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBLLIB
//SYSPRINT DD SYSOUT=*
//INDD DD DISP=SHR,DSN=*.EXDLTA.VEROUT
//REPORT DD SYSOUT=*
//OUTDD DD DISP=(NEW,PASS,DELETE),
// SPACE=(TRK,(10,10,0)),LRECL=80,RECFM=FBA
//***********************************************************ADB2GEN***
//* STEP GNSQL2: GENERATE SQL FROM DB2 CATALOG
//**********************************************************************
//GNSQL2 EXEC PGM=IKJEFT01,DYNAMNBR=100
//STEPLIB DD DISP=SHR,DSN=DSN.ADB72.${rz}.C0.SADBLLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBLLIB
// DD DISP=SHR,DSN=${dsnload}
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM($subsys)
RUN PROG(ADB2GEN) PLAN(ADB) -
PARMS('/WRTCAT,NOGEN,REBIND')
END
//SYSPRINT DD SYSOUT=*
//SQL DD DSN=&&SQLTEMP,
// DCB=(LRECL=80,RECFM=FB,DSORG=PS),
// SPACE=(TRK,(5,5),RLSE),
// UNIT=DISK,
// DISP=(NEW,PASS)
//SQLOUT DD DUMMY
//CAT DD DSN=&&CATOUT,
// DCB=(LRECL=16800,RECFM=VB,DSORG=PS),
// SPACE=(TRK,(15,15),RLSE),
// UNIT=DISK,
// DISP=(NEW,PASS)
//IN DD DISP=SHR,
// DSN=*.EXOBJS1.OUTDD
//**********************************************************************
//*
//* STEP MERGE3: MERGE
//*
//******************************************************ADBCCME*********
//MERGE3 EXEC PGM=ADBCCME,PARM=('/CHGBASE')
//STEPLIB DD DISP=SHR,DSN=DSN.ADB72.${rz}.C0.SADBLLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBLLIB
//REPORT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSOUT DD DUMMY
//BASEIN DD DISP=SHR,DSN=*.GNSQL2.CAT
//DELTAIN DD DISP=SHR,DSN=*.EXDLTA.VEROUT
//SRTBOUT DD DSN=&SRTBOUT,DISP=(,DELETE),SPACE=(CYL,(10,10)),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),UNIT=DISK
//SRTDOUT DD DSN=&SRTDOUT,DISP=(,DELETE),SPACE=(CYL,(10,10)),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),UNIT=DISK
//SRTCIN DD DSN=&SRTCIN,DISP=(,DELETE),SPACE=(CYL,(10,10)),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),UNIT=DISK
//SRTCOUT DD DISP=(NEW,PASS,DELETE),DSN=&SRTCOUT,
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),
// SPACE=(CYL,(10,10),RLSE),UNIT=DISK
//SRTNIN DD DSN=&SRTNIN,DISP=(,DELETE),SPACE=(CYL,(10,10)),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),UNIT=DISK
//SRTNOUT DD DISP=(NEW,PASS,DELETE),DSN=&SRTNOUT,
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),
// SPACE=(CYL,(10,10),RLSE),UNIT=DISK
// ENDIF
//**********************************************************************
//*
//* DB2 OBJECT COMPARISON TOOL
//*
//* STEP COMP4: COMPARE
//*
//***********************************************************GOCCMP*****
//COMP4 EXEC PGM=GOC2CMP,PARM=('/;REORGM,RUNID(S100447)',
// 'ANALYZE,')
//STEPLIB DD DISP=SHR,DSN=DSN.ADB72.${rz}.C0.SADBLLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBLLIB
// DD DISP=SHR,DSN=${dsnload}
//REPORT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSOUT DD DUMMY
//MASKS DD DUMMY
//IGNORES DD DUMMY
//SRC DD DISP=SHR,
// DSN=*.MERGE3.SRTNOUT
//SRCSIN DD DSN=&SRCSIN,DISP=(,DELETE),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),
// SPACE=(CYL,(10,20),RLSE),
// UNIT=DISK
//SRCSOUT DD DSN=&SRCSOUT,DISP=(,DELETE),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),
// SPACE=(CYL,(10,20),RLSE),
// UNIT=DISK
//TGT DD DISP=SHR,
// DSN=*.MERGE3.SRTCOUT
//TGT2IN DD DISP=(SHR,PASS),
// DSN=*.TGT,VOL=REF=*.TGT
//TGTSIN DD DSN=&TGTSIN,DISP=(,DELETE),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),
// SPACE=(CYL,(10,20),RLSE),
// UNIT=DISK
//TGTSOUT DD DSN=&TGTSOUT,DISP=(,DELETE),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),
// SPACE=(CYL,(10,20),RLSE),
// UNIT=DISK
//TGT2OUT DD DSN=*.TGTSOUT,VOL=REF=*.TGTSOUT,DISP=(SHR,DELETE)
//SRTBOUT DD DSN=&SRTBOUT,DISP=(,DELETE),
// SPACE=(CYL,(10,20),RLSE),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),
// UNIT=DISK
//CHANGES DD DSN=DSN.DBX.DBAF.C$chgId7.AN124953.CHANGES,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),
// SPACE=(CYL,(10,10),RLSE),
// UNIT=DISK
//IFF DD DSN=DSN.DBX.DBAF.C$chgId7.AN124953.IFF,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=2048,RECFM=VB,BLKSIZE=27998,DSORG=PO),
// SPACE=(CYL,(2,2,60),RLSE),
// UNIT=DISK
// ENDIF
//**********************************************************************
//*
//* DB2 OBJECT COMPARE
//*
//* STEP GAPY5: GENERATE APPLY CHANGES JOBS
//*
//**********************************************************************
// IF (RC GT 7) THEN
// ELSE
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//GAPY5 EXEC PGM=IKJEFT01,
// PARM='ISPSTART CMD(%GOCGAJOB )',
// REGION=0M,
// DYNAMNBR=100
//SYSEXEC DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBLLIB
// DD DISP=SHR,DSN=ISP.SISPLOAD ISPF BASE
//STEPLIB DD DISP=SHR,DSN=DSN.ADB72.${rz}.C0.SADBLLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBLLIB
// DD DISP=SHR,DSN=${dsnload}
// DD DISP=SHR,DSN=ISP.SISPLOAD ISPF BASE
//* ISPSTART LOAD LIBRARY IS REQUIRED, EITHER ON STEPLIB OR LINK LIST
//ISPMLIB DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCTLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//GOCSVARS DD DISP=SHR,DSN=DSN.DBX.DBAF.C$chgId7.AN124953.SHRVARS
//CHANGES DD DISP=SHR,DSN=DSN.DBX.DBAF.C$chgId7.AN124953.CHANGES
// ENDIF
/*
//**********************************************************************
//*
//* DB2 OBJECT COMPARE
//*
//* STEP GRWL6: GENERATE RUN WORK STATEMENT LIST
//*
//**********************************************************************
// IF (RC>7) THEN
// ELSE
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//GRWL6 EXEC PGM=IKJEFT01,
// PARM='ISPSTART CMD(%ADBGLUE )',
// REGION=0M,
// DYNAMNBR=100
//SYSEXEC DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBLLIB
// DD DISP=SHR,DSN=ISP.SISPLOAD ISPF BASE
//STEPLIB DD DISP=SHR,DSN=DSN.ADB72.${rz}.C0.SADBLLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBLLIB
// DD DISP=SHR,DSN=ISP.SISPLOAD ISPF BASE
//* ISPSTART LOAD LIBRARY IS REQUIRED, EITHER ON STEPLIB OR LINK LIST
//ISPMLIB DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCTLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//VARLST DD *
ADB2CPS=;
ADBTEST=YES;
ADBTSTPN=ADB;
ADBONEJB=Y;
ADBJ1=//F5407691 JOB (KEL25071,0240,,3612),'CATALOG',;
ADBJ2=// MSGCLASS=T,TIME=1440;
ADBJ3=//*MAIN CLASS=LOG;
ADBJ4=;
ADBJ5=;
ADBJPM1=;
ADBJPM2=;
ADBJPM3=;
ADBJPM4=;
DB2AJSYS=;
ADBJCGN=N;
ADBJCLS=;
DB2AJCLS=A;
ADBUNIT=DISK;
ADBJCL='DSN.DBX.DBAF.ANA.JCL';
ADBJOBPF=AN;
ADBJOBEM=Y;
AHPULLIB=;
DB2ALOAD= ${dsnload} ;
AAPFLIBR=;
ADBLLIB= 'DSN.ADB72.${rz}.P0.SGOCLLIB' 'DSN.ADB72.${rz}.P0.SADBLLIB' ;
ADBPLIB= 'DSN.ADB72.${rz}.P0.SGOCPLIB' 'DSN.ADB72.${rz}.P0.SADBPLIB' ;
ADBMLIB= 'DSN.ADB72.${rz}.P0.SGOCMLIB' 'DSN.ADB72.${rz}.P0.SADBMLIB' ;
ADBSLIB= 'DSN.ADB72.${rz}.P0.SGOCSLIB' 'DSN.ADB72.${rz}.P0.SADBSLIB' ;
ADBTLIB= 'DSN.ADB72.${rz}.P0.SGOCTLIB' 'DSN.ADB72.${rz}.P0.SADBTLIB' ;
ADBELIB= 'DSN.ADB72.${rz}.P0.SGOCEXEC' 'DSN.ADB72.${rz}.P0.SADBEXEC' ;
ADBCLIB= 'DSN.ADB72.${rz}.P0.SGOCCLST' 'DSN.ADB72.${rz}.P0.SADBCLST' ;
USEHPU=N;
DB2SYS=DBAF;
$NBAS=YES;
NBVFSOWN=F540769;
NBVFSNAM=WK209.TRG;
NBVFVOWN=F540769;
NBVFVNAM=WK209.AFTER;
CHANGEID=843;
ADBCHAG=ANALYZE;
PARAM=ADB2CEX1 ANALYZE 'DSN.DBX.DBAF.RUN.JCL(E$chgId7)' YES 'DSN.DBX.DBAF.ANA.W
SL(C$chgId7)' ;
/*
// ENDIF
/*
// IF (RC>7) THEN
// ELSE
//**********************************************************************
//*
//* STEP UPD7: UPDATE STATUS OF A CHANGE
//*
//***********************************************************ADBCUPD****
//UPD7 EXEC PGM=IKJEFT01,DYNAMNBR=100
//STEPLIB DD DISP=SHR,DSN=DSN.ADB72.${rz}.C0.SADBLLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBLLIB
// DD DISP=SHR,DSN=${dsnload}
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DBAF)
RUN PROG(ADBCUPD) PLAN(ADB) -
PARMS('/CHGID=843, NEWSTAT=''ANALYZED'', OLDSTAT=''DEFINED'', -
ERRPRT=''Y''; ')
END
/*
//SYSPRINT DD SYSOUT=*
// ENDIF
//*
//* CREATED ON 07/06/29 AT 12:49 BY F540769 AT S12
//*
//************************************************************ADB2ENDJ**
}¢--- A540769.WK.SKELS(DBXAOPT) cre=2015-04-17 mod=2015-11-16-09.51.54 A540769 ---
//* copy aOpt to $rz/$subsys
//${stp}AOPT EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSUT1 DD *
dbx $mbrNac Imp$fu2 $tst
$aOpt1
aopt $AOPT
//SYSUT2 DD DISP=SHR$csmDD,
// DSN=$libPre${subsys}.AOPT($mbrNac)
}¢--- A540769.WK.SKELS(DBXAUTEX) cre=2008-09-05 mod=2011-06-21-12.05.41 A540769 ---
//*** DB2 Catalog Objekte extrahieren für $what ************************
//EXT$what EXEC PGM=IKJEFT01,DYNAMNBR=100
//STEPLIB DD DISP=SHR,DSN=${toolPreC}.SADBLLIB
// DD DISP=SHR,DSN=${toolPreP}.SGOCLLIB
// DD DISP=SHR,DSN=${toolPreP}.SADBLLIB
// DD DISP=SHR,DSN=${dsnload}
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM($subsys)
RUN PROG(ADB2GEN) PLAN(ADB) PARM('/WRTCAT')
END
//ADBPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SQL DD DISP=SHR,DSN=${libPre}.${what}DDL($mbrNac)
//CAT DD DISP=SHR,DSN=${libPre}.${what}CAT($mbrNac)
//*IN DD DISP=(OLD,DELETE),DSN=&&CVOBOUT
//IN DD DISP=SHR,DSN=${libPre}.$auto($mbrNac)
}¢--- A540769.WK.SKELS(DBXAUTMA) cre=2007-08-08 mod=2011-06-21-12.06.29 A540769 ---
//*** source Objekte mit Mask auf Target Objekte abbilden **************
//MAP$src EXEC PGM=ADBCVOB,PARM=('/MASK,RUNPARMS')
//STEPLIB DD DISP=SHR,DSN=${toolPreC}.SADBLLIB
// DD DISP=SHR,DSN=${toolPreP}.SGOCLLIB
// DD DISP=SHR,DSN=${toolPreP}.SADBLLIB
//SYSPRINT DD SYSOUT=*
//INDD DD DISP=SHR,DSN=${libPre}.${src}CAT($mbrNac)
//REPORT DD SYSOUT=*
//OUTDD DD DISP=SHR,DSN=${libPre}.$auto($mbrNac)
//*OUTDD DD DISP=(,PASS),DSN=&&CVOBOUT,
//* SPACE=(TRK,(10,10,0)),LRECL=80,RECFM=FBA
//MASKS DD $mask
//RUNPARMS DD *
DB2SYS = '$subsys',
DB2ALOC = '$location',
DB2SERV = '$location',
DB2AUTH = 'S100447',
DB2REL = '$db2rel',
RUNSQLID = 'S100447',
GENDB = 'Y',
GENTS = 'Y',
GENTABLE = 'Y',
GENVIEW = 'D',
GENINDEX = 'Y',
GENSYN = 'Y',
GENALIAS = 'Y',
GENLABEL = 'Y',
GENCOMM = 'Y',
GENRELS = 'D',
GENTRIG = 'D',
GENSG = 'N',
GRANTDB = 'N',
GRANTTS = 'N',
GRANTTAB = 'N',
GRANTVW = 'N',
GENUDT = 'N',
GENUDF = 'N',
GENSTP = 'N',
GENSEQ = 'N',
GRANTSCH = 'N',
GRANTUDT = 'N',
GRANTUDF = 'N',
GRANTSTP = 'N',
GRANTSEQ = 'N',
GRANTSG = 'N',
NEWDB = '',
NEWTSSG = '',
NEWIXSG = '',
NEWSQLID = '',
NEWSCH = '',
SPCALLOC = 'DEFINED',
DESCRIPT = '$what $AUFTRAG $NACHTRAG',
TGTDB2 = '$db2rel';
}¢--- A540769.WK.SKELS(DBXBANA) cre=2011-12-16 mod=2011-12-23-13.28.38 A540769 ---
//****************************** bmc analysis **************************
//ANALYSIS EXEC PGM=ALUAMAIN,PARM='ACMDOPD1',REGION=0M
//STEPLIB DD DSN=DSN.BMC.BMCLINK,DISP=SHR
// DD DSN=MVIEW.PLEXA.S13.BMCLINK,DISP=SHR
//ABNLIGNR DD DUMMY
//SYSUDUMP DD SYSOUT=*
//WORKL001 DD DISP=SHR,DSN=${libPre}.BMCWSL($mbrChg)
//ALUPRINT DD SYSOUT=*
//AJXPOFVL DD DUMMY
//ALUIN DD *
SSID $subsys
WORKID DBXAUFTR.$change
INCLUDE (DATA SQL AMS REBIND )
SORTDEVT SYSDA
SMSINCLUDE ( )
IBMREBUILD
ENV
UTILSTATS DB2STATSUPD NOTABLEALL
NOHISTORY
TRANSFORM
IBMCOPY
IBMLOAD UTILCOPY
DYNUNLD
DYNCOPY
PARTCOPY
COPYDDN (COPY01 )
NOREGENIDENTITY
NOVVALPROP
DEFERUNIQUEIX
IBMUNLOAD
GLAUTHID S100447
IBMREORG IBMCHECK
SYNCPOINT 10
NODBRMLIB
ORDERBY
UNLOADTABLE
UNLOADEMPTY
NOSTOPCOMMIT
NOTABLEACCESS
NOPARALLEL
NOREORGONLINE
KEYCARD
REORGALL
REORGREF
//* POF INPUT FILE AJXAPOF
//* THE KEYWORDS MUST START IN COLUMN 1
//AJXPOFIN DD *
ACM_WLORDER=
ACM_WLORDERMSG=
BLRP_DATACLASS_ALT=
BLRP_DATACLASS=
BLRP_EXPDT=
BLRP_MGMTCLASS_ALT=
BLRP_MGMTCLASS=
BLRP_PREFIX=&PREFIX..&OBNOD
BLRP_PRIQTY=10
BLRP_RETPD=
BLRP_SECQTY=2
BLRP_STACK=N
BLRP_STORCLASS_ALT=
BLRP_STORCLASS=
BLRP_THRESH=0
BLRP_UNIT_ALT=
BLRP_UNIT=SYSDA
BMC_REORG_XBMID=
DEF_GDG_BASE=N
DEF_GDG_LIMIT=10
DEF_GDG2_LIMIT=10
DEF_GDG_NOSCR = N
DIAG_MSGCLASS=
DISC_DATACLASS_ALT=
DISC_DATACLASS=
DISC_EXPDT=
DISC_MGMTCLASS_ALT=
DISC_MGMTCLASS=
DISC_PREFIX=&PREFIX..&OBNOD
DISC_PRIQTY=10
DISC_RETPD=
DISC_SECQTY=2
DISC_STORCLASS_ALT=
DISC_STORCLASS=
DISC_THRESH=0
DISC_UNIT_ALT=
DISC_UNIT=SYSDA
GDG_MODEL=SYS1.MODEL
PCPY1_DATACLASS_ALT=
PCPY1_DATACLASS=
PCPY1_EXPDT=
PCPY1_MGMTCLASS_ALT=
PCPY1_MGMTCLASS=
PCPY1_PREFIX=&PREFIX..&OBNOD..P&PART
PCPY1_PRIQTY=10
PCPY1_RETPD=
PCPY1_SECQTY=2
PCPY1_STACK=N
PCPY1_STORCLASS=
PCPY1_STORCLASS_ALT=
PCPY1_SUPPRESS_SUFF=N
PCPY1_THRESH=0
PCPY1_UNIT_ALT=
PCPY1_UNIT=SYSDA
PCPY2_DATACLASS_ALT=
PCPY2_DATACLASS=
PCPY2_EXPDT=
PCPY2_MGMTCLASS_ALT=
PCPY2_MGMTCLASS=
PCPY2_PREFIX=&PREFIX..&OBNOD..P&PART
PCPY2_PRIQTY=10
PCPY2_RETPD=
PCPY2_SECQTY=2
PCPY2_STACK=N
PCPY2_STORCLASS=
PCPY2_STORCLASS_ALT=
PCPY2_SUPPRESS_SUFF=N
PCPY2_THRESH=0
PCPY2_UNIT_ALT=
PCPY2_UNIT=SYSDA
RCPY1_DATACLASS_ALT=
RCPY1_DATACLASS=
RCPY1_EXPDT=
RCPY1_MGMTCLASS_ALT=
RCPY1_MGMTCLASS=
RCPY1_PREFIX=&PREFIX..&OBNOD..P&PART
RCPY1_PRIQTY=10
RCPY1_RETPD=
RCPY1_SECQTY=2
RCPY1_STACK=N
RCPY1_STORCLASS=
RCPY1_STORCLASS_ALT=
RCPY1_SUPPRESS_SUFF=N
RCPY1_THRESH=0
RCPY1_UNIT_ALT=
RCPY1_UNIT=SYSDA
RCPY2_DATACLASS_ALT=
RCPY2_DATACLASS=
RCPY2_EXPDT=
RCPY2_MGMTCLASS_ALT=
RCPY2_MGMTCLASS=
RCPY2_PREFIX=&PREFIX..&OBNOD..P&PART
RCPY2_PRIQTY=10
RCPY2_RETPD=
RCPY2_SECQTY=2
RCPY2_STACK=N
RCPY2_STORCLASS=
RCPY2_STORCLASS_ALT=
RCPY2_SUPPRESS_SUFF=N
RCPY2_THRESH=0
RCPY2_UNIT_ALT=
RCPY2_UNIT=SYSDA
REORG_MAPTAB=
SRTOUT_DATACLASS_ALT=
SRTOUT_DATACLASS=
SRTOUT_EXPDT=
SRTOUT_MGMTCLASS_ALT=
SRTOUT_MGMTCLASS=
SRTOUT_PREFIX=&PREFIX..&WKID..&STEPN
SRTOUT_PRIQTY=10
SRTOUT_RETPD=
SRTOUT_SECQTY=2
SRTOUT_STORCLASS_ALT=
SRTOUT_STORCLASS=
SRTOUT_THRESH=0
SRTOUT_UNIT_ALT=
SRTOUT_UNIT=SYSDA
SYSUT_DATACLASS_ALT=
SYSUT_DATACLASS=
SYSUT_EXPDT=
SYSUT_MGMTCLASS_ALT=
SYSUT_MGMTCLASS=
SYSUT_PREFIX=&PREFIX..&WKID..&STEPN
SYSUT_PRIQTY=10
SYSUT_RETPD=
SYSUT_SECQTY=2
SYSUT_STORCLASS_ALT=
SYSUT_STORCLASS=
SYSUT_THRESH=0
SYSUT_UNIT_ALT=
SYSUT_UNIT=SYSDA
TAPE_EXPDT=
TAPE_RETPD=
TAPE_VOLCNT=99
TAPE1=CART
TAPE2=TAPE
TAPE3=TAPE
TEMPUNIT=SYSDA
UNLD1_DATACLASS_ALT=
UNLD1_DATACLASS=
UNLD1_EXPDT=
UNLD1_MGMTCLASS_ALT=
UNLD1_MGMTCLASS=
UNLD1_PREFIX=&PREFIX..&MSSID..&WORKID8
UNLD1_PRIQTY=10
UNLD1_RETPD=
UNLD1_SECQTY=2
UNLD1_STACK=N
UNLD1_STORCLASS_ALT=
UNLD1_STORCLASS=
UNLD1_THRESH=0
UNLD1_UNIT_ALT=
UNLD1_UNIT=SYSDA
UNLD2_DATACLASS_ALT=
UNLD2_DATACLASS=
UNLD2_EXPDT=
UNLD2_MGMTCLASS_ALT=
UNLD2_MGMTCLASS=
UNLD2_PREFIX=&PREFIX..&MSSID..&WORKID8
UNLD2_PRIQTY =10
UNLD2_RETPD=
UNLD2_SECQTY =2
UNLD2_STACK=N
UNLD2_STORCLASS_ALT=
UNLD2_STORCLASS=
UNLD2_THRESH=0
UNLD2_UNIT_ALT=
UNLD2_UNIT=SYSDA
UNLD3_DATACLASS=
UNLD3_EXPDT=
UNLD3_MGMTCLASS=
UNLD3_PREFIX=&PREFIX..&MSSID..&WORKID8
UNLD3_RETPD=
UNLD3_STORCLASS=
UNLD3_UNIT=SYSDA
UNLD4_PREFIX=&PREFIX..&MSSID..&WORKID8
UNLD4_STORCLASS=
UNLD4_UNIT=SYSDA
UNLD4_MGMTCLASS=
UNLD4_DATACLASS=
UNLD_FREF_DATACLASS=
UNLD_FREF_MGMTCLASS=
UNLD_FREF_PREFIX=&PREFIX..&MSSID..&WORKID8
UNLD_FREF_STORCLASS=
UNLD_FREF_UNIT=SYSDA
UNLD_FREF_PRIQTY=10
UNLD_FREF_DIRBLOCK=250
UNLD_FREF_SECQTY=2
USER_VAR1_CHAR=
USER_VAR2_CHAR=
USER_VAR3_CHAR=
USER_VAR4_CHAR=
USER_VAR5_CHAR=
//****************************** bmc ispProf ***************************
//*--------------------------------------------------------------------
//* BUILD TEMPORARY ISPPROF DATASET
//*--------------------------------------------------------------------
//CPYPRF2 EXEC PGM=IEBCOPY
//*--------------------------------------------------------------------
//* ISPMLIB BELOW POINTS TO A DATASET SHIPPED WITH THE PRODUCT
//* FROM WHICH WE GET ISPSPROF AND ISPPROF MEMBERS
//*--------------------------------------------------------------------
//ISPMLIB DD DSN=DSN.BMC.BMCTLIB,DISP=SHR
//OUT DD SPACE=(TRK,(2,1,3)),UNIT=SYSDA,DISP=(NEW,PASS),
// DSN=&&TPRF2
//SYSPRINT DD DUMMY
//SYSIN DD *
COPY I=ISPMLIB,O=OUT
S M=(ISPPROF,ISPSPROF)
//****************************** bmc ispTSin ***************************
//*--------------------------------------------------------------------
//* BUILD TEMPORARY ISPTSIN DATASET
//*--------------------------------------------------------------------
//BTSIN1 EXEC PGM=IEBGENER
//SYSUT2 DD SPACE=(TRK,(1,1)),UNIT=SYSDA,DISP=(NEW,PASS),
// DSN=&&TSIN1,
// DSORG=PS,LRECL=80,BLKSIZE=3200,RECFM=FB
//SYSIN DD DUMMY
//SYSPRINT DD DUMMY
//SYSUT1 DD *
/*
//****************************** bmc build exe jcl *********************
//BUILDJCL EXEC PGM=AJXBMAIN,
// REGION=0M,PARM='ACMDOPD1',
// COND=(4,LT)
//STEPLIB DD DSN=DSN.BMC.BMCLINK,DISP=SHR
// DD DSN=MVIEW.PLEXA.S13.BMCLINK,DISP=SHR
//ABNLIGNR DD DUMMY
//AJXERR DD SYSOUT=*
//ISPPROF DD DISP=(OLD,PASS),
// DSN=&&TPRF2
//*-----------------------------------------------------------------
//* THE DSNAMES BELOW SHOULD BE CHANGED TO REFLECT YOUR INSTALLATION
//*-----------------------------------------------------------------
//*** RUNTIME ENABLEMENT CHOSEN
//SYSPROC DD DSN=DSN.BMC.BMCCLIB,DISP=SHR
//ACT${dol}MSGS DD DSN=DSN.BMC.BMCMLIB,DISP=SHR
//ISPMLIB DD DSN=DSN.BMC.BMCMLIB,DISP=SHR
//** -----------------------------------------------------------------
//** SYSTEM ISPF MLIB SKELETON AJXISPFS
//** -----------------------------------------------------------------
// DD DSN=ISP.SISPMENU,DISP=SHR
//**
//ISPSLIB DD DSN=DSN.BMC.BMCSLIB,DISP=SHR
//ISPTLIB DD DSN=DSN.BMC.BMCTLIB,DISP=SHR
//ISPPLIB DD DSN=DSN.BMC.BMCPLIB,DISP=SHR
//ISPCTL0 DD SPACE=(CYL,(5,5)),UNIT=SYSDA,DISP=(,PASS),
// DCB=(LRECL=80,BLKSIZE=800,RECFM=FB)
//ISPCTL1 DD SPACE=(CYL,(5,5)),UNIT=SYSDA,DISP=(,PASS),
// DCB=(LRECL=80,BLKSIZE=800,RECFM=FB)
//ISPCTL2 DD SPACE=(CYL,(5,5)),UNIT=SYSDA,DISP=(,PASS),
// DCB=(LRECL=80,BLKSIZE=800,RECFM=FB)
//ISPCTL3 DD SPACE=(CYL,(5,5)),UNIT=SYSDA,DISP=(,PASS),
// DCB=(LRECL=80,BLKSIZE=800,RECFM=FB)
//ISPWRK1 DD SPACE=(CYL,(5,5)),UNIT=SYSDA,DISP=(,PASS),
// DCB=(LRECL=256,BLKSIZE=2560,RECFM=FB)
//ISPWRK2 DD SPACE=(CYL,(5,5)),UNIT=SYSDA,DISP=(,PASS),
// DCB=(LRECL=256,BLKSIZE=2560,RECFM=FB)
//ISPWRK3 DD SPACE=(CYL,(5,5)),UNIT=SYSDA,DISP=(,PASS),
// DCB=(LRECL=256,BLKSIZE=2560,RECFM=FB)
//ISPCNTL DD SPACE=(CYL,(5,5)),UNIT=SYSDA,DISP=(,PASS),
// DCB=(LRECL=80,BLKSIZE=800,RECFM=FB)
//SYSTSIN DD SPACE=(TRK,(1,1)),DISP=(OLD,PASS),
// DSN=&&TSIN1,
// DSORG=PS,LRECL=80,BLKSIZE=3200,RECFM=FB
//ISPLOG DD SYSOUT=*,
// DSORG=PS,LRECL=125,BLKSIZE=129,RECFM=VA
//SYSTSPRT DD SYSOUT=*,
// DSORG=PS,LRECL=137,BLKSIZE=3155,RECFM=VBA
//*JGENSRPT DD SYSOUT=*,
//* DSORG=PS,LRECL=80,BLKSIZE=6160,RECFM=FB
//AJXPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//********************************************************
//**** SAMPLE SYSMDUMP JCL ********
//**** PLEASE REPLACE THE DSN AND UNIT WITH ONES THAT FITS
//**** YOUR SHOP STANDARDS AND UNCOMMENT THE JCL
//*SYSMDUMP DD DSN=CUSTOMER.SYSMDUMP,DISP=(,CATLG,CATLG),UNIT=XXXXXXX,
//* SPACE=(CYL,(50,50),RLSE),LRECL=4160,BLKSIZE=4160
//********************************************************
//AJXJCL DD DISP=SHR,DSN=${libPre}.EXEJCL($mbrChg)
//WORKLIST DD DISP=SHR,DSN=${libPre}.BMCWSL($mbrChg)
//AJXIN DD *
**************************************************************
*** JOB OPTIONS
**************************************************************
PRODUCT ACM
WORKID DBXAUFTR.$change
SSID $subsys
VERS7FMT Y
**************************************************************
*** ADDITIONAL STEPS INCLUDED IN THIS JOB
**************************************************************
POSTBASELINE Y
**************************************************************
*** PRE-EXECUTION BASELINE STEP OPTIONS
*** BUILD BASELINE WK401D3C_TRG####
*** BEFORE EXECUTION
**************************************************************
PREBASELINE Y
PREBPROFILE DBXAUFTR.${AUFTRAG}_TRG
PREBNAME ${AUFTRAG}_TRG####
PREBDIAG SYSOUT
**************************************************************
*** EXECUTION STEP OPTIONS
**************************************************************
DASDDOPT ASUDOPD1
CATDOPT ACTDOPD1
ENV
NOCATRECOVER
**************************************************************
*** POST-EXECUTION BASELINE STEP OPTIONS
*** BUILD BASELINE WK401D3C_TRG####
*** AFTER EXECUTION
**************************************************************
POSTBASELINE Y
POSTBPROFILE DBXAUFTR.${AUFTRAG}_TRG
POSTBNAME ${AUFTRAG}_TRG####
POSTBDIAG SYSOUT
**************************************************************
*** BATCH JCLGEN EXECUTION DATASET NAMES
**************************************************************
SDSNE SYSOUT
//* POF INPUT FILE SLIB AJXPOF01
//AJXPOFIN DD *
ACM_PARALLEL_MAXINIT=3
ACM_PARALLEL_MININIT=2
ACM_PARALLEL_WORKLST=N
ACM_PARALLEL_XIMPROC=XIMACM
ACM_PARALLEL_XIMSTRT=N
ACM_PARALLEL_XIMTRCE=N
ACM_PARALLEL_XIMGRP=XIMACM
ADDLOAD1=
ADDLOAD2=
ARCH_DATACLASS_ALT=
ARCH_DATACLASS=
ARCH_EXPDT=
ARCH_MGMTCLASS_ALT=
ARCH_MGMTCLASS=
ARCH_PREFIX=&PREFIX..&WKID
ARCH_PRIQTY=10
ARCH_RETPD=
ARCH_SECQTY=2
ARCH_STACK=N
ARCH_STORCLASS_ALT=
ARCH_STORCLASS=
ARCH_THRESH=0
ARCH_UNIT_ALT=
ARCH_UNIT=SYSDA
BLRP_DATACLASS_ALT=
BLRP_DATACLASS=
BLRP_EXPDT=
BLRP_MGMTCLASS_ALT=
BLRP_MGMTCLASS=
BLRP_PREFIX=&PREFIX..&OBNOD
BLRP_PRIQTY=10
BLRP_RETPD=
BLRP_SECQTY=2
BLRP_STACK=N
BLRP_STORCLASS_ALT=
BLRP_STORCLASS=
BLRP_THRESH=0
BLRP_UNIT_ALT=
BLRP_UNIT=SYSDA
CAT_LOAD=DSN.BMC.BMCLINK
BMC_CHECK_LOAD=
BMC_CHECK_OPTS=
CHGMAN_LOAD=DSN.BMC.BMCLINK
CNTL_DATACLASS=
CNTL_EXPDT=
CNTL_MGMTCLASS=
CNTL_PREFIX=&PREFIX..&WKID..&SSID
CNTL_PRIQTY=1
CNTL_RETPD=
CNTL_SECQTY=1
CNTL_STORCLASS=
CNTL_UNIT=SYSDA
BMC_COPY_LOAD=DSN.BMC.BMCLINK
BMC_COPY_OPTS=
DASD_LOAD=DSN.BMC.BMCLINK
DASDDOPT=ASUDOPD1
DATASETSIZING=C
DATAWK_NBR=4
DATAWK_UNIT=SYSDA
DB2EXIT=
DB2LOAD=
DEF_GDG_BASE=N
DEF_GDG_LIMIT=10
DEF_GDG2_LIMIT=10
DIAG_MSGCLASS=
DISC_DATACLASS_ALT=
DISC_DATACLASS=
DISC_EXPDT=
DISC_MGMTCLASS_ALT=
DISC_MGMTCLASS=
DISC_PREFIX=&PREFIX..&OBNOD
DISC_PRIQTY=10
DISC_RETPD=
DISC_SECQTY=2
DISC_STORCLASS_ALT=
DISC_STORCLASS=
DISC_THRESH=0
DISC_UNIT_ALT=
DISC_UNIT=SYSDA
DISP_STATS=N
DISP_VAR_DBUG=N
DROPR_NOIC=N
DSNCHECK44=N
ERR_DATACLASS_ALT=
ERR_DATACLASS=
ERR_EXPDT=
ERR_MGMTCLASS_ALT=
ERR_MGMTCLASS=
ERR_PREFIX=&PREFIX..&WKID..&STEPN
ERR_PRIQTY=10
ERR_RETPD=
ERR_SECQTY=2
ERR_STORCLASS_ALT=
ERR_STORCLASS=
ERR_THRESH=0
ERR_UNIT_ALT=
ERR_UNIT=SYSDA
EXEC_LOAD=DSN.BMC.BMCLINK
FILT_DATACLASS=
FILT_EXPDT=
FILT_MGMTCLASS=
FILT_PREFIX=&PREFIX..&WKID..&STEPN
FILT_PRIQTY=10
FILT_RETPD=
FILT_SECQTY=2
FILT_STORCLASS=
FILT_UNIT=SYSDA
GDG_MODEL=SYS1.MODEL
JCLCLEANUP=N
JOBCARD1 =>
//$mbrChg JOB (CP00,KE50),'DB2 BMC EXE $AUFTRAG',
JOBCARD2 =>
// MSGCLASS=T,TIME=1440,
JOBCARD3 =>
// NOTIFY=&SYSUID,REGION=0M
JOBCARD4 =>
//*MAIN CLASS=LOG0
JOBCARD5 =>
//*
IOALOAD1=
IOALOAD2=
LISTDEF_DSN=
TEMPLATE_DSN=
BMC_LOAD_LOAD=DSN.BMC.BMCLINK
BMC_LOAD_OPTS=
LL_CLIB=BMCCLIB
LL_CLIB2=
LL_CLIB3=
LL_CLIB4=
LL_CLIB5=
LL_LINK2=
LL_LINK3=
LL_LINK4=
LL_LINK5=
LL_LINK=
LL_MLIB2=
LL_MLIB3=
LL_MLIB4=
LL_MLIB5=
LL_MLIB=BMCMLIB
LL_PLIB2=
LL_PLIB3=
LL_PLIB4=
LL_PLIB5=
LL_PLIB=BMCPLIB
LL_SLIB2=
LL_SLIB3=
LL_SLIB4=
LL_SLIB5=
LL_SLIB=BMCSLIB
LL_TLIB2=
LL_TLIB3=
LL_TLIB4=
LL_TLIB5=
LL_TLIB=BMCTLIB
LL_XML2=
LL_XML3=
LL_XML4=
LL_XML5=
LL_XML=BMCXML
LLQ=
LOGWK_NBR=4
LOGWK_UNIT=SYSDA
MAP_DATACLASS_ALT=
MAP_DATACLASS=
MAP_EXPDT=
MAP_MGMTCLASS_ALT=
MAP_MGMTCLASS=
MAP_PREFIX=&PREFIX..&WKID..&SSID
MAP_PRIQTY=10
MAP_RETPD=
MAP_SECQTY=2
MAP_STORCLASS_ALT=
MAP_STORCLASS=
MAP_THRESH=0
MAP_UNIT_ALT=
MAP_UNIT=SYSDA
MAX_CYL=99999
MAX_PRIQTY=2000
MAX_SECQTY=200
MAX_UNITCNT=
MEMLIMIT=NOLIMIT
PCPY1_DATACLASS_ALT=
PCPY1_DATACLASS=
PCPY1_EXPDT=
PCPY1_MGMTCLASS_ALT=
PCPY1_MGMTCLASS=
PCPY1_PREFIX=&PREFIX..&OBNOD..P&PART
PCPY1_PRIQTY=10
PCPY1_RETPD=
PCPY1_SECQTY=2
PCPY1_STACK=N
PCPY1_STORCLASS_ALT=
PCPY1_STORCLASS=
PCPY1_SUPRESS_SUFF=N
PCPY1_THRESH=0
PCPY1_UNIT_ALT=
PCPY1_UNIT=SYSDA
PCPY2_DATACLASS_ALT=
PCPY2_DATACLASS=
PCPY2_EXPDT=
PCPY2_MGMTCLASS_ALT=
PCPY2_MGMTCLASS=
PCPY2_PREFIX=&PREFIX..&OBNOD..P&PART
PCPY2_PRIQTY=10
PCPY2_RETPD=
PCPY2_SECQTY=2
PCPY2_STACK=N
PCPY2_STORCLASS_ALT=
PCPY2_STORCLASS=
PCPY1_SUPRESS_SUFF=N
PCPY2_THRESH=0
PCPY2_UNIT_ALT=
PCPY2_UNIT=SYSDA
PUNCH_DATACLASS=
PUNCH_EXPDT=
PUNCH_MGMTCLASS=
PUNCH_PREFIX=&PREFIX..&WKID..&STEPN
PUNCH_PRIQTY=1
PUNCH_RETPD=
PUNCH_SECQTY=1
PUNCH_STORCLASS=
PUNCH_UNIT=SYSDA
RCPY1_DATACLASS_ALT=
RCPY1_DATACLASS=
RCPY1_EXPDT=
RCPY1_MGMTCLASS_ALT=
RCPY1_MGMTCLASS=
RCPY1_PREFIX=&PREFIX..&OBNOD..P&PART
RCPY1_PRIQTY=10
RCPY1_RETPD=
RCPY1_SECQTY=2
RCPY1_STACK=N
RCPY1_STORCLASS_ALT=
RCPY1_STORCLASS=
RCPY1_SUPRESS_SUFF=N
RCPY1_THRESH=0
RCPY1_UNIT_ALT=
RCPY1_UNIT=SYSDA
RCPY2_DATACLASS_ALT=
RCPY2_DATACLASS=
RCPY2_EXPDT=
RCPY2_MGMTCLASS_ALT=
RCPY2_MGMTCLASS=
RCPY2_PREFIX=&PREFIX..&OBNOD..P&PART
RCPY2_PRIQTY=10
RCPY2_RETPD=
RCPY2_SECQTY=2
RCPY2_STACK=N
RCPY2_STORCLASS_ALT=
RCPY2_STORCLASS=
RCPY2_SUPRESS_SUFF=N
RCPY2_THRESH=0
RCPY2_UNIT_ALT=
RCPY2_UNIT=SYSDA
BMC_RECOVER_LOAD=DSN.BMC.BMCLINK
BMC_RECOVER_OPTS=
REGION=0M
BMC_REORG_LOAD=DSN.BMC.BMCLINK
BMC_REORG_OPTS=
REPT_DATACLASS_ALT=
REPT_DATACLASS=
REPT_EXPDT=
REPT_MGMTCLASS_ALT=
REPT_MGMTCLASS=
REPT_PREFIX=&PREFIX..&WKID
REPT_PRIQTY=10
REPT_RETPD=
REPT_SECQTY=2
REPT_STORCLASS_ALT=
REPT_STORCLASS=
REPT_THRESH=0
REPT_UNIT_ALT=
REPT_UNIT=SYSDA
RUNTIME_HLQ=DSN.BMC
SORTWK_NBR=4
SORTWK_PRIQTY=10
SORTWK_SECQTY=2
SORTWK_UNIT=SYSDA
SQLEXP_LOAD=MVIEW.PLEXA.S13.BMCLINK
SRTOUT_DATACLASS_ALT=
SRTOUT_DATACLASS=
SRTOUT_EXPDT=
SRTOUT_MGMTCLASS_ALT=
SRTOUT_MGMTCLASS=
SRTOUT_PREFIX=&PREFIX..&WKID..&STEPN
SRTOUT_PRIQTY=10
SRTOUT_RETPD=
SRTOUT_SECQTY=2
SRTOUT_STORCLASS_ALT=
SRTOUT_STORCLASS=
SRTOUT_THRESH=0
SRTOUT_UNIT_ALT=
SRTOUT_UNIT=SYSDA
SUPPRESS_COMMENTS=N
SYSEXEC=DSN.BMC.BMCREXX
SYSUT_DATACLASS_ALT=
SYSUT_DATACLASS=
SYSUT_EXPDT=
SYSUT_MGMTCLASS_ALT=
SYSUT_MGMTCLASS=
SYSUT_PREFIX=&PREFIX..&WKID..&STEPN
SYSUT_PRIQTY=10
SYSUT_RETPD=
SYSUT_SECQTY=2
SYSUT_STORCLASS_ALT=
SYSUT_STORCLASS=
SYSUT_THRESH=0
SYSUT_UNIT_ALT=
SYSUT_UNIT=SYSDA
SYSTEM_MLIB=ISP.SISPMENU
SZDEVT=3390
TAPE_EXPDT=
TAPE_RETPD=
TAPE_VOLCNT=99
TAPE1=CART
TAPE2=TAPE
TAPE3=TAPE
TEMPUNIT=SYSDA
TIMEPARM=
TRTCH=
TSOSUBEXIT=N
ULLQ=
UNLD1_DATACLASS_ALT=
UNLD1_DATACLASS=
UNLD1_EXPDT=
UNLD1_MGMTCLASS_ALT=
UNLD1_MGMTCLASS=
UNLD1_PREFIX=&PREFIX..&MSSID..&WORKID8
UNLD1_PRIQTY=10
UNLD1_RETPD=
UNLD1_SECQTY=2
UNLD1_STACK=N
UNLD1_STORCLASS_ALT=
UNLD1_STORCLASS=
UNLD1_THRESH=0
UNLD1_UNIT_ALT=
UNLD1_UNIT=SYSDA
UNLD2_DATACLASS_ALT=
UNLD2_DATACLASS=
UNLD2_EXPDT=
UNLD2_MGMTCLASS_ALT=
UNLD2_MGMTCLASS=
UNLD2_PREFIX=&PREFIX..&MSSID..&WORKID8
UNLD2_PRIQTY =10
UNLD2_RETPD=
UNLD2_SECQTY =2
UNLD2_STACK=N
UNLD2_STORCLASS_ALT=
UNLD2_STORCLASS=
UNLD2_THRESH=0
UNLD2_UNIT_ALT=
UNLD2_UNIT=SYSDA
BMC_UNLOAD_LOAD=DSN.BMC.BMCLINK
BMC_UNLOAD_OPTS=
WORK_DATACLASS=
WORK_MGMTCLASS=
WORK_STORCLASS=
SYNCDELETE = N
TSOPROGRAM =
ORTPARM_DSN =
DATA_PACKER_LOAD = DSN.BMC.BMCLINK
JOB_INCLUDE_MEMBER =
STEP_INCLUDE_MEMBER =
STOPWAIT = 3
STOPWTSECS = 10
JES3 = N
JCLLIB =
HASHFAIL = N
BINDFAIL = N
REBINDFAIL = N
REBINDRC =
HASHWARNRC =
DEF_GDG_NOSCR = N
CLEANUP_RC = 0
UNLD_FREF_DATACLASS=
UNLD_FREF_MGMTCLASS=
UNLD_FREF_PREFIX=&PREFIX..&MSSID..&WORKID8
UNLD_FREF_STORCLASS=
UNLD_FREF_UNIT=SYSDA
UNLD_FREF_PRIQTY=10
UNLD_FREF_DIRBLOCK=250
UNLD_FREF_SECQTY=2
UNLD3_DATACLASS=
UNLD3_EXPDT=
UNLD3_MGMTCLASS=
UNLD3_PREFIX=&PREFIX..&MSSID..&WORKID8
UNLD3_RETPD=
UNLD3_STORCLASS=
UNLD3_UNIT=SYSDA
UNLD4_PREFIX=&PREFIX..&MSSID..&WORKID8
UNLD4_STORCLASS=
UNLD4_UNIT=SYSDA
UNLD4_MGMTCLASS=
UNLD4_DATACLASS=
USER_VAR1_CHAR=
USER_VAR2_CHAR=
USER_VAR3_CHAR=
USER_VAR4_CHAR=
USER_VAR5_CHAR=
2MEGSQL=N
//*--------------------------------------------------------------------
//* END OF JOB
//*--------------------------------------------------------------------
}¢--- A540769.WK.SKELS(DBXBCOM) cre=2011-12-15 mod=2011-12-16-12.02.20 A540769 ---
//T03BCOM EXEC PGM=ACMCMAN,REGION=0M,PARM='ACMDOPD1'
//STEPLIB DD DSN=DSN.BMC.BMCLINK,DISP=SHR
// DD DSN=MVIEW.PLEXA.S13.BMCLINK,DISP=SHR
//ABNLIGNR DD DUMMY
//ALUPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//********************************************************
//**** SAMPLE SYSMDUMP JCL ********
//**** PLEASE REPLACE THE DSN AND UNIT WITH ONES THAT FITS
//**** YOUR SHOP STANDARDS AND UNCOMMENT THE JCL
//*SYSMDUMP DD DSN=CUSTOMER.SYSMDUMP,DISP=(,CATLG,CATLG),UNIT=XXXXXXX,
//* SPACE=(CYL,(50,50),RLSE),LRECL=4160,BLKSIZE=4160
//********************************************************
//CDL001 DD DISP=SHR,DSN=${libPre}.BMCCDL($mbrNac)
//ALUIN DD *
SSID $subsys
CMPTYPE1 LOCAL
CMPTYPE2 LOCAL
CDLCHANGERULES $PROFCHG
SCOPETYPE PROFILES:BASELINE,BASELINE
SCOPE1 ${PROFOWN}.$PROFTRG
SCOPE2 ${PROFOWN}.$PROFSRC
INCLUDE( CDLDEP ALTER CREATE DROP)
REPORT (DETAIL)
CHANGERULESIN2 $PROFCHG
NODEFINE
SHOWRULES
}¢--- A540769.WK.SKELS(DBXBEXE) cre=2011-12-16 mod=2011-12-16-11.29.47 A540769 ---
//**************************** submit execute job **********************
//SUBEXE EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSPRINT DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=${libPre}.EXEJCL($mbrChg)
//SYSUT2 DD SYSOUT=(A,INTRDR)
}¢--- A540769.WK.SKELS(DBXBIMP) cre=2011-12-15 mod=2011-12-15-12.13.44 A540769 ---
//IMPORT EXEC PGM=ACMIMAN,REGION=0M,
// PARM='ACMDOPD1'
//STEPLIB DD DSN=DSN.BMC.BMCLINK,DISP=SHR
// DD DSN=MVIEW.PLEXA.S13.BMCLINK,DISP=SHR
//ABNLIGNR DD DUMMY
//ALUPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
$@bmcCdl
//ALUIN DD *
SSID $subsys
NEWWORKID DBXAUFTR.$change
SOURCETYPE CDL
MIGPROFILE $PROFIMP
}¢--- A540769.WK.SKELS(DBXCANA) cre=2012-02-14 mod=2016-06-23-13.22.19 A540769 ---
//*** ca: analyze strategy *********************************************
//${stp}ANA EXEC PGM=PTLDRIVM,REGION=0M,PARM='SUFFIX=00,EP=RML@MAIN'
//STEPLIB DD DISP=SHR,DSN=$caload
// DD DISP=SHR,DSN=$dsnload
//PTILIB DD DISP=SHR,DSN=$caload
// DD DISP=SHR,DSN=$dsnload
//PTIPARM DD DISP=SHR,DSN=${capref}.CDBAPARM
//PTIXMSG DD DISP=SHR,DSN=${capref}.CDBAXMSG
//MSGFILE DD SYSOUT=*
//REPFILE DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//ABNLIGNR DD DUMMY SUPPRESS ABENDAID DUMPS
//* strategy
//DDLFILE DD DISP=SHR,DSN=$libPre${subsys}.ANA($stry)
//PARMFILE DD *
STRTSSID $subsys
CREATOR DBX
STRATEGY $stry
AUXIMP N
MQTIMP N
REFMQT N
RI LOCAL
SEQIMP
RTNIMP
RTNIIO N
SQLID S100447
$ddlOnlyOrUnload
$dropAll
NOAUTHS
HEADER
TRAILER
REPINDDL
REBIND
CHEKDATA
RECOVIX
REORGTS
REORGIX
PREFIX DSN.DBZ
MODEL4 $aModel
MODEL4C $cacr
$aUtilNm
$aUtilCre
RULESET $iRule
RULECR $cacr
RECOVERY
RCVRDSN '$libPre${subsys}.REC($stry)'
RSQLID S100447
RUNLOAD
RNOAUTHS
RHEADER
RTRAILER
RCHEKDAT
RREBIND
RREORGTS
RREORGIX
RMODEL4 $aModel
RMODEL4C $cacr
}¢--- A540769.WK.SKELS(DBXCCOM) cre=2012-02-14 mod=2015-11-16-14.38.16 A540769 ---
//*** ca: create ddl from source spec **********************************
//${stp}DDL EXEC PGM=PTLDRIVM,REGION=0M,PARM='SUFFIX=00,EP=RML@MAIN'
//STEPLIB DD DISP=SHR,DSN=$caload
// DD DISP=SHR,DSN=$dsnload
//PTILIB DD DISP=SHR,DSN=$caload
// DD DISP=SHR,DSN=$dsnload
//PTIPARM DD DISP=SHR,DSN=${capref}.CDBAPARM
//PTIXMSG DD DISP=SHR,DSN=${capref}.CDBAXMSG
//MSGFILE DD SYSOUT=*
//REPFILE DD SYSOUT=*
//DDLFILE DD DISP=SHR,DSN=$ddlOut
//PARMFILE DD *
STRTSSID $subsys
CREATOR $cacr
QUICKM
}¢--- A540769.WK.SKELS(DBXCCO2) cre=2012-02-14 mod=2015-11-16-15.15.53 A540769 ---
QUICKEND
TRGSSID $subsys
COMMENT "$comm"
OMAPPNEW
OMRETMIN *
OMRETMAX *
OMRETAGE *
AUXIMP N
MQTIMP N
REFMQT N
RI LOCAL
LOBTOO
SEQIMP
VWIMPEXP
RTNIMP A
RTNIIO Y
NOAUTHS
DDLONLY
HEADER
TRAILER
REPINDDL
PREFIX DSN.DBY
MODEL4 @DEFAULT
MODEL4C S100447
}¢--- A540769.WK.SKELS(DBXCDDPO) cre=2016-06-09 mod=2016-06-09-17.04.08 A540769 ---
//*** ca: PostProcess DDL *********************************************
//${stp}DDPO EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99
//SYSPROC DD DISP=SHR,DSN=$rexxLib
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
%ANAPOST DDL $subsys ${libPre}.DDK($mbrNac) +
${libPre}.DDL($mbrNac)
}¢--- A540769.WK.SKELS(DBXCECP) cre=2013-04-02 mod=2015-11-16-22.10.39 A540769 ---
//*** ca: Copy execution JCL *******************************************
//${stp}EXCP EXEC PGM=IEBGENER
//SYSUT2 DD DISP=SHR,DSN=$libPre${subsys}.EXE($stry)
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DATA,DLM='}!'
}¢--- A540769.WK.SKELS(DBXCEXE) cre=2012-02-14 mod=2016-06-12-08.52.33 A540769 ---
//*** ca: archive strategy & recoverDDL *******************************
//${stp}ARC1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99
//SYSPROC DD DISP=SHR,DSN=$rexxLib
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//START DD DISP=(MOD,CATLG),MGMTCLAS=COM#A069,
// DCB=(RECFM=FB,LRECL=80,DSORG=PS),
// DSN=DSN.DBY${subsys}.${AUF7}.START
//SYSTSIN DD *
%ANAPOST ARC $subsys $libPre${subsys}.ANA($stry) +
$rdlArc +
DSN.DBY${subsys}.${mbrNac}.##DT##.EXO
// IF ${stp}ARC1.RUN AND ${stp}ARC1.RC = 0 THEN
//*** ca: execute strategy *********************************************
//${stp}EXE EXEC PGM=PTLDRIVM,REGION=4M,DYNAMNBR=200,
// PARM='SUFFIX=00,EP=BPLBCTL'
//STEPLIB DD DISP=SHR,DSN=$caload
// DD DISP=SHR,DSN=$dsnload
//PTILIB DD DISP=SHR,DSN=$caload
// DD DISP=SHR,DSN=$dsnload
//PTIPARM DD DISP=SHR,DSN=${capref}.CDBAPARM
//PTIXMSG DD DISP=SHR,DSN=${capref}.CDBAXMSG
//SYSOUT DD SYSOUT=*
//PTIIMSG DD SYSOUT=*
//ABNLIGNR DD DUMMY SUPPRESS ABENDAID DUMPS
//AUDIT DD DISP=(NEW,CATLG,CATLG),MGMTCLAS=COM#A049,
// DSN=DSN.DBY${subsys}.${mbrNac}.##DT##.EXO
//START DD DISP=OLD,DSN=*.${stp}ARC1.START
//SYSPROC DD DISP=SHR,DSN=$rexxLib
//UTPRINT DD SYSOUT=*
//RNPRIN01 DD SYSOUT=* new for runstats profile
//STPRIN01 DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=${subsys}.DBAA.LISTDEF(TEMPL)
//BPIIPT DD DISP=SHR,DSN=$libPre${subsys}.ANA($mbrNac) -- strategy
//BPIOPT DD *
.CONTROL BPID($libPre${subsys}.ANA-$mbrNac) +
LOGID($subsys) UNIT(SYSDA)
.LIST SYSOUT(*) DDNAME(AUDIT)
.OPTION ERRORS NOSQLERRORS RETRY(96) BINDERRORS +
NODISCARDS WRAPLINE
.CONNECT $subsys
// ENDIF
//*** ca: rename execution log ****************************************
// IF ${stp}EXE.ABEND OR ${stp}EXE.RUN THEN
//${stp}ARC2 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99
//SYSPROC DD DISP=SHR,DSN=$rexxLib
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
%ANAPOST ARC $subsys DSN.DBY${subsys}.${mbrNac}.##DT##.EXO
// ENDIF
}¢--- A540769.WK.SKELS(DBXCIMP) cre=2012-02-14 mod=2016-08-08-17.09.02 A540769 ---
//*** dbx import: compare automap creating strategy ********************
//* change $change
//* changeRem $changeRem
//${stp}AUTO EXEC PGM=PTLDRIVM,REGION=0M,
// PARM='SUFFIX=00,EP=RML${dol}CMAI'
//STEPLIB DD DISP=SHR,DSN=$caload
// DD DISP=SHR,DSN=$dsnload
//PTILIB DD DISP=SHR,DSN=$caload
// DD DISP=SHR,DSN=$dsnload
//PTIPARM DD DISP=SHR,DSN=${capref}.CDBAPARM
//PTIXMSG DD DISP=SHR,DSN=${capref}.CDBAXMSG
//MSGFILE DD SYSOUT=*
//ABNLIGNR DD DUMMY SUPPRESS ABENDAID DUMPS
//CNTLFILE DD DUMMY
//DDLIN DD DISP=SHR,DSN=$ddlin
//PARMFILE DD *
STRATEGY $stry -- new strategy
CREATOR DBX -- new strategy
SHAREOPT U
STRTSSID $subsys -- ssid für Strategy
STRTDESC $change $changeRem
REPLACE
EXPOPT $expOpt -- A=explode source keep Target, X=drop unmap
TRGSSID $subsys -- target
RULECRTR $cacr -- change rule set
RULENAME $iRule
MASKCRTR $cacr -- auto map mask
MASKNAME $iMap
}¢--- A540769.WK.SKELS(DBXCMBR) cre=2013-01-18 mod=2013-01-18-14.22.54 A540769 ---
//*** ddl nachtrag kopieren ********************************************
//${stp}COPY EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//FROM DD DISP=SHR,DSN=$frLib
//TO DD DISP=SHR,DSN=$toLib
COPY O=TO,I=((FROM,R))
SELECT M=($mbr)
}¢--- A540769.WK.SKELS(DBXCOMP) cre=2007-06-26 mod=2012-11-26-08.06.31 A540769 ---
//*** compare die beiden cat versions ********************************
//T03COMP EXEC PGM=GOC2CMP,PARM=('/;${keepTgtV}REPSUM,REPCOUNT',
// 'REPCONV,ALTPART,RUNID(S100447),CMDELTA')
//STEPLIB DD DISP=SHR,DSN=${toolPreC}.SADBLLIB
// DD DISP=SHR,DSN=${toolPreP}.SGOCLLIB
// DD DISP=SHR,DSN=${toolPreP}.SADBLLIB
// DD DISP=SHR,DSN=${dsnload}
//REPORT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//CONVRPT DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSOUT DD DUMMY
//MASKS DD $mask
//IGNORES DD $ignore
//SRC DD DISP=SHR,DSN=${libPre}.${src}CAT($mbrNac)
//SRCSIN DD DSN=&SRCSIN,DISP=(,DELETE),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),
// SPACE=(CYL,(10,20),RLSE),
// UNIT=DISK
//SRC2IN DD DISP=(SHR,DELETE),DSN=*.SRCSIN,VOL=REF=*.SRCSIN
//SRCSOUT DD DSN=&SRCSOUT,DISP=(,DELETE),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),
// SPACE=(CYL,(10,500),RLSE),
// UNIT=DISK
//SRC2OUT DD DSN=*.SRCSOUT,VOL=REF=*.SRCSOUT,DISP=(SHR,DELETE)
//TGT DD DISP=SHR,DSN=${libPre}.${trg}CAT($mbrNac)
//TGT2IN DD DISP=(SHR,PASS),DSN=*.TGT,VOL=REF=*.TGT
//TGTSIN DD DSN=&TGTSIN,DISP=(,DELETE),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),
// SPACE=(CYL,(10,500),RLSE),
// UNIT=DISK
//TGTSOUT DD DSN=&TGTSOUT,DISP=(,DELETE),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),
// SPACE=(CYL,(10,500),RLSE),
// UNIT=DISK
//TGT2OUT DD DSN=*.TGTSOUT,VOL=REF=*.TGTSOUT,DISP=(SHR,DELETE)
//SRTBOUT DD DSN=&SRTBOUT,DISP=(,DELETE),
// SPACE=(CYL,(10,500),RLSE),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),
// UNIT=DISK
//CHANGES DD DISP=SHR,DSN=${libPre}.CDL($mbrNac)
//*HANGES DD DSN=DSN.DBX.WK301A.CHAQQ009,
//* DISP=(NEW,CATLG,DELETE),
//* DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),
//* SPACE=(CYL,(10,10),RLSE),
//* UNIT=DISK
//IFF DD DUMMY
}¢--- A540769.WK.SKELS(DBXCPOST) cre=2015-12-21 mod=2015-12-21-15.11.37 A540769 ---
//*** ca: PostProcess analyse *****************************************
//${stp}POST EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99
//SYSPROC DD DISP=SHR,DSN=$rexxLib
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
%ANAPOST ANA $subsys $libPre${subsys}.ANA($stry) +
$libPre${subsys}.AOPT($stry) +
$libPre${subsys}.ANA($stry) +
$libPre${subsys}.QUICK($stry)
}¢--- A540769.WK.SKELS(DBXCPR) cre=2007-08-20 mod=2007-08-21-17.31.18 F540769 ---
//CPREP EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=(OLD,DELETE),DSN=&&CPG
//SYSUT2 DD DISP=SHR,DSN=$cdlPds
//SYSIN DD *
COPY INDD=SYSUT1,OUTDD=SYSUT2
}¢--- A540769.WK.SKELS(DBXCPRE) cre=2015-11-16 mod=2015-11-16-21.58.59 A540769 ---
//*** ca: PreProcess before analysis ***********************************
//${stp}PRE EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99
//SYSPROC DD DISP=SHR,DSN=$rexxLib
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
%ANAPOST PRE $subsys $ddlIn +
$libPre${subsys}.AOPT($stry) +
$ddlOut
}¢--- A540769.WK.SKELS(DBXCP1) cre=2007-08-20 mod=2007-08-21-17.23.54 F540769 ---
//CPG$nn EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD DSN=&&CPG,$dispLike
//SYSIN DD *
GENERATE MAXNAME=2
MEMBER NAME=($mbr)
//SYSUT1 DD *
}¢--- A540769.WK.SKELS(DBXCREN) cre=2012-11-19 mod=2016-01-25-09.05.32 A540769 ---
//*** dbx rename import: automap sql only ******************************
//* change $change strategy $rStry
//* changeRem $changeRem
//${stp}RAUT EXEC PGM=PTLDRIVM,REGION=0M,
// PARM='SUFFIX=00,EP=RML${dol}CMAI'
//STEPLIB DD DISP=SHR,DSN=$caload
// DD DISP=SHR,DSN=$dsnload
//PTILIB DD DISP=SHR,DSN=$caload
// DD DISP=SHR,DSN=$dsnload
//PTIPARM DD DISP=SHR,DSN=${capref}.CDBAPARM
//PTIXMSG DD DISP=SHR,DSN=${capref}.CDBAXMSG
//MSGFILE DD SYSOUT=*
//*BNLIGNR DD DUMMY SUPPRESS ABENDAID DUMPS
//CNTLFILE DD DUMMY
//DDLIN DD DISP=SHR,DSN=$ddlin
//DDLINTRG DD DUMMY
//PARMFILE DD *
STRATEGY $rStry -- new strategy
CREATOR DBX -- new strategy
SHAREOPT U
STRTSSID $subsys -- ssid für Strategy
STRTDESC $change $changeRem
REPLACE
EXPOPT A -- A=explode source keep Target, X=drop unmap
TRGSSID $subsys -- target
RULECRTR $cacr -- change rule set
RULENAME ALL
MASKCRTR $cacr -- auto map mask
MASKNAME ALLLALLL
// IF ${stp}RAUT.RUN AND ${stp}RAUT.RC = 0 THEN
//*** ca: analyze mapStrategy $rStry *********************************
//${stp}RANA EXEC PGM=PTLDRIVM,REGION=0M,PARM='SUFFIX=00,EP=RML@MAIN'
//STEPLIB DD DISP=SHR,DSN=$caload
// DD DISP=SHR,DSN=$dsnload
//PTILIB DD DISP=SHR,DSN=$caload
// DD DISP=SHR,DSN=$dsnload
//PTIPARM DD DISP=SHR,DSN=${capref}.CDBAPARM
//PTIXMSG DD DISP=SHR,DSN=${capref}.CDBAXMSG
//MSGFILE DD SYSOUT=*
//REPFILE DD SYSOUT=*
//ABNLIGNR DD DUMMY SUPPRESS ABENDAID DUMPS
//* strategy
//DDLFILE DD DISP=SHR,DSN=$ddlout
//PARMFILE DD *
STRTSSID $subsys
CREATOR DBX
STRATEGY $rStry
AUXIMP N
MQTIMP
REFMQT N
SEQIMP
RTNIMP
RTNIIO N
SQLID S100447
DDLONLY
NOAUTHS
HEADER
TRAILER
REPINDDL
PREFIX DSN.DBA
MODEL4 @DEFAULT
MODEL4C S100447
}¢--- A540769.WK.SKELS(DBXEMPTY) cre=2012-11-19 mod=2012-11-19-12.05.06 A540769 ---
}¢--- A540769.WK.SKELS(DBXEXVE) cre=2007-06-26 mod=2011-06-21-12.07.38 A540769 ---
//*** DB2 Catalog Objekte extrahieren für $what ************************
//EXT$what EXEC PGM=IKJEFT01,DYNAMNBR=100
//STEPLIB DD DISP=SHR,DSN=${toolPreC}.SADBLLIB
// DD DISP=SHR,DSN=${toolPreP}.SGOCLLIB
// DD DISP=SHR,DSN=${toolPreP}.SADBLLIB
// DD DISP=SHR,DSN=${dsnload}
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM($subsys)
RUN PROG(ADB2GEN) PLAN(ADB) PARM('/WRTCAT')
END
//ADBPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SQL DD DISP=SHR,DSN=${libPre}.${what}DDL($mbrNac)
//CAT DD DISP=SHR,DSN=${libPre}.${what}CAT($mbrNac)
//IN DD *
DB2SYS = '$subsys',
DB2ALOC = '$location',
DB2SERV = '$location',
DB2AUTH = 'S100447',
DB2REL = '$db2rel',
RUNSQLID = 'S100447',
GENDB = 'Y',
GENTS = 'Y',
GENTABLE = 'Y',
GENVIEW = 'D',
GENINDEX = 'Y',
GENSYN = 'Y',
GENALIAS = 'Y',
GENLABEL = 'Y',
GENCOMM = 'Y',
GENRELS = 'D',
GENTRIG = 'D',
GENSG = 'N',
GRANTDB = 'N',
GRANTTS = 'N',
GRANTTAB = 'N',
GRANTVW = 'N',
GENUDT = 'Y',
GENUDF = 'Y',
GENSTP = 'Y',
GENSEQ = 'Y',
GRANTSCH = 'N',
GRANTUDT = 'N',
GRANTUDF = 'N',
GRANTSTP = 'N',
GRANTSEQ = 'N',
GRANTSG = 'N',
NEWDB = '',
NEWTSSG = '',
NEWIXSG = '',
NEWSQLID = '',
NEWSCH = '',
SPCALLOC = 'DEFINED',
DESCRIPT = '$what $AUFTRAG $NACHTRAG',
TGTDB2 = '$db2rel';
$@scope
}¢--- A540769.WK.SKELS(DBXIMP) cre=2007-06-28 mod=2011-06-21-12.10.20 A540769 ---
//*********************************************************************
//* db2 Subsys $subsys
//* change $change
//* remark $changeRem
//* deltaVers $deltaVers
//IMP$subsys EXEC PGM=IKJEFT01,
// REGION=0M,
// DYNAMNBR=100
//SYSEXEC DD DISP=SHR,DSN=${toolPreC}.SADBEXEC
// DD DISP=SHR,DSN=${toolPreP}.SGOCEXEC
// DD DISP=SHR,DSN=${toolPreP}.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=${toolPreC}.SADBCLST
// DD DISP=SHR,DSN=${toolPreP}.SGOCCLST
// DD DISP=SHR,DSN=${toolPreP}.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=${toolPreC}.SADBLLIB
// DD DISP=SHR,DSN=${toolPreP}.SGOCLLIB
// DD DISP=SHR,DSN=${toolPreP}.SADBLLIB
// DD DISP=SHR,DSN=${dsnload}
// DD DISP=SHR,DSN=ISP.SISPLOAD ISPF BASE
//STEPLIB DD DISP=SHR,DSN=${toolPreC}.SADBLLIB
// DD DISP=SHR,DSN=${toolPreP}.SGOCLLIB
// DD DISP=SHR,DSN=${toolPreP}.SADBLLIB
// DD DISP=SHR,DSN=${dsnload}
// DD DISP=SHR,DSN=ISP.SISPLOAD ISPF BASE
//* ISPSTART LOAD LIBRARY IS REQUIRED, EITHER ON STEPLIB OR LINK LIST
//ISPMLIB DD DISP=SHR,DSN=${toolPreC}.SADBMLIB
// DD DISP=SHR,DSN=${toolPreP}.SGOCMLIB
// DD DISP=SHR,DSN=${toolPreP}.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=${toolPreC}.SADBPLIB
// DD DISP=SHR,DSN=${toolPreP}.SGOCPLIB
// DD DISP=SHR,DSN=${toolPreP}.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=${toolPreC}.SADBSLIB
// DD DISP=SHR,DSN=${toolPreP}.SGOCSLIB
// DD DISP=SHR,DSN=${toolPreP}.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=${toolPreC}.SADBTLIB
// DD DISP=SHR,DSN=${toolPreP}.SGOCTLIB
// DD DISP=SHR,DSN=${toolPreP}.SADBTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
ISPSTART CMD( +
%ADBRPGM ADB ADB2CID DB2SYS($subsys) +
PGMPARMS('PMODE=''''B'''',+
EMODE=''''B'''',+
PHASE=''''1'''',+
PCTABLE=''''ADBCIDT1'''',+
CTYPE=$cType,+
PCACT=''''PREREQ''''')+
)
/*
//SYSPRINT DD SYSOUT=*
//ADBDIAG DD SYSOUT=*
$@cdl
//PRMDDN1 DD DISP=(NEW,DELETE),UNIT=SYSDA,SPACE=(CYL,(1,1)),
// DCB=(RECFM=FB,LRECL=80)
$@maskDD
//SYSIN DD *
INDDN='$inDdn',
OUTDDN='PRMDDN1',
$@maskII
IGNOWN='DUMMY',
IGNNAME='DUMMY',
CHGOWN='$chgOwn',
CHGNAME='$change',
CHGREM='$changeRem',
VEROWN='$chgOwn',
VERNAME='$deltaVers';
}¢--- A540769.WK.SKELS(DBXJOBCA) cre=2007-06-26 mod=2015-11-10-07.44.56 A540769 ---
//$jobName JOB (CP00,KE50),'DB2 DBX',
// CLASS=M1,SCHENV=$schenv,
// TIME=1440,REGION=0M,MSGCLASS=T,NOTIFY=&SYSUID
//* Funktion $fun Auftrag $AUFTRAG db2=V$db2rel tool=$tool
}¢--- A540769.WK.SKELS(DBXJOBCQ) cre=2007-11-26 mod=2015-11-10-07.45.03 A540769 ---
//$jobName JOB (CP00,KE50),'DB2 DBX',
// CLASS=M1,SCHENV=$schenv,
// TIME=1440,REGION=0M,MSGCLASS=T,NOTIFY=&SYSUID
//* Funktion $fun Auftrag $AUFTRAG
}¢--- A540769.WK.SKELS(DBXOLCOM) cre=2007-11-22 mod=2011-06-21-12.12.13 A540769 ---
//T03COMP EXEC PGM=GOC2CMP,PARM=('KEEPTGT,REORGALL',
// 'RUNID(S100447),')
//STEPLIB DD DISP=SHR,DSN=${toolPreC}.SADBLLIB
// DD DISP=SHR,DSN=${toolPreP}.SGOCLLIB
// DD DISP=SHR,DSN=${toolPreP}.SADBLLIB
// DD DISP=SHR,DSN=${dsnload}
//REPORT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSOUT DD DUMMY
//MASKS DD $mask
//IGNORES DD $ignore
//SRC DD DISP=SHR,DSN=${libPre}.${src}CAT($mbrNac)
//SRCSIN DD DSN=&SRCSIN,DISP=(,DELETE),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),
// SPACE=(CYL,(10,20),RLSE),
// UNIT=DISK
//SRCSOUT DD DSN=&SRCSOUT,DISP=(,DELETE),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),
// SPACE=(CYL,(10,20),RLSE),
// UNIT=DISK
//TGT DD DISP=SHR,DSN=${libPre}.${trg}CAT($mbrNac)
//TGT2IN DD DISP=(SHR,PASS),
// DSN=*.TGT,VOL=REF=*.TGT
//TGTSIN DD DSN=&TGTSIN,DISP=(,DELETE),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),
// SPACE=(CYL,(10,20),RLSE),
// UNIT=DISK
//TGTSOUT DD DSN=&TGTSOUT,DISP=(,DELETE),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),
// SPACE=(CYL,(10,20),RLSE),
// UNIT=DISK
//TGT2OUT DD DSN=*.TGTSOUT,VOL=REF=*.TGTSOUT,DISP=(SHR,DELETE)
//SRTBOUT DD DSN=&SRTBOUT,DISP=(,DELETE),
// SPACE=(CYL,(10,20),RLSE),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),
// UNIT=DISK
//CHANGES DD DISP=SHR,DSN=${libPre}.CDL($mbrNac)
//IFF DD DSN=DSN.DBA.WK111AAQ.IFF,
// DISP=OLD
// ENDIF
//**********************************************************************
//*
//* DB2 OBJECT COMPARE
//*
//* STEP T04GAPY: GENERATE APPLY CHANGES JOBS
//*
//**********************************************************************
// IF (RC GT 7) THEN
// ELSE
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//T04GAPY EXEC PGM=IKJEFT01,
// PARM='ISPSTART CMD(%GOCGAJOB )',
// REGION=0M,
// DYNAMNBR=100
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.C0.SADBEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.C0.SADBCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.C0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB
// DD DISP=SHR,DSN=ISP.SISPLOAD ISPF BASE
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.C0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB
// DD DISP=SHR,DSN=${dsnload}
// DD DISP=SHR,DSN=ISP.SISPLOAD ISPF BASE
//* ISPSTART LOAD LIBRARY IS REQUIRED, EITHER ON STEPLIB OR LINK LIST
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.C0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.C0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.C0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.C0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//GOCSVARS DD DISP=SHR,DSN=DSN.DBA.WK111AAQ.SHRVARS
//CHANGES DD DISP=SHR,DSN=${libPre}.CDL($mbrNac)
// ENDIF
/*
//**********************************************************************
//*
//* DB2 OBJECT COMPARE
//*
//* STEP T05GRWL: GENERATE RUN WORK STATEMENT LIST
//*
//**********************************************************************
// IF (RC>7) THEN
// ELSE
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//T05GRWL EXEC PGM=IKJEFT01,
// PARM='ISPSTART CMD(%ADBGLUE )',
// REGION=0M,
// DYNAMNBR=100
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.C0.SADBEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.C0.SADBCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.C0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB
// DD DISP=SHR,DSN=ISP.SISPLOAD ISPF BASE
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.C0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB
// DD DISP=SHR,DSN=ISP.SISPLOAD ISPF BASE
//* ISPSTART LOAD LIBRARY IS REQUIRED, EITHER ON STEPLIB OR LINK LIST
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.C0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.C0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.C0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.C0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//VARLST DD *
ADB2CPS=;
ADBTEST=YES;
ADBTSTPN=ADB;
ADBONEJB=YES;
ADBJ1=//F5407691 JOB (KEL25071,0240,,3612),'CATALOG',;
ADBJ2=// MSGCLASS=T,TIME=1440;
ADBJ3=//*MAIN CLASS=LOG;
ADBJ4=;
ADBJ5=;
ADBJPM1=;
ADBJPM2=;
ADBJPM3=;
ADBJPM4=;
DB2AJSYS=;
ADBJCGN=N;
ADBJCLS=;
DB2AJCLS=A;
ADBUNIT=DISK;
ADBJCL='DSN.DBA.DBAF.WSL';
ADBJOBPF=WK111AA;
ADBJOBEM=Y;
AHPULLIB=;
DB2ALOAD= ${dsnload} ;
AAPFLIBR=;
ADBLLIB= 'DSN.TOOLS.RZ1.C0.SADBLLIB' 'DSN.TOOLS.RZ1.P0.SGOCLLIB' 'DSN.TOOLS.RZ1.
P0.SADBLLIB' ;
ADBPLIB= 'DSN.TOOLS.RZ1.C0.SADBPLIB' 'DSN.TOOLS.RZ1.P0.SGOCPLIB' 'DSN.TOOLS.RZ1.
P0.SADBPLIB' ;
ADBMLIB= 'DSN.TOOLS.RZ1.C0.SADBMLIB' 'DSN.TOOLS.RZ1.P0.SGOCMLIB' 'DSN.TOOLS.RZ1.
P0.SADBMLIB' ;
ADBSLIB= 'DSN.TOOLS.RZ1.C0.SADBSLIB' 'DSN.TOOLS.RZ1.P0.SGOCSLIB' 'DSN.TOOLS.RZ1.
P0.SADBSLIB' ;
ADBTLIB= 'DSN.TOOLS.RZ1.C0.SADBTLIB' 'DSN.TOOLS.RZ1.P0.SGOCTLIB' 'DSN.TOOLS.RZ1.
P0.SADBTLIB' ;
ADBELIB= 'DSN.TOOLS.RZ1.C0.SADBEXEC' 'DSN.TOOLS.RZ1.P0.SGOCEXEC' 'DSN.TOOLS.RZ1.
P0.SADBEXEC' ;
ADBCLIB= 'DSN.TOOLS.RZ1.C0.SADBCLST' 'DSN.TOOLS.RZ1.P0.SGOCCLST' 'DSN.TOOLS.RZ1.
P0.SADBCLST' ;
USEHPU=N;
DB2SYS=DBAF;
PARAM=ADB2W1 R WK111AAQ GOCWLDS R;
/*
//GOCWLDS DD DISP=SHR,DSN=DSN.DBA.CLON.WSL
// ENDIF
/*
}¢--- A540769.WK.SKELS(DBXOVR) cre=2007-08-08 mod=2011-06-21-12.13.16 A540769 ---
//T03OVR EXEC PGM=IKJEFT01,
// PARM='ISPSTART CMD(%OVRPREP )',
// REGION=0M,
// DYNAMNBR=100
//SYSEXEC DD DISP=SHR,DSN=${toolPreC}.SADBEXEC
// DD DISP=SHR,DSN=${toolPreP}.SGOCEXEC
// DD DISP=SHR,DSN=${toolPreP}.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=${toolPreC}.SADBCLST
// DD DISP=SHR,DSN=${toolPreP}.SGOCCLST
// DD DISP=SHR,DSN=${toolPreP}.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=${toolPreC}.SADBLLIB
// DD DISP=SHR,DSN=${toolPreP}.SGOCLLIB
// DD DISP=SHR,DSN=${toolPreP}.SADBLLIB
// DD DISP=SHR,DSN=ISP.SISPLOAD ISPF BASE
//STEPLIB DD DISP=SHR,DSN=${toolPreC}.SADBLLIB
// DD DISP=SHR,DSN=${toolPreP}.SGOCLLIB
// DD DISP=SHR,DSN=${toolPreP}.SADBLLIB
// DD DISP=SHR,DSN=ISP.SISPLOAD ISPF BASE
//* ISPSTART LOAD LIBRARY IS REQUIRED, EITHER ON STEPLIB OR LINK LIST
//ISPMLIB DD DISP=SHR,DSN=${toolPreC}.SADBMLIB
// DD DISP=SHR,DSN=${toolPreP}.SGOCMLIB
// DD DISP=SHR,DSN=${toolPreP}.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=${toolPreC}.SADBPLIB
// DD DISP=SHR,DSN=${toolPreP}.SGOCPLIB
// DD DISP=SHR,DSN=${toolPreP}.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=${toolPreC}.SADBSLIB
// DD DISP=SHR,DSN=${toolPreP}.SGOCSLIB
// DD DISP=SHR,DSN=${toolPreP}.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=${toolPreC}.SADBTLIB
// DD DISP=SHR,DSN=${toolPreP}.SGOCTLIB
// DD DISP=SHR,DSN=${toolPreP}.SADBTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//OVERRIDE DD $ovrDD
//CTLINS DD DISP=SHR,DSN=${libPre}.${src}CAT($mbrNac)
//CTLOPS DD DISP=SHR,DSN=${libPre}.${ovr}CAT($mbrNac)
}¢--- A540769.WK.SKELS(DBXSCDL) cre=2011-03-30 mod=2012-11-25-12.20.13 A540769 ---
//*** cdl nachtraege ins $toRz senden **********************************
//CP$toRz EXEC PGM=CSMAPPC,
// PARM='START PGM(CSMAUTIL) PARM(''INDD(I)'')'
//SYSPRINT DD SYSOUT=*
//I DD *
COPY ${cdl}(????????) -
TO $toRz/${cdl}
}¢--- A540769.WK.SKELS(DBXSENDJ) cre=2008-09-05 mod=2008-09-05-16.41.42 F540769 ---
//*** run a job on $rz and get data back *******************************
//$step EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99
//SYSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=$rexxLib
//SYSTSIN DD *
%sendJob node $rz -
}¢--- A540769.WK.SKELS(DBXSMBR) cre=2013-01-18 mod=2013-01-18-13.31.41 A540769 ---
//*** ddd nachtrag ins $toRz senden ************************************
//${stp}COPY EXEC PGM=CSMAPPC,
// PARM='START PGM(CSMAUTIL) PARM(''INDD(I)'')'
//SYSPRINT DD SYSOUT=*
//I DD *
COPY ${frLib}($mbr) -
TO $toRz/${toLib}
}¢--- A540769.WK.SKELS(DBXST) cre=2008-05-06 mod=2008-05-06-15.56.38 F540769 ---
//*** extrahiertes ddl ins $toRz senden ********************************
//COPYDDL EXEC PGM=CSMAPPC,
// PARM='START PGM(CSMAUTIL) PARM(''INDD(I)'')'
//SYSPRINT DD SYSOUT=*
//I DD *
COPY ${libPre}.${what}DDL($mbrNac) -
TO $toRz/${libPre}.${rz}DDL($mbrNac)
//COPYCAT EXEC PGM=CSMAPPC,
// PARM='START PGM(CSMAUTIL) PARM(''INDD(I)'')'
//SYSPRINT DD SYSOUT=*
//I DD *
COPY ${libPre}.${what}CAT($mbrNac) -
TO $toRz/${libPre}.${rz}CAT($mbrNac)
}¢--- A540769.WK.SKELS(DBXSUBRZ) cre=2011-03-30 mod=2015-11-03-13.39.45 A540769 ---
//*** send a job to $toRz *********************************************
//SUB$toRz EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD SUBSYS=(CSM,'SYSTEM=$toRz,SYSOUT=(A,INTRDR)')
//SYSUT1 DD DATA,DLM='}e'
}e end of job to $toRz ****************************************
}¢--- A540769.WK.SKELS(DBXXEQ) cre=2007-08-20 mod=2007-11-08-18.13.11 F540769 ---
//$jobName JOB (CP00,KE50)
//*ROUTE XEQ $xeq
//$jobName NJB (CP00,KE50),
// 'DB2',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN ORG=$xeq,CLASS=LOG
//* Funktion $fun Auftrag $AUFTRAG
}¢--- A540769.WK.SKELS(MJBPMDL) cre=2015-11-19 mod=2015-11-21-00.12.25 A540769 ---
//*** begin CDBAMDL(MJBPMDL) ****************************************** 00001002
//*--- run batchprocessor for a strategy ------------------------------ 00010002
//* 00010100
//* Achtung: um alte Unloads bei rerun zu renamen, benutze 00010200
//* TSO DBX %INMEM REN %SSID 00010300
//* 00010400
//* Ablauf 1) RDL (recovery ddl) erstellen 00010701
//* 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 -------------------- 00030205
//S01RDL EXEC PGM=PTLDRIVM,REGION=0M,PARM='SUFFIX=00,EP=RML@MAIN' 00030302
#INCLUDE STEPLIB 00030502
#INCLUDE PTILIB 00030602
#INCLUDE PTIPARM 00030702
//PTIXMSG DD DISP=SHR,DSN=%*XMSG1 00030803
//MSGFILE DD SYSOUT=* 00030903
//REPFILE DD SYSOUT=* 00031003
//ABNLIGNR DD DUMMY SUPPRESS ABENDAID DUMPS 00031103
//DDLFILE DD DISP=SHR,DSN=DSN.DBX%SSID..RDL(%INMEM) 00031203
//PARMFILE DD * 00031605
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 ------------------------------ 00042505
//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(%INMEM) + 00043604
DSN.DBY%SSID..%INMEM..##DT##.EXE 00043700
// ENDIF 00043800
// IF S02ARC1.RUN AND S02ARC1.RC=0 THEN 00043900
//*--- ca: modify opt input --------------------------------------------00140005
//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 --------------------- 00290005
//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
//*--- rename CA execution log ---------------------------------------- 00521006
// 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 CDBAMDL(MJBPMDL) ****************************************** 00529202
}¢--- A540769.WK.SKELS(MJBPMDLN) cre=2015-11-19 mod=2015-11-19-16.16.53 A540769 ---
//*--- 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
}¢--- A540769.WK.SKELS(NAKCHKTS) cre=2007-05-22 mod=2007-05-22-08.19.11 F540769 ---
TABLESPACE $TS
}¢--- A540769.WK.SKELS(NAKCHKUT) cre=2007-05-22 mod=2007-05-22-09.20.03 F540769 ---
//*** CHECK REFERENTIAL INTEGRITY *************************************
//$STEP EXEC PGM=DSNUTILB,PARM=($DBSYS,'$JOBNAME.CHECK')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=DISK,SPACE=(CYL,(1000,1500)),
// DATACLAS=NULL30
//SYSERR DD DISP=(,PASS),UNIT=DISK,SPACE=(CYL,(1000,1500)),
// DATACLAS=NULL30
//SORTOUT DD DISP=(,PASS),UNIT=DISK,SPACE=(CYL,(1000,1500)),
// DATACLAS=NULL30
//SYSTEMPL DD DISP=SHR,DSN=$DBSYS.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
CHECK DATA
}¢--- A540769.WK.SKELS(NAKCNRTS) cre=2007-06-08 mod=2007-06-11-10.13.17 F540769 ---
select char(tm.name, 16) "tb", mult,
decimal(sum(r.totalrows), 15) "rtsRows"
from tm
left join sysibm.tablespacestats r
on r.dbid = tm.dbid and r.psid = tm.psid
where tm.dbname $DBIN
group by tm.creator, tm.name, mult
order by tm.name
;
select char(strip(s.dbName) || '.' || strip(s.name), 17) "db.ts",
min(r.updatestatstime),
case when min(r.name) is null then '*** no RTS'
when partitions <= 1 and count(*) = 1 then ''
when partitions = count(*) then ''
else '***missRTS'
end "rtsSta",
smallInt(count(*)), s.partitions
from sysibm.systablespace s
left join sysibm.tablespacestats r
on s.dbid = r.dbid and s.psid = r.psid
where s.dbName $DBIN
group by s.dbName, s.name, s.partitions
order by 3 desc, 2 asc
;
}¢--- A540769.WK.SKELS(NAKCNRUN) cre=2007-06-08 mod=2007-06-11-10.22.05 F540769 ---
select char(tm.name, 16) "tb", mult, decimal(cardf, 15) "runStatsCardF"
from tm
where dbname $DBIN
order by tm.name
;
select dbName, type, count(*)
from sysIbm.sysTables
where dbName $DBIN
group by dbName, type
order by dbName
;
select char(strip(creator) || '.' || strip(name), 20) "cr.tb",
char(strip(dbName) || '.' || strip(tsName), 17) "db.ts",
statstime, cardf
from sysIbm.sysTables
where type = 'T' and dbName $DBIN
order by statstime
;
}¢--- A540769.WK.SKELS(NAKCNSQL) cre=2007-06-08 mod=2007-06-11-09.54.10 F540769 ---
select char(tm.name, 16) "tb", mult,
decimal(cnt.cnt, 15) "sqlCount"
from tm
left join
(
}¢--- A540769.WK.SKELS(NAKCNSQ2) cre=2007-06-08 mod=2007-07-05-12.15.20 F540769 ---
) as cnt (cr, tb, cnt)
on tm.creator = cnt.cr and tm.name = cnt.tb
where tm.dbname $DBIN
order by tm.name
with ur
;
}¢--- A540769.WK.SKELS(NAKCNWIT) cre=2007-06-08 mod=2007-06-11-09.54.35 F540769 ---
with tm as
( select t.*, s.psid,
char(case when s.nTables = 1 then ''
when s.nTables > 999 then '****'
else right('****' || strip(char(nTables)), 4)
end, 4) mult
from sysibm.sysTables t, sysibm.systablespace s
where t.type = 'T'
and t.dbName = s.dbName and t.tsname = s.name
)
}¢--- A540769.WK.SKELS(NAKCOP) cre=2007-05-22 mod=2007-05-22-12.46.49 F540769 ---
COPY LIST LIST COPYDDN(TCOPYD) FULL YES SHRLEVEL CHANGE
}¢--- A540769.WK.SKELS(NAKDDL) cre= mod=-. -------------------------------------
//F5407691 JOB (KEL25071,0240,,3612),'CATALOG',
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//**********************************************************************
//*
//* DB2 ADMIN GENERATED JOB
//*
//**********************************************************************
//*
//***********************************************************ADB2GEN***
//* STEP GENSQL: GENERATE SQL FROM DB2 CATALOG
//**********************************************************************
//GENSQL EXEC PGM=IKJEFT01,DYNAMNBR=100
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DBAF)
RUN PROG(ADB2GEN) PLAN(ADB2GEN)
END
/*
//SYSPRINT DD SYSOUT=*
//SQL DD DISP=SHR,
// DSN=F540769.TMP.SQL(TTT)
//IN DD *
DB2SYS = 'DBAF',
DB2ALOC = '',
DB2SERV = 'CHSKA000DBAF',
DB2AUTH = 'S100447',
DB2REL = '815',
RUNSQLID = 'S100447',
GENSG = 'N',
GENDB = 'Y',
GENTS = 'Y',
GENTABLE = 'Y',
GENVIEW = 'D',
GENINDEX = 'Y',
GENSYN = 'Y',
GENALIAS = 'Y',
GENLABEL = 'Y',
GENCOMM = 'Y',
GENRELS = 'D',
GRANTDB = 'N',
GRANTTS = 'N',
GRANTTAB = 'N',
GRANTVW = 'N',
GRANTSG = 'N',
NEWDB = '',
NEWTSSG = '',
NEWIXSG = '',
NEWSQLID = '',
NEWGRANTOR = '',
SPCALLOC = 'DEFINED',
TGTDB2 = '';
DB='BJA10001';
DB='BJA20001';
DB='BJA30001';
DB='BJA40001';
DB='BJA50001';
DB='BJA60001';
DB='BJA70001';
DB='BJA80001';
/*
}¢--- A540769.WK.SKELS(NAKDEP) cre=2007-06-19 mod=2007-06-28-11.36.12 F540769 ---
with o (lev, dType, dCreator, dName, bType, bCreator, bName) as 00010000
( select 0, t.type, creator, name, '.', '', t.dbName 00020000
from sysibm.sysTables t 00030000
where t.dbname $DBIN 00040002
union all select o.lev+1, d.dType, d.dCreator, d.dName, 00050000
o.dType, o.dCreator, o.dName 00060000
from o, sysibm.sysviewdep d 00070000
where d.bcreator = o.dCreator and d.bName = o.dName 00080000
and o.lev < 999999 00090000
union all select o.lev+1, a.Type, a.creator, a.name, 00100000
o.dType, o.dCreator, o.dName 00110000
from o, sysibm.systables a 00120000
where a.tbCreator = o.dCreator and a.tbName = o.dName 00130000
and a.type = 'A' and a.location in('', current server) 00140003
and o.lev < 999999 00150003
union all select o.lev+1, 'Y', y.creator, y.name, 00160000
o.dType, o.dCreator, o.dName 00170000
from o, sysibm.sysSynonyms y 00180000
where y.tbCreator = o.dCreator and y.tbName = o.dName 00190000
and o.lev < 999999 00200000
) 00210001
select dType, dCreator, dName, bType, bCreator, bName 00220001
from o 00230001
}¢--- A540769.WK.SKELS(NAKDSN) cre=2007-06-12 mod=2007-06-12-15.21.51 F540769 ---
//$STEP EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99
//SYSTSIN DD *
DSN SYSTEM($DBSYS)
// DD $DSNIN
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD $DSNOUT
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
}¢--- A540769.WK.SKELS(NAKJOBCA) cre=2007-05-21 mod=2007-05-21-11.09.14 F540769 ---
//$JOBNAME JOB (CP00,KE50),
// 'DB2',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
}¢--- A540769.WK.SKELS(NAKLOAOS) cre=2007-05-22 mod=2007-06-11-13.30.06 F540769 ---
TEMPLATE $TREC DSN('$DSNPRE.$OLDDB.$OLDTS.${PAVAR}UNL')
DISP(OLD,KEEP,KEEP)
}¢--- A540769.WK.SKELS(NAKLOATB) cre=2007-05-21 mod=2007-06-11-17.01.12 F540769 ---
INTO TABLE $TB $PARTDDN
}¢--- A540769.WK.SKELS(NAKLOATS) cre=2007-05-21 mod=2007-06-11-17.05.40 F540769 ---
LOAD $UNPARTDDN -- TABLESPACE $TS
LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
}¢--- A540769.WK.SKELS(NAKLOAUT) cre=2007-05-21 mod=2007-05-21-17.50.12 F540769 ---
//*** UNLOAD WITH LIMIT 0 *********************************************
//$STEP EXEC PGM=DSNUTILB,PARM=($DBSYS,'$JOBNAME.LOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=DISK,SPACE=(CYL,(1000,1500)),
// DATACLAS=NULL30
//SORTOUT DD DISP=(,PASS),UNIT=DISK,SPACE=(CYL,(1000,1500)),
// DATACLAS=NULL30
//SYSTEMPL DD DISP=SHR,DSN=$DBSYS.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
}¢--- A540769.WK.SKELS(NAKLSTTS) cre=2007-05-22 mod=2007-05-22-12.43.20 F540769 ---
INCLUDE TABLESPACE $TS
}¢--- A540769.WK.SKELS(NAKLSTUT) cre=2007-05-22 mod=2007-05-22-13.20.14 F540769 ---
//*** DB2 UTILITY *****************************************************
//$STEP EXEC PGM=DSNUTILB,PARM=($DBSYS,'$JOBNAME.CHECK')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=DISK,SPACE=(CYL,(1000,1500)),
// DATACLAS=NULL30
//SYSERR DD DISP=(,PASS),UNIT=DISK,SPACE=(CYL,(1000,1500)),
// DATACLAS=NULL30
//SORTOUT DD DISP=(,PASS),UNIT=DISK,SPACE=(CYL,(1000,1500)),
// DATACLAS=NULL30
//SYSTEMPL DD DISP=SHR,DSN=$DBSYS.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
LISTDEF LIST
}¢--- A540769.WK.SKELS(NAKPCKG) cre=2007-05-29 mod=2007-06-21-09.54.48 F540769 ---
select
collid, Name, version, conToken, timeStamp, pcTimestamp, type,
validate, isolation, valid, operative, owner, qualifier
from
( select p.*
from sysibm.syspackdep d join sysibm.syspackage p
on p.location = d.dLocation and p.collid = d.dCollid
and p.name = d.dName and p.conToken = d.dConToken
where bType in ('R', 'P')
and bQualifier $DBIN
union all select p.*
from sysibm.syspackdep d join sysibm.syspackage p
on p.location = d.dLocation and p.collid = d.dCollid
and p.name = d.dName and p.conToken = d.dConToken
join sysibm.systables t
on bType = 'T' and bQualifier = t.creator
and d.bName = t.name
where dbName $DBIN
union all select p.*
from sysibm.syspackdep d join sysibm.syspackage p
on p.location = d.dLocation and p.collid = d.dCollid
and p.name = d.dName and p.conToken = d.dConToken
join sysibm.sysIndexes i
on bType = 'I' and bQualifier = i.creator
and d.bName = i.name
where dbName $DBIN
) u
group by collid, Name, version, conToken, timeStamp, pcTimestamp, type,
validate, isolation, valid, operative, owner, qualifier
order by name, pcTimestamp, collid, version
}¢--- A540769.WK.SKELS(NAKPCKGO) cre=2007-06-21 mod=2007-06-21-09.55.26 F540769 ---
select
collid, Name, version, conToken, timeStamp, pcTimestamp, type,
validate, isolation, valid, operative, owner, qualifier
from
( select p.*
from sysibm.syspackdep d join sysibm.syspackage p
on p.location = d.dLocation and p.collid = d.dCollid
and p.name = d.dName and p.conToken = d.dConToken
where bType in ('R', 'P')
and bQualifier $DBIN
union all select p.*
from sysibm.syspackdep d join sysibm.syspackage p
on p.location = d.dLocation and p.collid = d.dCollid
and p.name = d.dName and p.conToken = d.dConToken
join sysibm.systables t
on bType = 'T' and bQualifier = t.creator
and d.bName = t.name
where dbName $DBIN
union all select p.*
from sysibm.syspackdep d join sysibm.syspackage p
on p.location = d.dLocation and p.collid = d.dCollid
and p.name = d.dName and p.conToken = d.dConToken
join sysibm.sysIndexes i
on bType = 'I' and bQualifier = i.creator
and d.bName = i.name
where dbName $DBIN
) u
group by collid, Name, version, conToken, timeStamp, pcTimestamp, type,
validate, isolation, valid, operative, owner, qualifier
order by name, pcTimestamp, collid, version
}¢--- A540769.WK.SKELS(NAKPDR) cre=2007-05-22 mod=2007-05-22-12.42.00 F540769 ---
QUIESCE LIST LIST
MODIFY RECOVERY LIST LIST DELETE AGE (*)
COPY LIST LIST COPYDDN(TCOPYD) FULL YES SHRLEVEL CHANGE
}¢--- A540769.WK.SKELS(NAKQPKG) cre=2007-06-21 mod=2007-06-21-10.15.58 F540769 ---
select dCollid, dName, dConToken
from sysibm.syspackdep
where (not bType in ('P', 'R')) and
bQualifier = 'F540769'
}¢--- A540769.WK.SKELS(NAKSYSCO) cre=2007-05-31 mod=2007-05-31-11.27.42 F540769 ---
SELECT JOBNAME, ICTYPE, COUNT(*), MAX(TIMESTAMP)
FROM SYSIBM.SYSCOPY C
WHERE DBNAME $DBIN
GROUP BY JOBNAME, ICTYPE
ORDER BY 1, 2
;
}¢--- A540769.WK.SKELS(NAKTEP2) cre=2007-06-11 mod=2007-06-11-09.54.54 F540769 ---
//$STEP EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99
//SYSTSIN DD *
DSN SYSTEM($DBSYS)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD $DSNOUT
//*YSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD $DSNIN
}¢--- A540769.WK.SKELS(NAKULITB) cre=2007-05-21 mod=2007-05-21-12.12.40 F540769 ---
FROM TABLE $TB LIMIT 0
}¢--- A540769.WK.SKELS(NAKULITS) cre=2007-05-21 mod=2007-05-21-12.35.30 F540769 ---
UNLOAD TABLESPACE $TS $PARTONE
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL CHANGE ISOLATION UR
}¢--- A540769.WK.SKELS(NAKULIUT) cre=2007-05-21 mod=2007-05-25-19.07.51 F540769 ---
//*** UNLOAD WITH LIMIT 0 *********************************************
//$STEP EXEC PGM=DSNUTILB,PARM=($DBSYS,'$JOBNAME.UNLIM')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=$DBSYS.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('$DSNPRE.&DB..&SN..UNL')
DATACLAS (NULL30) MGMTCLAS($MGMTCLAS)
SPACE (1,1) CYL
TEMPLATE TPUN DSN('$DSNPRE.&DB..&SN..PUN')
DATACLAS (NULL12) MGMTCLAS($MGMTCLAS)
SPACE (1,1) CYL
}¢--- A540769.WK.SKELS(NAKUNLTB) cre=2007-05-21 mod=2007-05-21-12.56.59 F540769 ---
FROM TABLE $TB
}¢--- A540769.WK.SKELS(NAKUNLTS) cre=2007-05-21 mod=2007-06-11-13.22.55 F540769 ---
UNLOAD TABLESPACE $TS
PUNCHDDN TPUN UNLDDN TREC$PAUN
SHRLEVEL REFERENCE
}¢--- A540769.WK.SKELS(NAKUNLUT) cre=2007-05-21 mod=2007-06-11-13.22.09 F540769 ---
//*** UNLOAD WITH LIMIT 0 *********************************************
//$STEP EXEC PGM=DSNUTILB,PARM=($DBSYS,'$JOBNAME.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=$DBSYS.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TRECUN DSN('$DSNPRE.&DB..&SN..UNL')
DATACLAS (NULL30) MGMTCLAS($MGMTCLAS)
SPACE (1000,1000) CYL
TEMPLATE TRECPA DSN('$DSNPRE.&DB..&SN..P&PA..UNL')
DATACLAS (NULL30) MGMTCLAS($MGMTCLAS)
SPACE (1000,1000) CYL
TEMPLATE TPUN DSN('$DSNPRE.&DB..&SN..PUN')
DATACLAS (NULL12) MGMTCLAS($MGMTCLAS)
SPACE (1,1) CYL
}¢--- A540769.WK.SKELS(REPACNT) cre=2008-11-27 mod=2008-11-27-13.21.04 F540769 ---
//S01 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99
//SYSTSIN DD *
DSN SYSTEM($dbSub)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
SELECT COUNT(*)
FROM $tb
WITH UR
}¢--- A540769.WK.SKELS(REPAJC) cre=2008-11-25 mod=2008-11-28-09.44.47 F540769 ---
//$jobName JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
}¢--- A540769.WK.SKELS(REPALOJO) cre=2007-10-19 mod=2008-11-25-15.50.26 F540769 ---
//S1 EXEC PGM=DSNUTILB,PARM='${dbSub},${jobName}.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='${pref}.${ts}.P00'
// SET OLDSUF='.UNL'
//SYSTEMPL DD DSN=${dbSub}.DBAA.LISTDEF(TEMPL),DISP=SHR
}¢--- A540769.WK.SKELS(REPALOPU) cre=2007-10-19 mod=2010-01-27-14.01.33 A540769 ---
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
ENFORCE NO
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
SORTNUM 160
}¢--- A540769.WK.SKELS(REPAREBI) cre=2008-11-24 mod=2008-11-25-15.57.54 F540769 ---
//S01 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN SYS($dbSub)
}¢--- A540769.WK.SKELS(REPAREBU) cre=2008-11-24 mod=2008-11-28-09.45.11 F540769 ---
//***** rebuild indexes with runstats for ts $ts
//S01 EXEC PGM=DSNUTILB,PARM=($dbSub,'${jobName}.REBUI')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=${dbSub}.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
REBUILD INDEX (ALL) TABLESPACE $ts
SHRLEVEL REFERENCE
SORTDEVT DISK SORTNUM 255
STATISTICS UPDATE ALL
}¢--- A540769.WK.SKELS(REPARUNS) cre=2008-11-25 mod=2008-11-25-15.53.04 F540769 ---
//*** runstats for tablespace only $ts
//S01 EXEC PGM=DSNUTILB,PARM=($dbSub,'${jobName}.RUNSTA')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=${dbSub}.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
RUNSTATS TABLESPACE $ts
SORTDEVT DISK SORTNUM 100
UPDATE ALL
SHRLEVEL CHANGE
}¢--- A540769.WK.SKELS(REPAULI0) cre=2007-10-19 mod=2008-11-25-15.24.56 F540769 ---
//***** unload limit 0 tb $tb ts $ts
//S01 EXEC PGM=DSNUTILB,PARM=($dbSub,'${jobName}.UNLI0')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=${dbSub}.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('${pref}.&DB..&SN..UNLLIM0')
DATACLAS (EYN08P) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('${pref}.&DB..&SN..PUNLIM0')
DATACLAS (EYN08P) MGMTCLAS(COM#A045)
UNLOAD TABLESPACE $ts PART 1
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL CHANGE ISOLATION UR
FROM TABLE $tb LIMIT 0
}¢--- A540769.WK.SKELS(REPAUNLO) cre=2007-10-19 mod=2008-11-25-15.36.30 F540769 ---
//***** unload tb $tb in $ts
//S01 EXEC PGM=DSNUTILB,PARM=($dbSub,'${jobName}.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=${dbSub}.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('${pref}.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('${pref}.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE $ts PARTLEVEL
UNLOAD TABLESPACE $ts PART $partNo$partLast
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
}¢--- A540769.WK.SKELS(TO01LOAD) cre=2007-04-13 mod=2007-04-13-13.13.10 F540769 ---
//F540769@ JOB (CP00,KE50),TIME=1440
//*MAIN SYSTEM=R22,CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DP2G,F540769@.LOAD'
//UTPRINT DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
}¢--- A540769.WK.SKELS(TO01LOGE) cre=2007-04-13 mod=2007-04-13-13.15.21 F540769 ---
//F540769A JOB (CP00,KE50),TIME=1440
//*MAIN SYSTEM=R22,CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DP2G,F540769A.LOAD'
//UTPRINT DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE BDI0MYLT
DSN('SAVR24.TO01.S24.DDAKTPAS.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0MYLT RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 4
INTO TABLE "TODD"."AKTIVPASSIV"
WHEN(00001:00002) = X'0122'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0MYTA
DSN('SAVR24.TO01.S24.DDALMDS.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0MYTA RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 6
INTO TABLE "TODD"."ALMDATASET"
WHEN(00001:00002) = X'0121'
( "DATASET"
POSITION( 00003:00006) INTEGER
, "HERKUNFTDS"
POSITION( 00008:00011) INTEGER
NULLIF(00007)=X'FF'
, "DATASETTYP"
POSITION( 00012:00012) CHAR(00001)
, "DATASETART"
POSITION( 00013:00016) INTEGER
, "KURZTEXT"
POSITION( 00017:00024) CHAR(00008)
, "LANGTEXT"
POSITION( 00025:00054) CHAR(00030)
, "STICHDATUM_ALM"
POSITION( 00055:00064) DATE EXTERNAL
, "STICHDATUM_TO"
POSITION( 00065:00074) DATE EXTERNAL
, "VERARBEITUNGSDATUM"
POSITION( 00075:00084) DATE EXTERNAL
, "GUELTIG_VON"
POSITION( 00085:00094) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00095:00104) DATE EXTERNAL
)
TEMPLATE BDI0MY2F
DSN('SAVR24.TO01.S24.DDASOF.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0MY2F RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODD"."ALM_ASOF"
WHEN(00001:00002) = X'0120'
( "ASOF_DATE"
POSITION( 00003:00012) DATE EXTERNAL
)
TEMPLATE BDI0MZAW
DSN('SAVR24.TO01.S24.DDAUBTYP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0MZAW RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TODD"."AUSUEBUNGSTYP"
WHEN(00001:00002) = X'011F'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0MZHT
DSN('SAVR24.TO01.S24.DDBEN.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0MZHT RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TODD"."BENUTZER"
WHEN(00001:00002) = X'011E'
( "PID"
POSITION( 00003:00011) CHAR(00009)
, "EMAIL"
POSITION( 00013:00052) CHAR(00040)
NULLIF(00012)=X'FF'
, "GUELTIG_VON"
POSITION( 00053:00062) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00063:00072) DATE EXTERNAL
)
TEMPLATE BDI0MZS7
DSN('SAVR24.TO01.S24.DDBLNZRB.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0MZS7 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 16487
INTO TABLE "TODD"."BILANZRUBRIK"
WHEN(00001:00002) = X'011D'
( "ID"
POSITION( 00003:00018) CHAR(00016)
, "BEZEICHNUNG"
POSITION( 00019:00058) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00059:00068) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00069:00078) DATE EXTERNAL
)
TEMPLATE BDI0MZZ7
DSN('SAVR24.TO01.S24.DDBRANCH.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0MZZ7 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 927
INTO TABLE "TODD"."BRANCHE"
WHEN(00001:00002) = X'011C'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00066) CHAR(00060)
, "GUELTIG_VON"
POSITION( 00067:00076) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00077:00086) DATE EXTERNAL
)
TEMPLATE BDI0MZ7I
DSN('SAVR24.TO01.S24.DDBSKNDT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0MZ7I RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 6
INTO TABLE "TODD"."BSKUNDENART"
WHEN(00001:00002) = X'011B'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0M0G0
DSN('SAVR24.TO01.S24.DDBUNIT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0M0G0 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 66
INTO TABLE "TODD"."BUSINESSUNIT"
WHEN(00001:00002) = X'011A'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "BUID"
POSITION( 00007:00010) CHAR(00004)
, "LEID"
POSITION( 00011:00014) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00015:00054) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00055:00064) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00065:00074) DATE EXTERNAL
)
TEMPLATE BDI0M0OA
DSN('SAVR24.TO01.S24.DDDOMIZL.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0M0OA RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 268
INTO TABLE "TODD"."DOMIZIL"
WHEN(00001:00002) = X'0119'
( "ID"
POSITION( 00003:00005) CHAR(00003)
, "BEZEICHNUNG"
POSITION( 00006:00045) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00046:00055) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00056:00065) DATE EXTERNAL
)
TEMPLATE BDI0M0VJ
DSN('SAVR24.TO01.S24.DDDSART.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0M0VJ RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TODD"."DATASETART"
WHEN(00001:00002) = X'0118'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0M03H
DSN('SAVR24.TO01.S24.DDDSTYP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0M03H RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TODD"."DATASETTYP"
WHEN(00001:00002) = X'0117'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0M1JT
DSN('SAVR24.TO01.S24.DDFINPUT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0M1JT RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 1705
INTO TABLE "TODD"."FEHLERINPUT"
WHEN(00001:00002) = X'0116'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "AKTIVPASSIV"
POSITION( 00042:00045) INTEGER
NULLIF(00041)=X'FF'
, "WAEHRUNG"
POSITION( 00047:00050) CHAR(00004)
NULLIF(00046)=X'FF'
, "PRODUKT"
POSITION( 00052:00055) CHAR(00004)
NULLIF(00051)=X'FF'
, "NOMINAL"
POSITION( 00057:00064) FLOAT(53)
NULLIF(00056)=X'FF'
)
TEMPLATE BDI0M5DO
DSN('SAVR24.TO01.S24.DDFMLDG.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0M5DO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 32109
INTO TABLE "TODD"."ALMFEHLERMELDUNG"
WHEN(00001:00002) = X'0115'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "QUELLE"
POSITION( 00041:00043) CHAR(00003)
, "KLASSE"
POSITION( 00044:00044) CHAR(00001)
, "NUMMER"
POSITION( 00045:00052) CHAR(00008)
)
TEMPLATE BDI0M5K2
DSN('SAVR24.TO01.S24.DDFTXT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0M5K2 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 35
INTO TABLE "TODD"."ALMFEHLERTEXT"
WHEN(00001:00002) = X'0114'
( "QUELLE"
POSITION( 00003:00005) CHAR(00003)
, "KLASSE"
POSITION( 00006:00006) CHAR(00001)
, "NUMMER"
POSITION( 00007:00014) CHAR(00008)
, "TEXT"
POSITION( 00015:00074) CHAR(00060)
, "GUELTIG_VON"
POSITION( 00075:00084) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00085:00094) DATE EXTERNAL
)
TEMPLATE BDI0M5WH
DSN('SAVR24.TO01.S24.DDHBUCH.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0M5WH RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 30120
INTO TABLE "TODD"."HAUPTBUCH"
WHEN(00001:00002) = X'0113'
( "ID"
POSITION( 00003:00009) CHAR(00007)
, "S_RUBRIK"
POSITION( 00011:00026) CHAR(00016)
NULLIF(00010)=X'FF'
, "H_RUBRIK"
POSITION( 00028:00043) CHAR(00016)
NULLIF(00027)=X'FF'
, "BEZEICHNUNG"
POSITION( 00044:00109) CHAR(00066)
)
TEMPLATE BDI0M53Y
DSN('SAVR24.TO01.S24.DDHERKFT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0M53Y RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 7
INTO TABLE "TODD"."HERKUNFT"
WHEN(00001:00002) = X'0112'
( "ID"
POSITION( 00003:00010) CHAR(00008)
, "BEZEICHNUNG"
POSITION( 00011:00050) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00051:00060) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00061:00070) DATE EXTERNAL
)
TEMPLATE BDI0M6BP
DSN('SAVR24.TO01.S24.DDKNDART.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0M6BP RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 137
INTO TABLE "TODD"."KUNDENART"
WHEN(00001:00002) = X'0111'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00066) CHAR(00060)
, "GUELTIG_VON"
POSITION( 00067:00076) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00077:00086) DATE EXTERNAL
)
TEMPLATE BDI0M6IZ
DSN('SAVR24.TO01.S24.DDKNDSEG.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0M6IZ RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 134
INTO TABLE "TODD"."KUNDENSEGMENT"
WHEN(00001:00002) = X'0110'
( "ID"
POSITION( 00003:00005) CHAR(00003)
, "SEGCD"
POSITION( 00006:00009) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00010:00049) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00050:00059) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00060:00069) DATE EXTERNAL
)
TEMPLATE BDI0Q6ID
DSN('SAVR24.TO01.S24.DDKONTR.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0Q6ID RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 710260
INTO TABLE "TODD"."ALMKONTRAKTSTAMM"
WHEN(00001:00002) = X'010F'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "KONTRAKTKLASSE"
POSITION( 00041:00043) CHAR(00003)
, "KONTRAKTTYP"
POSITION( 00044:00047) INTEGER
, "PRODUKT"
POSITION( 00048:00051) CHAR(00004)
, "AKTIVPASSIV"
POSITION( 00052:00055) INTEGER
, "NEUALT"
POSITION( 00057:00057) CHAR(00001)
NULLIF(00056)=X'FF'
, "PROFITCENTER"
POSITION( 00059:00062) INTEGER
NULLIF(00058)=X'FF'
, "KUNDENNR"
POSITION( 00064:00075) CHAR(00012)
NULLIF(00063)=X'FF'
, "ABSCHLUSS"
POSITION( 00076:00085) DATE EXTERNAL
, "LBEGINN"
POSITION( 00086:00095) DATE EXTERNAL
, "LENDE"
POSITION( 00097:00106) DATE EXTERNAL
NULLIF(00096)=X'FF'
, "KFRIST"
POSITION( 00108:00115) FLOAT(53)
NULLIF(00107)=X'FF'
, "WAEHRUNG"
POSITION( 00116:00119) CHAR(00004)
, "NOMINAL"
POSITION( 00120:00127) FLOAT(53)
, "NOMINAL_BILANZ"
POSITION( 00128:00135) FLOAT(53)
, "PREIS"
POSITION( 00136:00143) FLOAT(53)
, "TILGUNGSFREQUENZ"
POSITION( 00145:00152) FLOAT(53)
NULLIF(00144)=X'FF'
, "TILGUNGSMODUS"
POSITION( 00154:00154) CHAR(00001)
NULLIF(00153)=X'FF'
, "TILGUNGSBETRAG"
POSITION( 00156:00163) FLOAT(53)
NULLIF(00155)=X'FF'
, "ZINSSATZ"
POSITION( 00164:00171) FLOAT(53)
, "ZINSUSANZ"
POSITION( 00172:00175) INTEGER
, "ZINSFREQUENZ"
POSITION( 00176:00179) INTEGER
, "ZINSMODUS"
POSITION( 00180:00180) CHAR(00001)
, "ZINSINDEX"
POSITION( 00182:00185) INTEGER
NULLIF(00181)=X'FF'
, "ZINSSPREAD"
POSITION( 00187:00194) FLOAT(53)
NULLIF(00186)=X'FF'
, "ZINSAFREQUENZ"
POSITION( 00196:00199) INTEGER
NULLIF(00195)=X'FF'
, "ZINSAMODUS"
POSITION( 00201:00201) CHAR(00001)
NULLIF(00200)=X'FF'
, "BSTRANSSATZ"
POSITION( 00203:00210) FLOAT(53)
NULLIF(00202)=X'FF'
, "BSPRODUKT"
POSITION( 00212:00215) CHAR(00004)
NULLIF(00211)=X'FF'
, "BSRUBRIK"
POSITION( 00217:00232) CHAR(00016)
NULLIF(00216)=X'FF'
, "BSKUAG"
POSITION( 00234:00234) CHAR(00001)
NULLIF(00233)=X'FF'
, "RISIKOKLASSE"
POSITION( 00236:00238) CHAR(00003)
NULLIF(00235)=X'FF'
, "HB_ALT"
POSITION( 00240:00246) CHAR(00007)
NULLIF(00239)=X'FF'
, "ZINSNPAYMENT"
POSITION( 00248:00257) DATE EXTERNAL
NULLIF(00247)=X'FF'
)
TEMPLATE BDI0Q6PS
DSN('SAVR24.TO01.S24.DDKTKLAS.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0Q6PS RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 6
INTO TABLE "TODD"."KONTRAKTKLASSE"
WHEN(00001:00002) = X'010E'
( "ID"
POSITION( 00003:00005) CHAR(00003)
, "BEZEICHNUNG"
POSITION( 00006:00045) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00046:00055) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00056:00065) DATE EXTERNAL
)
TEMPLATE BDI0Q6XJ
DSN('SAVR24.TO01.S24.DDKTTYP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0Q6XJ RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 14
INTO TABLE "TODD"."KONTRAKTTYP"
WHEN(00001:00002) = X'010D'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0Q7OY
DSN('SAVR24.TO01.S24.DDKUNDE.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0Q7OY RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 142629
INTO TABLE "TODD"."KUNDE"
WHEN(00001:00002) = X'010C'
( "CIFNR"
POSITION( 00003:00014) CHAR(00012)
, "BUCD"
POSITION( 00015:00018) CHAR(00004)
, "DOMIZIL"
POSITION( 00019:00021) CHAR(00003)
, "KUNDENART"
POSITION( 00022:00025) CHAR(00004)
, "NATIONALITAET"
POSITION( 00027:00029) CHAR(00003)
NULLIF(00026)=X'FF'
, "KUNDENSEGMENT"
POSITION( 00031:00033) CHAR(00003)
NULLIF(00030)=X'FF'
, "BRANCHENCODE"
POSITION( 00035:00038) CHAR(00004)
NULLIF(00034)=X'FF'
, "GUELTIG_VON"
POSITION( 00039:00048) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00049:00058) DATE EXTERNAL
)
TEMPLATE BDI0Q7Y7
DSN('SAVR24.TO01.S24.DDLENT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0Q7Y7 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 12
INTO TABLE "TODD"."LEGALENTITY"
WHEN(00001:00002) = X'010B'
( "LEID"
POSITION( 00003:00006) CHAR(00004)
, "LECD"
POSITION( 00007:00010) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00011:00050) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00051:00060) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00061:00070) DATE EXTERNAL
)
TEMPLATE BDI0Q76H
DSN('SAVR24.TO01.S24.DDNEUALT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0Q76H RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TODD"."NEUALT"
WHEN(00001:00002) = X'010A'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0Q8EZ
DSN('SAVR24.TO01.S24.DDOPTART.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0Q8EZ RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TODD"."OPTIONSART"
WHEN(00001:00002) = X'0109'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0Q8L3
DSN('SAVR24.TO01.S24.DDOPTKT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0Q8L3 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODD"."ALMOPTIONSKONTRAKT"
WHEN(00001:00002) = X'0108'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "HERKUNFT"
POSITION( 00007:00014) CHAR(00008)
, "DATASET"
POSITION( 00015:00018) INTEGER
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "OPTIONSART"
POSITION( 00041:00041) CHAR(00001)
, "VERFALLDATUM"
POSITION( 00042:00051) DATE EXTERNAL
, "AUSUEBUNGSDATUM"
POSITION( 00053:00062) DATE EXTERNAL
NULLIF(00052)=X'FF'
, "AUSUEBEFREQUENZ"
POSITION( 00064:00071) FLOAT(53)
NULLIF(00063)=X'FF'
, "PUT_CALL"
POSITION( 00072:00072) CHAR(00001)
, "AUSUEBUNGSTYP"
POSITION( 00073:00073) CHAR(00001)
, "STRIKE"
POSITION( 00075:00082) FLOAT(53)
NULLIF(00074)=X'FF'
)
TEMPLATE BDI0Q8TP
DSN('SAVR24.TO01.S24.DDPRFTCT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0Q8TP RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TODD"."PROFITCENTER"
WHEN(00001:00002) = X'0107'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0Q82O
DSN('SAVR24.TO01.S24.DDPRODKT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0Q82O RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 1551
INTO TABLE "TODD"."PRODUKT"
WHEN(00001:00002) = X'0106'
( "PRODUKT"
POSITION( 00003:00006) CHAR(00004)
, "ISTORELEVANT"
POSITION( 00007:00007) CHAR(00001)
, "ISUNTERBETEILIGUNG"
POSITION( 00008:00008) CHAR(00001)
, "ISBODENSATZ"
POSITION( 00009:00009) CHAR(00001)
, "ISDEFPRODUKT"
POSITION( 00010:00010) CHAR(00001)
, "ISRRARELEVANT"
POSITION( 00011:00011) CHAR(00001)
, "KURZTEXT"
POSITION( 00012:00021) CHAR(00010)
, "LANGTEXT"
POSITION( 00022:00061) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00062:00071) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00072:00081) DATE EXTERNAL
, "LANGTEXTE"
POSITION( 00083:00122) CHAR(00040)
NULLIF(00082)=X'FF'
, "LANGTEXTF"
POSITION( 00124:00163) CHAR(00040)
NULLIF(00123)=X'FF'
, "LANGTEXTI"
POSITION( 00165:00204) CHAR(00040)
NULLIF(00164)=X'FF'
)
TEMPLATE BDI0RABO
DSN('SAVR24.TO01.S24.DDPUTCAL.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RABO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TODD"."PUTCALL"
WHEN(00001:00002) = X'0105'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
//F540769B JOB (CP00,KE50),TIME=1440
//*MAIN SYSTEM=R22,CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DP2G,F540769B.LOAD'
//UTPRINT DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE BDI0RAKE
DSN('SAVR24.TO01.S24.DDREPEMP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RAKE RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 13
INTO TABLE "TODD"."REPORTEMPFAENGER"
WHEN(00001:00002) = X'0104'
( "REPORT"
POSITION( 00003:00010) CHAR(00008)
, "PID"
POSITION( 00011:00019) CHAR(00009)
, "BUCD"
POSITION( 00020:00023) CHAR(00004)
, "DEST"
POSITION( 00024:00027) CHAR(00004)
, "NCOPY"
POSITION( 00028:00031) INTEGER
, "GUELTIG_VON"
POSITION( 00032:00041) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00042:00051) DATE EXTERNAL
)
TEMPLATE BDI0RATI
DSN('SAVR24.TO01.S24.DDRRARBK.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RATI RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 20
INTO TABLE "TODD"."RRARBK"
WHEN(00001:00002) = X'0103'
( "RUBRIK"
POSITION( 00003:00005) CHAR(00003)
, "TEXT1"
POSITION( 00006:00008) CHAR(00003)
, "TEXT2"
POSITION( 00009:00078) CHAR(00070)
)
TEMPLATE BDI0RAZS
DSN('SAVR24.TO01.S24.DDVALOKT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RAZS RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODD"."ALMVALORKONTRAKT"
WHEN(00001:00002) = X'0102'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "VALORENNUMMER"
POSITION( 00041:00050) CHAR(00010)
, "VALORHERKUNFT"
POSITION( 00051:00054) INTEGER
, "MARKTPREIS"
POSITION( 00055:00062) FLOAT(53)
, "GUELTIG_VON"
POSITION( 00063:00072) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00073:00082) DATE EXTERNAL
)
TEMPLATE BDI0RA7C
DSN('SAVR24.TO01.S24.DDVALOR.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RA7C RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TODD"."VALOR"
WHEN(00001:00002) = X'0101'
( "ID"
POSITION( 00003:00012) CHAR(00010)
, "BEZEICHNUNG"
POSITION( 00013:00052) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00053:00062) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00063:00072) DATE EXTERNAL
)
TEMPLATE BDI0RBGC
DSN('SAVR24.TO01.S24.DDVLOHKT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RBGC RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 1
INTO TABLE "TODD"."VALORHERKUNFT"
WHEN(00001:00002) = X'0100'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0RBO4
DSN('SAVR24.TO01.S24.DDWAEHRG.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RBO4 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 203
INTO TABLE "TODD"."WAEHRUNG"
WHEN(00001:00002) = X'00FF'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0RBWN
DSN('SAVR24.TO01.S24.DDZINSFQ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RBWN RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 6
INTO TABLE "TODD"."ZINSFREQUENZ"
WHEN(00001:00002) = X'00FE'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0RB45
DSN('SAVR24.TO01.S24.DDZINSUZ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RB45 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 5
INTO TABLE "TODD"."ZINSUSANZ"
WHEN(00001:00002) = X'00FD'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0RCI6
DSN('SAVR24.TO01.S24.DDZSATZ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RCI6 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 193422
INTO TABLE "TODD"."ZINSSATZ"
WHEN(00001:00002) = X'00FC'
( "WHRG"
POSITION( 00003:00006) CHAR(00004)
, "TYP"
POSITION( 00007:00010) CHAR(00004)
, "GULTIGAM"
POSITION( 00011:00020) DATE EXTERNAL
, "LAUFZEIT"
POSITION( 00021:00024) CHAR(00004)
, "USANZ"
POSITION( 00025:00028) INTEGER
, "ZINSSATZ"
POSITION( 00029:00036) FLOAT(53)
)
TEMPLATE BDI0RCQ8
DSN('SAVR24.TO01.S24.DDZSINDX.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RCQ8 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TODD"."ZINSINDEX"
WHEN(00001:00002) = X'00FB'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0RCZH
DSN('SAVR24.TO01.S24.DDZSMODU.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RCZH RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TODD"."ZINSMODUS"
WHEN(00001:00002) = X'00FA'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0RDY0
DSN('SAVR24.TO01.S24.DMAKTPAS.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RDY0 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 4
INTO TABLE "TODM"."AKTIVPASSIV"
WHEN(00001:00002) = X'00F9'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0RD63
DSN('SAVR24.TO01.S24.DMALMDS.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RD63 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 192
INTO TABLE "TODM"."ALMDATASET"
WHEN(00001:00002) = X'00F8'
( "DATASET"
POSITION( 00003:00006) INTEGER
, "HERKUNFTDS"
POSITION( 00008:00011) INTEGER
NULLIF(00007)=X'FF'
, "DATASETTYP"
POSITION( 00012:00012) CHAR(00001)
, "DATASETART"
POSITION( 00013:00016) INTEGER
, "KURZTEXT"
POSITION( 00017:00024) CHAR(00008)
, "LANGTEXT"
POSITION( 00025:00054) CHAR(00030)
, "STICHDATUM_ALM"
POSITION( 00055:00064) DATE EXTERNAL
, "STICHDATUM_TO"
POSITION( 00065:00074) DATE EXTERNAL
, "VERARBEITUNGSDATUM"
POSITION( 00075:00084) DATE EXTERNAL
, "GUELTIG_VON"
POSITION( 00085:00094) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00095:00104) DATE EXTERNAL
)
TEMPLATE BDI0REGX
DSN('SAVR24.TO01.S24.DMASOF.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0REGX RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODM"."ALM_ASOF"
WHEN(00001:00002) = X'00F7'
( "ASOF_DATE"
POSITION( 00003:00012) DATE EXTERNAL
)
TEMPLATE BDI0REPY
DSN('SAVR24.TO01.S24.DMAUBTYP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0REPY RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TODM"."AUSUEBUNGSTYP"
WHEN(00001:00002) = X'00F6'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0RE0T
DSN('SAVR24.TO01.S24.DMBEN.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RE0T RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TODM"."BENUTZER"
WHEN(00001:00002) = X'00F5'
( "PID"
POSITION( 00003:00011) CHAR(00009)
, "EMAIL"
POSITION( 00013:00052) CHAR(00040)
NULLIF(00012)=X'FF'
, "GUELTIG_VON"
POSITION( 00053:00062) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00063:00072) DATE EXTERNAL
)
TEMPLATE BDI0RE7T
DSN('SAVR24.TO01.S24.DMBFINDX.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RE7T RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODM"."BFINDEX"
WHEN(00001:00002) = X'00F4'
( "INDEX"
POSITION( 00003:00006) INTEGER
, "BUCD"
POSITION( 00007:00010) CHAR(00004)
, "STICHTAG"
POSITION( 00011:00020) DATE EXTERNAL
, "ME"
POSITION( 00021:00028) CHAR(00008)
, "VERARBEITUNG"
POSITION( 00029:00038) DATE EXTERNAL
, "URSPRUNG"
POSITION( 00040:00089) CHAR(00050)
NULLIF(00039)=X'FF'
)
TEMPLATE BDI0RFIK
DSN('SAVR24.TO01.S24.DMBLNZKS.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RFIK RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 5592
INTO TABLE "TODM"."BILANZKURS"
WHEN(00001:00002) = X'00F3'
( "WHRG"
POSITION( 00003:00006) CHAR(00004)
, "GULTIGAM"
POSITION( 00007:00016) DATE EXTERNAL
, "KURS"
POSITION( 00017:00024) FLOAT(53)
)
TEMPLATE BDI0RFQK
DSN('SAVR24.TO01.S24.DMBLNZRB.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RFQK RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODM"."BILANZRUBRIK"
WHEN(00001:00002) = X'00F2'
( "ID"
POSITION( 00003:00018) CHAR(00016)
, "BEZEICHNUNG"
POSITION( 00019:00058) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00059:00068) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00069:00078) DATE EXTERNAL
)
TEMPLATE BDI0RFXJ
DSN('SAVR24.TO01.S24.DMBLZCD.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RFXJ RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODM"."BILANZCODE"
WHEN(00001:00002) = X'00F1'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "BILANZCODE"
POSITION( 00007:00036) CHAR(00030)
, "KAS"
POSITION( 00037:00040) CHAR(00004)
, "UT3"
POSITION( 00041:00046) CHAR(00006)
)
TEMPLATE BDI0RF4E
DSN('SAVR24.TO01.S24.DMBRANCH.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RF4E RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 927
INTO TABLE "TODM"."BRANCHE"
WHEN(00001:00002) = X'00F0'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00066) CHAR(00060)
, "GUELTIG_VON"
POSITION( 00067:00076) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00077:00086) DATE EXTERNAL
)
TEMPLATE BDI0RGH8
DSN('SAVR24.TO01.S24.DMBSKNDT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RGH8 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 6
INTO TABLE "TODM"."BSKUNDENART"
WHEN(00001:00002) = X'00EF'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0RGQN
DSN('SAVR24.TO01.S24.DMBUNIT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RGQN RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 66
INTO TABLE "TODM"."BUSINESSUNIT"
WHEN(00001:00002) = X'00EE'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "BUID"
POSITION( 00007:00010) CHAR(00004)
, "LEID"
POSITION( 00011:00014) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00015:00054) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00055:00064) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00065:00074) DATE EXTERNAL
)
TEMPLATE BDI0RGX6
DSN('SAVR24.TO01.S24.DMDMZLK.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RGX6 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODM"."DOMIZILKLASSE"
WHEN(00001:00002) = X'00ED'
( "DOMIZIL"
POSITION( 00003:00017) CHAR(00015)
, "GUELTIG_VON"
POSITION( 00018:00027) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00028:00037) DATE EXTERNAL
)
TEMPLATE BDI0RG45
DSN('SAVR24.TO01.S24.DMDOMIZL.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RG45 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 271
INTO TABLE "TODM"."DOMIZIL"
WHEN(00001:00002) = X'00EC'
( "ID"
POSITION( 00003:00005) CHAR(00003)
, "BEZEICHNUNG"
POSITION( 00006:00045) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00046:00055) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00056:00065) DATE EXTERNAL
)
TEMPLATE BDI0RHGZ
DSN('SAVR24.TO01.S24.DMDSART.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RHGZ RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TODM"."DATASETART"
WHEN(00001:00002) = X'00EB'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0RHQ0
DSN('SAVR24.TO01.S24.DMDSBLNZ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RHQ0 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODM"."DSCHNITTSBILANZ"
WHEN(00001:00002) = X'00EA'
( "DATASET"
POSITION( 00003:00006) INTEGER
, "BUCD"
POSITION( 00007:00010) CHAR(00004)
, "WAEHRUNG"
POSITION( 00011:00014) CHAR(00004)
, "BILANZCODE"
POSITION( 00015:00044) CHAR(00030)
, "ZINS_KOMM"
POSITION( 00045:00048) CHAR(00004)
, "DOMIZIL"
POSITION( 00049:00063) CHAR(00015)
, "TEXTKLASSE"
POSITION( 00065:00085) CHAR(00021)
NULLIF(00064)=X'FF'
, "D_KAP_UNV_KW"
POSITION( 00087:00094) FLOAT(53)
NULLIF(00086)=X'FF'
, "D_KAP_VER_KW"
POSITION( 00096:00103) FLOAT(53)
NULLIF(00095)=X'FF'
, "BET_KS_KW"
POSITION( 00105:00112) FLOAT(53)
NULLIF(00104)=X'FF'
, "BET_RS_KW"
POSITION( 00114:00121) FLOAT(53)
NULLIF(00113)=X'FF'
, "D_KAP_VER_G"
POSITION( 00123:00130) FLOAT(53)
NULLIF(00122)=X'FF'
, "D_KAP_UNV_G"
POSITION( 00132:00139) FLOAT(53)
NULLIF(00131)=X'FF'
, "BET_KS_G"
POSITION( 00141:00148) FLOAT(53)
NULLIF(00140)=X'FF'
, "BET_RS_G"
POSITION( 00150:00157) FLOAT(53)
NULLIF(00149)=X'FF'
)
TEMPLATE BDI0RHYV
DSN('SAVR24.TO01.S24.DMDSTYP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RHYV RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TODM"."DATASETTYP"
WHEN(00001:00002) = X'00E9'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0RH7Y
DSN('SAVR24.TO01.S24.DMDTBLNZ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RH7Y RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODM"."DETAILBILANZ"
WHEN(00001:00002) = X'00E8'
( "DATASET"
POSITION( 00003:00006) INTEGER
, "BUCD"
POSITION( 00007:00010) CHAR(00004)
, "WAEHRUNG"
POSITION( 00011:00014) CHAR(00004)
, "BILANZCODE"
POSITION( 00015:00044) CHAR(00030)
, "S_KWA"
POSITION( 00046:00053) FLOAT(53)
NULLIF(00045)=X'FF'
, "H_KWA"
POSITION( 00055:00062) FLOAT(53)
NULLIF(00054)=X'FF'
, "SALDO_KWA"
POSITION( 00064:00071) FLOAT(53)
NULLIF(00063)=X'FF'
, "S_SFR"
POSITION( 00073:00080) FLOAT(53)
NULLIF(00072)=X'FF'
, "H_SFR"
POSITION( 00082:00089) FLOAT(53)
NULLIF(00081)=X'FF'
, "SALDO_SFR"
POSITION( 00091:00098) FLOAT(53)
NULLIF(00090)=X'FF'
, "ANZAHL"
POSITION( 00100:00103) INTEGER
NULLIF(00099)=X'FF'
)
TEMPLATE BDI0RIIK
DSN('SAVR24.TO01.S24.DMFIHIST.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RIIK RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 1455
INTO TABLE "TODM"."ALMFINPUTHIST"
WHEN(00001:00002) = X'00E7'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "AKTIVPASSIV"
POSITION( 00042:00045) INTEGER
NULLIF(00041)=X'FF'
, "WAEHRUNG"
POSITION( 00047:00050) CHAR(00004)
NULLIF(00046)=X'FF'
, "PRODUKT"
POSITION( 00052:00055) CHAR(00004)
NULLIF(00051)=X'FF'
, "NOMINAL"
POSITION( 00057:00064) FLOAT(53)
NULLIF(00056)=X'FF'
)
//F540769C JOB (CP00,KE50),TIME=1440
//*MAIN SYSTEM=R22,CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DP2G,F540769C.LOAD'
//UTPRINT DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE BDI0RIQM
DSN('SAVR24.TO01.S24.DMFINPUT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RIQM RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODM"."FEHLERINPUT"
WHEN(00001:00002) = X'00E6'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "AKTIVPASSIV"
POSITION( 00042:00045) INTEGER
NULLIF(00041)=X'FF'
, "WAEHRUNG"
POSITION( 00047:00050) CHAR(00004)
NULLIF(00046)=X'FF'
, "PRODUKT"
POSITION( 00052:00055) CHAR(00004)
NULLIF(00051)=X'FF'
, "NOMINAL"
POSITION( 00057:00064) FLOAT(53)
NULLIF(00056)=X'FF'
)
TEMPLATE BDI0RI8R
DSN('SAVR24.TO01.S24.DMFMHIST.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RI8R RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 87847
INTO TABLE "TODM"."ALMFMELDUNGHIST"
WHEN(00001:00002) = X'00E5'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "QUELLE"
POSITION( 00041:00043) CHAR(00003)
, "KLASSE"
POSITION( 00044:00044) CHAR(00001)
, "NUMMER"
POSITION( 00045:00052) CHAR(00008)
)
TEMPLATE BDI0RJJE
DSN('SAVR24.TO01.S24.DMFMLDG.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RJJE RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODM"."ALMFEHLERMELDUNG"
WHEN(00001:00002) = X'00E4'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "QUELLE"
POSITION( 00041:00043) CHAR(00003)
, "KLASSE"
POSITION( 00044:00044) CHAR(00001)
, "NUMMER"
POSITION( 00045:00052) CHAR(00008)
)
TEMPLATE BDI0RJUE
DSN('SAVR24.TO01.S24.DMFTXT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RJUE RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 35
INTO TABLE "TODM"."ALMFEHLERTEXT"
WHEN(00001:00002) = X'00E3'
( "QUELLE"
POSITION( 00003:00005) CHAR(00003)
, "KLASSE"
POSITION( 00006:00006) CHAR(00001)
, "NUMMER"
POSITION( 00007:00014) CHAR(00008)
, "TEXT"
POSITION( 00015:00074) CHAR(00060)
, "GUELTIG_VON"
POSITION( 00075:00084) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00085:00094) DATE EXTERNAL
)
TEMPLATE BDI0RJ7C
DSN('SAVR24.TO01.S24.DMHBUCH.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RJ7C RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODM"."HAUPTBUCH"
WHEN(00001:00002) = X'00E2'
( "ID"
POSITION( 00003:00009) CHAR(00007)
, "S_RUBRIK"
POSITION( 00011:00026) CHAR(00016)
NULLIF(00010)=X'FF'
, "H_RUBRIK"
POSITION( 00028:00043) CHAR(00016)
NULLIF(00027)=X'FF'
, "BEZEICHNUNG"
POSITION( 00044:00109) CHAR(00066)
)
TEMPLATE BDI0RKIZ
DSN('SAVR24.TO01.S24.DMHERKFT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RKIZ RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 7
INTO TABLE "TODM"."HERKUNFT"
WHEN(00001:00002) = X'00E1'
( "ID"
POSITION( 00003:00010) CHAR(00008)
, "BEZEICHNUNG"
POSITION( 00011:00050) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00051:00060) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00061:00070) DATE EXTERNAL
)
TEMPLATE BDI0RKQG
DSN('SAVR24.TO01.S24.DMHPTITL.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RKQG RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 42
INTO TABLE "TODM"."HAUPTTITEL"
WHEN(00001:00002) = X'00E0'
( "ID"
POSITION( 00003:00004) CHAR(00002)
, "BEZEICHNUNG"
POSITION( 00005:00054) CHAR(00050)
, "GUELTIG_VON"
POSITION( 00055:00064) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00065:00074) DATE EXTERNAL
)
TEMPLATE BDI0RKWI
DSN('SAVR24.TO01.S24.DMKNDART.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RKWI RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 137
INTO TABLE "TODM"."KUNDENART"
WHEN(00001:00002) = X'00DF'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00066) CHAR(00060)
, "GUELTIG_VON"
POSITION( 00067:00076) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00077:00086) DATE EXTERNAL
)
TEMPLATE BDI0RK3S
DSN('SAVR24.TO01.S24.DMKNDSEG.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RK3S RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 134
INTO TABLE "TODM"."KUNDENSEGMENT"
WHEN(00001:00002) = X'00DE'
( "ID"
POSITION( 00003:00005) CHAR(00003)
, "SEGCD"
POSITION( 00006:00009) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00010:00049) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00050:00059) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00060:00069) DATE EXTERNAL
)
TEMPLATE BDI0RLCK
DSN('SAVR24.TO01.S24.DMKONTR.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RLCK RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODM"."ALMKONTRAKTE"
WHEN(00001:00002) = X'00DD'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "KONTRAKTKLASSE"
POSITION( 00041:00043) CHAR(00003)
, "KONTRAKTTYP"
POSITION( 00044:00047) INTEGER
, "PRODUKT"
POSITION( 00048:00051) CHAR(00004)
, "AKTIVPASSIV"
POSITION( 00052:00055) INTEGER
, "NEUALT"
POSITION( 00057:00057) CHAR(00001)
NULLIF(00056)=X'FF'
, "PROFITCENTER"
POSITION( 00059:00062) INTEGER
NULLIF(00058)=X'FF'
, "KUNDENNR"
POSITION( 00064:00075) CHAR(00012)
NULLIF(00063)=X'FF'
, "ABSCHLUSS"
POSITION( 00076:00085) DATE EXTERNAL
, "LBEGINN"
POSITION( 00086:00095) DATE EXTERNAL
, "LENDE"
POSITION( 00097:00106) DATE EXTERNAL
NULLIF(00096)=X'FF'
, "KFRIST"
POSITION( 00108:00115) FLOAT(53)
NULLIF(00107)=X'FF'
, "WAEHRUNG"
POSITION( 00116:00119) CHAR(00004)
, "NOMINAL"
POSITION( 00120:00127) FLOAT(53)
, "NOMINAL_BILANZ"
POSITION( 00128:00135) FLOAT(53)
, "PREIS"
POSITION( 00136:00143) FLOAT(53)
, "TILGUNGSFREQUENZ"
POSITION( 00145:00152) FLOAT(53)
NULLIF(00144)=X'FF'
, "TILGUNGSMODUS"
POSITION( 00154:00154) CHAR(00001)
NULLIF(00153)=X'FF'
, "TILGUNGSBETRAG"
POSITION( 00156:00163) FLOAT(53)
NULLIF(00155)=X'FF'
, "ZINSSATZ"
POSITION( 00164:00171) FLOAT(53)
, "ZINSUSANZ"
POSITION( 00172:00175) INTEGER
, "ZINSFREQUENZ"
POSITION( 00176:00179) INTEGER
, "ZINSMODUS"
POSITION( 00180:00180) CHAR(00001)
, "ZINSINDEX"
POSITION( 00182:00185) INTEGER
NULLIF(00181)=X'FF'
, "ZINSSPREAD"
POSITION( 00187:00194) FLOAT(53)
NULLIF(00186)=X'FF'
, "ZINSAFREQUENZ"
POSITION( 00196:00199) INTEGER
NULLIF(00195)=X'FF'
, "ZINSAMODUS"
POSITION( 00201:00201) CHAR(00001)
NULLIF(00200)=X'FF'
, "VALORENNUMMER"
POSITION( 00203:00212) CHAR(00010)
NULLIF(00202)=X'FF'
, "VALORHERKUNFT"
POSITION( 00214:00217) INTEGER
NULLIF(00213)=X'FF'
, "MARKTPREIS"
POSITION( 00219:00226) FLOAT(53)
NULLIF(00218)=X'FF'
, "OPTIONSART"
POSITION( 00228:00228) CHAR(00001)
NULLIF(00227)=X'FF'
, "VERFALLDATUM"
POSITION( 00230:00239) DATE EXTERNAL
NULLIF(00229)=X'FF'
, "AUSUEBUNGSDATUM"
POSITION( 00241:00250) DATE EXTERNAL
NULLIF(00240)=X'FF'
, "AUSUEBEFREQUENZ"
POSITION( 00252:00259) FLOAT(53)
NULLIF(00251)=X'FF'
, "PUT_CALL"
POSITION( 00261:00261) CHAR(00001)
NULLIF(00260)=X'FF'
, "AUSUEBUNGSTYP"
POSITION( 00263:00263) CHAR(00001)
NULLIF(00262)=X'FF'
, "STRIKE"
POSITION( 00265:00272) FLOAT(53)
NULLIF(00264)=X'FF'
, "BSTRANSSATZ"
POSITION( 00274:00281) FLOAT(53)
NULLIF(00273)=X'FF'
, "BSPRODUKT"
POSITION( 00283:00286) CHAR(00004)
NULLIF(00282)=X'FF'
, "BSRUBRIK"
POSITION( 00288:00303) CHAR(00016)
NULLIF(00287)=X'FF'
, "BSKUAG"
POSITION( 00305:00305) CHAR(00001)
NULLIF(00304)=X'FF'
, "DOMIZIL"
POSITION( 00306:00308) CHAR(00003)
, "RISIKOKLASSE"
POSITION( 00310:00312) CHAR(00003)
NULLIF(00309)=X'FF'
, "HB_ALT"
POSITION( 00314:00320) CHAR(00007)
NULLIF(00313)=X'FF'
, "ZINSNPAYMENT"
POSITION( 00322:00331) DATE EXTERNAL
NULLIF(00321)=X'FF'
)
TEMPLATE BDI0RVKW
DSN('SAVR24.TO01.S24.DMKTHIST.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RVKW RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 467361
INTO TABLE "TODM"."ALMKONTRHIST"
WHEN(00001:00002) = X'00DC'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "KONTRAKTKLASSE"
POSITION( 00041:00043) CHAR(00003)
, "KONTRAKTTYP"
POSITION( 00044:00047) INTEGER
, "PRODUKT"
POSITION( 00048:00051) CHAR(00004)
, "AKTIVPASSIV"
POSITION( 00052:00055) INTEGER
, "NEUALT"
POSITION( 00057:00057) CHAR(00001)
NULLIF(00056)=X'FF'
, "PROFITCENTER"
POSITION( 00059:00062) INTEGER
NULLIF(00058)=X'FF'
, "KUNDENNR"
POSITION( 00064:00075) CHAR(00012)
NULLIF(00063)=X'FF'
, "ABSCHLUSS"
POSITION( 00076:00085) DATE EXTERNAL
, "LBEGINN"
POSITION( 00086:00095) DATE EXTERNAL
, "LENDE"
POSITION( 00097:00106) DATE EXTERNAL
NULLIF(00096)=X'FF'
, "KFRIST"
POSITION( 00108:00115) FLOAT(53)
NULLIF(00107)=X'FF'
, "WAEHRUNG"
POSITION( 00116:00119) CHAR(00004)
, "NOMINAL"
POSITION( 00120:00127) FLOAT(53)
, "NOMINAL_BILANZ"
POSITION( 00128:00135) FLOAT(53)
, "PREIS"
POSITION( 00136:00143) FLOAT(53)
, "TILGUNGSFREQUENZ"
POSITION( 00145:00152) FLOAT(53)
NULLIF(00144)=X'FF'
, "TILGUNGSMODUS"
POSITION( 00154:00154) CHAR(00001)
NULLIF(00153)=X'FF'
, "TILGUNGSBETRAG"
POSITION( 00156:00163) FLOAT(53)
NULLIF(00155)=X'FF'
, "ZINSSATZ"
POSITION( 00164:00171) FLOAT(53)
, "ZINSUSANZ"
POSITION( 00172:00175) INTEGER
, "ZINSFREQUENZ"
POSITION( 00176:00179) INTEGER
, "ZINSMODUS"
POSITION( 00180:00180) CHAR(00001)
, "ZINSINDEX"
POSITION( 00182:00185) INTEGER
NULLIF(00181)=X'FF'
, "ZINSSPREAD"
POSITION( 00187:00194) FLOAT(53)
NULLIF(00186)=X'FF'
, "ZINSAFREQUENZ"
POSITION( 00196:00199) INTEGER
NULLIF(00195)=X'FF'
, "ZINSAMODUS"
POSITION( 00201:00201) CHAR(00001)
NULLIF(00200)=X'FF'
, "VALORENNUMMER"
POSITION( 00203:00212) CHAR(00010)
NULLIF(00202)=X'FF'
, "VALORHERKUNFT"
POSITION( 00214:00217) INTEGER
NULLIF(00213)=X'FF'
, "MARKTPREIS"
POSITION( 00219:00226) FLOAT(53)
NULLIF(00218)=X'FF'
, "OPTIONSART"
POSITION( 00228:00228) CHAR(00001)
NULLIF(00227)=X'FF'
, "VERFALLDATUM"
POSITION( 00230:00239) DATE EXTERNAL
NULLIF(00229)=X'FF'
, "AUSUEBUNGSDATUM"
POSITION( 00241:00250) DATE EXTERNAL
NULLIF(00240)=X'FF'
, "AUSUEBEFREQUENZ"
POSITION( 00252:00259) FLOAT(53)
NULLIF(00251)=X'FF'
, "PUT_CALL"
POSITION( 00261:00261) CHAR(00001)
NULLIF(00260)=X'FF'
, "AUSUEBUNGSTYP"
POSITION( 00263:00263) CHAR(00001)
NULLIF(00262)=X'FF'
, "STRIKE"
POSITION( 00265:00272) FLOAT(53)
NULLIF(00264)=X'FF'
, "BSTRANSSATZ"
POSITION( 00274:00281) FLOAT(53)
NULLIF(00273)=X'FF'
, "BSPRODUKT"
POSITION( 00283:00286) CHAR(00004)
NULLIF(00282)=X'FF'
, "BSRUBRIK"
POSITION( 00288:00303) CHAR(00016)
NULLIF(00287)=X'FF'
, "BSKUAG"
POSITION( 00305:00305) CHAR(00001)
NULLIF(00304)=X'FF'
, "DOMIZIL"
POSITION( 00306:00308) CHAR(00003)
, "RISIKOKLASSE"
POSITION( 00310:00312) CHAR(00003)
NULLIF(00309)=X'FF'
, "HB_ALT"
POSITION( 00314:00320) CHAR(00007)
NULLIF(00313)=X'FF'
, "ZINSNPAYMENT"
POSITION( 00322:00331) DATE EXTERNAL
NULLIF(00321)=X'FF'
)
TEMPLATE BDI0RVTI
DSN('SAVR24.TO01.S24.DMKTKLAS.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RVTI RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 6
INTO TABLE "TODM"."KONTRAKTKLASSE"
WHEN(00001:00002) = X'00DB'
( "ID"
POSITION( 00003:00005) CHAR(00003)
, "BEZEICHNUNG"
POSITION( 00006:00045) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00046:00055) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00056:00065) DATE EXTERNAL
)
TEMPLATE BDI0RV1V
DSN('SAVR24.TO01.S24.DMKTTYP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RV1V RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 14
INTO TABLE "TODM"."KONTRAKTTYP"
WHEN(00001:00002) = X'00DA'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0RWTN
DSN('SAVR24.TO01.S24.DMKUNDE.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RWTN RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODM"."KUNDE"
WHEN(00001:00002) = X'00D9'
( "CIFNR"
POSITION( 00003:00014) CHAR(00012)
, "BUCD"
POSITION( 00015:00018) CHAR(00004)
, "DOMIZIL"
POSITION( 00019:00021) CHAR(00003)
, "KUNDENART"
POSITION( 00022:00025) CHAR(00004)
, "NATIONALITAET"
POSITION( 00027:00029) CHAR(00003)
NULLIF(00026)=X'FF'
, "KUNDENSEGMENT"
POSITION( 00031:00033) CHAR(00003)
NULLIF(00030)=X'FF'
, "BRANCHENCODE"
POSITION( 00035:00038) CHAR(00004)
NULLIF(00034)=X'FF'
, "GUELTIG_VON"
POSITION( 00039:00048) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00049:00058) DATE EXTERNAL
)
TEMPLATE BDI0RW0N
DSN('SAVR24.TO01.S24.DMLENT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RW0N RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 12
INTO TABLE "TODM"."LEGALENTITY"
WHEN(00001:00002) = X'00D8'
( "LEID"
POSITION( 00003:00006) CHAR(00004)
, "LECD"
POSITION( 00007:00010) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00011:00050) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00051:00060) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00061:00070) DATE EXTERNAL
)
TEMPLATE BDI0RW73
DSN('SAVR24.TO01.S24.DMMARGE.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RW73 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODM"."MARGE"
WHEN(00001:00002) = X'00D7'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "WAEHRUNG"
POSITION( 00007:00010) CHAR(00004)
, "PRODUKT"
POSITION( 00011:00014) CHAR(00004)
, "RISIKOKLASSE"
POSITION( 00015:00017) CHAR(00003)
, "MARGE"
POSITION( 00018:00025) FLOAT(53)
, "GUELTIG_VON"
POSITION( 00026:00035) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00036:00045) DATE EXTERNAL
)
TEMPLATE BDI0RXGY
DSN('SAVR24.TO01.S24.DMNEUALT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RXGY RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TODM"."NEUALT"
WHEN(00001:00002) = X'00D6'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0RXOD
DSN('SAVR24.TO01.S24.DMOPTART.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RXOD RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TODM"."OPTIONSART"
WHEN(00001:00002) = X'00D5'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0RXV0
DSN('SAVR24.TO01.S24.DMPRFTCT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RXV0 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TODM"."PROFITCENTER"
WHEN(00001:00002) = X'00D4'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0RX2H
DSN('SAVR24.TO01.S24.DMPRODKT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RX2H RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 1552
INTO TABLE "TODM"."PRODUKT"
WHEN(00001:00002) = X'0178'
( "PRODUKT"
POSITION( 00003:00006) CHAR(00004)
, "ISTORELEVANT"
POSITION( 00007:00007) CHAR(00001)
, "ISUNTERBETEILIGUNG"
POSITION( 00008:00008) CHAR(00001)
, "ISBODENSATZ"
POSITION( 00009:00009) CHAR(00001)
, "ISDEFPRODUKT"
POSITION( 00010:00010) CHAR(00001)
, "KURZTEXT"
POSITION( 00011:00020) CHAR(00010)
, "LANGTEXT"
POSITION( 00021:00060) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00061:00070) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00071:00080) DATE EXTERNAL
, "ISRRARELEVANT"
POSITION( 00082:00082) CHAR(00001)
NULLIF(00081)=X'FF'
)
TEMPLATE BDI0RYBV
DSN('SAVR24.TO01.S24.DMPUTCAL.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RYBV RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TODM"."PUTCALL"
WHEN(00001:00002) = X'00D2'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0RYJJ
DSN('SAVR24.TO01.S24.DMREPEMP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RYJJ RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 78
INTO TABLE "TODM"."REPORTEMPFAENGER"
WHEN(00001:00002) = X'00D1'
( "REPORT"
POSITION( 00003:00010) CHAR(00008)
, "PID"
POSITION( 00011:00019) CHAR(00009)
, "BUCD"
POSITION( 00020:00023) CHAR(00004)
, "DEST"
POSITION( 00024:00027) CHAR(00004)
, "NCOPY"
POSITION( 00028:00031) INTEGER
, "GUELTIG_VON"
POSITION( 00032:00041) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00042:00051) DATE EXTERNAL
)
TEMPLATE BDI0RYQK
DSN('SAVR24.TO01.S24.DMRRARBK.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RYQK RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 20
INTO TABLE "TODM"."RRARBK"
WHEN(00001:00002) = X'00D0'
( "RUBRIK"
POSITION( 00003:00005) CHAR(00003)
, "TEXT1"
POSITION( 00006:00008) CHAR(00003)
, "TEXT2"
POSITION( 00009:00078) CHAR(00070)
)
TEMPLATE BDI0RYYG
DSN('SAVR24.TO01.S24.DMTXTK.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RYYG RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 4
INTO TABLE "TODM"."TEXTKLASSE"
WHEN(00001:00002) = X'00CF'
( "TEXTKLASSE"
POSITION( 00003:00023) CHAR(00021)
, "GUELTIG_VON"
POSITION( 00024:00033) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00034:00043) DATE EXTERNAL
)
TEMPLATE BDI0RY5S
DSN('SAVR24.TO01.S24.DMVALOR.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RY5S RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODM"."VALOR"
WHEN(00001:00002) = X'00CE'
( "ID"
POSITION( 00003:00012) CHAR(00010)
, "BEZEICHNUNG"
POSITION( 00013:00052) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00053:00062) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00063:00072) DATE EXTERNAL
)
TEMPLATE BDI0RZD0
DSN('SAVR24.TO01.S24.DMVLOHKT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RZD0 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODM"."VALORHERKUNFT"
WHEN(00001:00002) = X'00CD'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0RZKP
DSN('SAVR24.TO01.S24.DMWAEHRG.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RZKP RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 205
INTO TABLE "TODM"."WAEHRUNG"
WHEN(00001:00002) = X'00CC'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0RZRO
DSN('SAVR24.TO01.S24.DMZINSFQ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RZRO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 6
INTO TABLE "TODM"."ZINSFREQUENZ"
WHEN(00001:00002) = X'00CB'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0RZ1V
DSN('SAVR24.TO01.S24.DMZINSUZ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RZ1V RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 5
INTO TABLE "TODM"."ZINSUSANZ"
WHEN(00001:00002) = X'00CA'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0R0AA
DSN('SAVR24.TO01.S24.DMZNSKM.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R0AA RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TODM"."ZINS_KOMM"
WHEN(00001:00002) = X'00C9'
( "ZINS_KOMM"
POSITION( 00003:00006) CHAR(00004)
, "GUELTIG_VON"
POSITION( 00007:00016) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00017:00026) DATE EXTERNAL
)
//F540769D JOB (CP00,KE50),TIME=1440
//*MAIN SYSTEM=R22,CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DP2G,F540769D.LOAD'
//UTPRINT DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE BDI0R0H6
DSN('SAVR24.TO01.S24.DMZSATZ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R0H6 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODM"."ZINSSATZ"
WHEN(00001:00002) = X'0177'
( "WHRG"
POSITION( 00003:00006) CHAR(00004)
, "GULTIGAM"
POSITION( 00007:00016) DATE EXTERNAL
, "LAUFZEIT"
POSITION( 00017:00020) INTEGER
, "USANZ"
POSITION( 00021:00024) INTEGER
, "ZINSSATZ"
POSITION( 00025:00032) FLOAT(53)
)
TEMPLATE BDI0R0QA
DSN('SAVR24.TO01.S24.DMZSINDX.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R0QA RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TODM"."ZINSINDEX"
WHEN(00001:00002) = X'00C7'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0R0Y4
DSN('SAVR24.TO01.S24.DMZSMODU.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R0Y4 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TODM"."ZINSMODUS"
WHEN(00001:00002) = X'00C6'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0RC8O
DSN('SAVR24.TO01.S24.DM1UTITL.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RC8O RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 242
INTO TABLE "TODM"."ERSTUNTERTITEL"
WHEN(00001:00002) = X'00C5'
( "ID"
POSITION( 00003:00005) CHAR(00003)
, "BEZEICHNUNG"
POSITION( 00006:00055) CHAR(00050)
, "HT"
POSITION( 00056:00057) CHAR(00002)
, "GUELTIG_VON"
POSITION( 00058:00067) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00068:00077) DATE EXTERNAL
)
TEMPLATE BDI0RDIN
DSN('SAVR24.TO01.S24.DM2UTITL.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RDIN RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 440
INTO TABLE "TODM"."ZWEITUNTERTITEL"
WHEN(00001:00002) = X'00C4'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00056) CHAR(00050)
, "UT1"
POSITION( 00057:00059) CHAR(00003)
, "GUELTIG_VON"
POSITION( 00060:00069) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00070:00079) DATE EXTERNAL
)
TEMPLATE BDI0RDRA
DSN('SAVR24.TO01.S24.DM3UTITL.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0RDRA RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 776
INTO TABLE "TODM"."DRITTUNTERTITEL"
WHEN(00001:00002) = X'00C3'
( "ID"
POSITION( 00003:00008) CHAR(00006)
, "BEZEICHNUNG"
POSITION( 00009:00058) CHAR(00050)
, "UT2"
POSITION( 00059:00062) CHAR(00004)
, "GUELTIG_VON"
POSITION( 00063:00072) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00073:00082) DATE EXTERNAL
)
TEMPLATE BDI0R08F
DSN('SAVR24.TO01.S24.EXEPTION.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R08F RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TODM"."BILANZCODE_E"
WHEN(00001:00002) = X'0515'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "BILANZCODE"
POSITION( 00007:00036) CHAR(00030)
, "KAS"
POSITION( 00037:00040) CHAR(00004)
, "UT3"
POSITION( 00041:00046) CHAR(00006)
, "RID"
POSITION( 00048:00052) CHAR(00005)
NULLIF(00047)=X'FF'
, "TS"
POSITION( 00053:00078) TIMESTAMP EXTERNAL
)
INTO TABLE "TODM"."KUNDE_E"
WHEN(00001:00002) = X'0516'
( "CIFNR"
POSITION( 00003:00014) CHAR(00012)
, "BUCD"
POSITION( 00015:00018) CHAR(00004)
, "DOMIZIL"
POSITION( 00019:00021) CHAR(00003)
, "KUNDENART"
POSITION( 00022:00025) CHAR(00004)
, "NATIONALITAET"
POSITION( 00027:00029) CHAR(00003)
NULLIF(00026)=X'FF'
, "KUNDENSEGMENT"
POSITION( 00031:00033) CHAR(00003)
NULLIF(00030)=X'FF'
, "BRANCHENCODE"
POSITION( 00035:00038) CHAR(00004)
NULLIF(00034)=X'FF'
, "GUELTIG_VON"
POSITION( 00039:00048) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00049:00058) DATE EXTERNAL
, "RID"
POSITION( 00060:00064) CHAR(00005)
NULLIF(00059)=X'FF'
, "TS"
POSITION( 00065:00090) TIMESTAMP EXTERNAL
)
INTO TABLE "TODM"."MARGE_E"
WHEN(00001:00002) = X'0517'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "WAEHRUNG"
POSITION( 00007:00010) CHAR(00004)
, "PRODUKT"
POSITION( 00011:00014) CHAR(00004)
, "RISIKOKLASSE"
POSITION( 00015:00017) CHAR(00003)
, "MARGE"
POSITION( 00018:00025) FLOAT(53)
, "GUELTIG_VON"
POSITION( 00026:00035) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00036:00045) DATE EXTERNAL
, "RID"
POSITION( 00047:00051) CHAR(00005)
NULLIF(00046)=X'FF'
, "TS"
POSITION( 00052:00077) TIMESTAMP EXTERNAL
)
TEMPLATE BDI0R1GZ
DSN('SAVR24.TO01.S24.PDAKTPAS.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R1GZ RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 4
INTO TABLE "TOPD"."AKTIVPASSIV"
WHEN(00001:00002) = X'032A'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0R1MU
DSN('SAVR24.TO01.S24.PDALMDS.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R1MU RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TOPD"."ALMDATASET"
WHEN(00001:00002) = X'0329'
( "DATASET"
POSITION( 00003:00006) INTEGER
, "HERKUNFTDS"
POSITION( 00008:00011) INTEGER
NULLIF(00007)=X'FF'
, "DATASETTYP"
POSITION( 00012:00012) CHAR(00001)
, "DATASETART"
POSITION( 00013:00016) INTEGER
, "KURZTEXT"
POSITION( 00017:00024) CHAR(00008)
, "LANGTEXT"
POSITION( 00025:00054) CHAR(00030)
, "STICHDATUM_ALM"
POSITION( 00055:00064) DATE EXTERNAL
, "STICHDATUM_TO"
POSITION( 00065:00074) DATE EXTERNAL
, "VERARBEITUNGSDATUM"
POSITION( 00075:00084) DATE EXTERNAL
, "GUELTIG_VON"
POSITION( 00085:00094) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00095:00104) DATE EXTERNAL
)
TEMPLATE BDI0R1T7
DSN('SAVR24.TO01.S24.PDASOF.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R1T7 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOPD"."ALM_ASOF"
WHEN(00001:00002) = X'0328'
( "ASOF_DATE"
POSITION( 00003:00012) DATE EXTERNAL
)
TEMPLATE BDI0R11K
DSN('SAVR24.TO01.S24.PDAUBTYP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R11K RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TOPD"."AUSUEBUNGSTYP"
WHEN(00001:00002) = X'0327'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0R181
DSN('SAVR24.TO01.S24.PDBEN.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R181 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 8
INTO TABLE "TOPD"."BENUTZER"
WHEN(00001:00002) = X'0326'
( "PID"
POSITION( 00003:00011) CHAR(00009)
, "EMAIL"
POSITION( 00013:00052) CHAR(00040)
NULLIF(00012)=X'FF'
, "GUELTIG_VON"
POSITION( 00053:00062) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00063:00072) DATE EXTERNAL
)
TEMPLATE BDI0R2GM
DSN('SAVR24.TO01.S24.PDBLNZRB.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R2GM RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOPD"."BILANZRUBRIK"
WHEN(00001:00002) = X'0325'
( "ID"
POSITION( 00003:00018) CHAR(00016)
, "BEZEICHNUNG"
POSITION( 00019:00058) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00059:00068) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00069:00078) DATE EXTERNAL
)
TEMPLATE BDI0R2P2
DSN('SAVR24.TO01.S24.PDBRANCH.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R2P2 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 927
INTO TABLE "TOPD"."BRANCHE"
WHEN(00001:00002) = X'0324'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00066) CHAR(00060)
, "GUELTIG_VON"
POSITION( 00067:00076) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00077:00086) DATE EXTERNAL
)
TEMPLATE BDI0R2YY
DSN('SAVR24.TO01.S24.PDBSKNDT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R2YY RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 6
INTO TABLE "TOPD"."BSKUNDENART"
WHEN(00001:00002) = X'0323'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0R27D
DSN('SAVR24.TO01.S24.PDBUNIT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R27D RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 69
INTO TABLE "TOPD"."BUSINESSUNIT"
WHEN(00001:00002) = X'0322'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "BUID"
POSITION( 00007:00010) CHAR(00004)
, "LEID"
POSITION( 00011:00014) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00015:00054) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00055:00064) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00065:00074) DATE EXTERNAL
)
TEMPLATE BDI0R3GG
DSN('SAVR24.TO01.S24.PDDOMIZL.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R3GG RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 275
INTO TABLE "TOPD"."DOMIZIL"
WHEN(00001:00002) = X'0321'
( "ID"
POSITION( 00003:00005) CHAR(00003)
, "BEZEICHNUNG"
POSITION( 00006:00045) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00046:00055) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00056:00065) DATE EXTERNAL
)
TEMPLATE BDI0R3PI
DSN('SAVR24.TO01.S24.PDDSART.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R3PI RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TOPD"."DATASETART"
WHEN(00001:00002) = X'0320'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0R34T
DSN('SAVR24.TO01.S24.PDDSTYP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R34T RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TOPD"."DATASETTYP"
WHEN(00001:00002) = X'031F'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0R81A
DSN('SAVR24.TO01.S24.PDFINPUT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R81A RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2586
INTO TABLE "TOPD"."FEHLERINPUT"
WHEN(00001:00002) = X'031E'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "AKTIVPASSIV"
POSITION( 00042:00045) INTEGER
NULLIF(00041)=X'FF'
, "WAEHRUNG"
POSITION( 00047:00050) CHAR(00004)
NULLIF(00046)=X'FF'
, "PRODUKT"
POSITION( 00052:00055) CHAR(00004)
NULLIF(00051)=X'FF'
, "NOMINAL"
POSITION( 00057:00064) FLOAT(53)
NULLIF(00056)=X'FF'
)
TEMPLATE BDI0R87L
DSN('SAVR24.TO01.S24.PDFMLDG.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0R87L RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOPD"."ALMFEHLERMELDUNG"
WHEN(00001:00002) = X'031D'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "QUELLE"
POSITION( 00041:00043) CHAR(00003)
, "KLASSE"
POSITION( 00044:00044) CHAR(00001)
, "NUMMER"
POSITION( 00045:00052) CHAR(00008)
)
TEMPLATE BDI0SAGU
DSN('SAVR24.TO01.S24.PDFTXT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SAGU RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 35
INTO TABLE "TOPD"."ALMFEHLERTEXT"
WHEN(00001:00002) = X'031C'
( "QUELLE"
POSITION( 00003:00005) CHAR(00003)
, "KLASSE"
POSITION( 00006:00006) CHAR(00001)
, "NUMMER"
POSITION( 00007:00014) CHAR(00008)
, "TEXT"
POSITION( 00015:00074) CHAR(00060)
, "GUELTIG_VON"
POSITION( 00075:00084) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00085:00094) DATE EXTERNAL
)
TEMPLATE BDI0SAMI
DSN('SAVR24.TO01.S24.PDHBUCH.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SAMI RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOPD"."HAUPTBUCH"
WHEN(00001:00002) = X'031B'
( "ID"
POSITION( 00003:00009) CHAR(00007)
, "S_RUBRIK"
POSITION( 00011:00026) CHAR(00016)
NULLIF(00010)=X'FF'
, "H_RUBRIK"
POSITION( 00028:00043) CHAR(00016)
NULLIF(00027)=X'FF'
, "BEZEICHNUNG"
POSITION( 00044:00109) CHAR(00066)
)
TEMPLATE BDI0SAU8
DSN('SAVR24.TO01.S24.PDHERKFT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SAU8 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 7
INTO TABLE "TOPD"."HERKUNFT"
WHEN(00001:00002) = X'031A'
( "ID"
POSITION( 00003:00010) CHAR(00008)
, "BEZEICHNUNG"
POSITION( 00011:00050) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00051:00060) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00061:00070) DATE EXTERNAL
)
TEMPLATE BDI0SA3X
DSN('SAVR24.TO01.S24.PDKNDART.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SA3X RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 137
INTO TABLE "TOPD"."KUNDENART"
WHEN(00001:00002) = X'0319'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00066) CHAR(00060)
, "GUELTIG_VON"
POSITION( 00067:00076) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00077:00086) DATE EXTERNAL
)
TEMPLATE BDI0SBD0
DSN('SAVR24.TO01.S24.PDKNDSEG.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SBD0 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 136
INTO TABLE "TOPD"."KUNDENSEGMENT"
WHEN(00001:00002) = X'0318'
( "ID"
POSITION( 00003:00005) CHAR(00003)
, "SEGCD"
POSITION( 00006:00009) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00010:00049) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00050:00059) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00060:00069) DATE EXTERNAL
)
TEMPLATE BDI0SBMY
DSN('SAVR24.TO01.S24.PDKONTR.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SBMY RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOPD"."ALMKONTRAKTSTAMM"
WHEN(00001:00002) = X'0317'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "KONTRAKTKLASSE"
POSITION( 00041:00043) CHAR(00003)
, "KONTRAKTTYP"
POSITION( 00044:00047) INTEGER
, "PRODUKT"
POSITION( 00048:00051) CHAR(00004)
, "AKTIVPASSIV"
POSITION( 00052:00055) INTEGER
, "NEUALT"
POSITION( 00057:00057) CHAR(00001)
NULLIF(00056)=X'FF'
, "PROFITCENTER"
POSITION( 00059:00062) INTEGER
NULLIF(00058)=X'FF'
, "KUNDENNR"
POSITION( 00064:00075) CHAR(00012)
NULLIF(00063)=X'FF'
, "ABSCHLUSS"
POSITION( 00076:00085) DATE EXTERNAL
, "LBEGINN"
POSITION( 00086:00095) DATE EXTERNAL
, "LENDE"
POSITION( 00097:00106) DATE EXTERNAL
NULLIF(00096)=X'FF'
, "KFRIST"
POSITION( 00108:00115) FLOAT(53)
NULLIF(00107)=X'FF'
, "WAEHRUNG"
POSITION( 00116:00119) CHAR(00004)
, "NOMINAL"
POSITION( 00120:00127) FLOAT(53)
, "NOMINAL_BILANZ"
POSITION( 00128:00135) FLOAT(53)
, "PREIS"
POSITION( 00136:00143) FLOAT(53)
, "TILGUNGSFREQUENZ"
POSITION( 00145:00152) FLOAT(53)
NULLIF(00144)=X'FF'
, "TILGUNGSMODUS"
POSITION( 00154:00154) CHAR(00001)
NULLIF(00153)=X'FF'
, "TILGUNGSBETRAG"
POSITION( 00156:00163) FLOAT(53)
NULLIF(00155)=X'FF'
, "ZINSSATZ"
POSITION( 00164:00171) FLOAT(53)
, "ZINSUSANZ"
POSITION( 00172:00175) INTEGER
, "ZINSFREQUENZ"
POSITION( 00176:00179) INTEGER
, "ZINSMODUS"
POSITION( 00180:00180) CHAR(00001)
, "ZINSINDEX"
POSITION( 00182:00185) INTEGER
NULLIF(00181)=X'FF'
, "ZINSSPREAD"
POSITION( 00187:00194) FLOAT(53)
NULLIF(00186)=X'FF'
, "ZINSAFREQUENZ"
POSITION( 00196:00199) INTEGER
NULLIF(00195)=X'FF'
, "ZINSAMODUS"
POSITION( 00201:00201) CHAR(00001)
NULLIF(00200)=X'FF'
, "BSTRANSSATZ"
POSITION( 00203:00210) FLOAT(53)
NULLIF(00202)=X'FF'
, "BSPRODUKT"
POSITION( 00212:00215) CHAR(00004)
NULLIF(00211)=X'FF'
, "BSRUBRIK"
POSITION( 00217:00232) CHAR(00016)
NULLIF(00216)=X'FF'
, "BSKUAG"
POSITION( 00234:00234) CHAR(00001)
NULLIF(00233)=X'FF'
, "RISIKOKLASSE"
POSITION( 00236:00238) CHAR(00003)
NULLIF(00235)=X'FF'
, "HB_ALT"
POSITION( 00240:00246) CHAR(00007)
NULLIF(00239)=X'FF'
, "ZINSNPAYMENT"
POSITION( 00248:00257) DATE EXTERNAL
NULLIF(00247)=X'FF'
)
TEMPLATE BDI0SBUY
DSN('SAVR24.TO01.S24.PDKTKLAS.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SBUY RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 6
INTO TABLE "TOPD"."KONTRAKTKLASSE"
WHEN(00001:00002) = X'0316'
( "ID"
POSITION( 00003:00005) CHAR(00003)
, "BEZEICHNUNG"
POSITION( 00006:00045) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00046:00055) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00056:00065) DATE EXTERNAL
)
TEMPLATE BDI0SB2S
DSN('SAVR24.TO01.S24.PDKTTYP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SB2S RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 14
INTO TABLE "TOPD"."KONTRAKTTYP"
WHEN(00001:00002) = X'0315'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0SCCG
DSN('SAVR24.TO01.S24.PDKUNDE.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SCCG RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOPD"."KUNDE"
WHEN(00001:00002) = X'0314'
( "CIFNR"
POSITION( 00003:00014) CHAR(00012)
, "BUCD"
POSITION( 00015:00018) CHAR(00004)
, "DOMIZIL"
POSITION( 00019:00021) CHAR(00003)
, "KUNDENART"
POSITION( 00022:00025) CHAR(00004)
, "NATIONALITAET"
POSITION( 00027:00029) CHAR(00003)
NULLIF(00026)=X'FF'
, "KUNDENSEGMENT"
POSITION( 00031:00033) CHAR(00003)
NULLIF(00030)=X'FF'
, "BRANCHENCODE"
POSITION( 00035:00038) CHAR(00004)
NULLIF(00034)=X'FF'
, "GUELTIG_VON"
POSITION( 00039:00048) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00049:00058) DATE EXTERNAL
)
//F540769E JOB (CP00,KE50),TIME=1440
//*MAIN SYSTEM=R22,CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DP2G,F540769E.LOAD'
//UTPRINT DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE BDI0SCLO
DSN('SAVR24.TO01.S24.PDLENT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SCLO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 12
INTO TABLE "TOPD"."LEGALENTITY"
WHEN(00001:00002) = X'0313'
( "LEID"
POSITION( 00003:00006) CHAR(00004)
, "LECD"
POSITION( 00007:00010) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00011:00050) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00051:00060) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00061:00070) DATE EXTERNAL
)
TEMPLATE BDI0SCUM
DSN('SAVR24.TO01.S24.PDNEUALT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SCUM RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TOPD"."NEUALT"
WHEN(00001:00002) = X'0312'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0SC1V
DSN('SAVR24.TO01.S24.PDOPTART.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SC1V RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TOPD"."OPTIONSART"
WHEN(00001:00002) = X'0311'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0SDA5
DSN('SAVR24.TO01.S24.PDOPTKT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SDA5 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOPD"."ALMOPTIONSKONTRAKT"
WHEN(00001:00002) = X'0310'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "HERKUNFT"
POSITION( 00007:00014) CHAR(00008)
, "DATASET"
POSITION( 00015:00018) INTEGER
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "OPTIONSART"
POSITION( 00041:00041) CHAR(00001)
, "VERFALLDATUM"
POSITION( 00042:00051) DATE EXTERNAL
, "AUSUEBUNGSDATUM"
POSITION( 00053:00062) DATE EXTERNAL
NULLIF(00052)=X'FF'
, "AUSUEBEFREQUENZ"
POSITION( 00064:00071) FLOAT(53)
NULLIF(00063)=X'FF'
, "PUT_CALL"
POSITION( 00072:00072) CHAR(00001)
, "AUSUEBUNGSTYP"
POSITION( 00073:00073) CHAR(00001)
, "STRIKE"
POSITION( 00075:00082) FLOAT(53)
NULLIF(00074)=X'FF'
)
TEMPLATE BDI0SDKI
DSN('SAVR24.TO01.S24.PDPRFTCT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SDKI RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TOPD"."PROFITCENTER"
WHEN(00001:00002) = X'030F'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0SDTJ
DSN('SAVR24.TO01.S24.PDPRODKT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SDTJ RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 1558
INTO TABLE "TOPD"."PRODUKT"
WHEN(00001:00002) = X'030E'
( "PRODUKT"
POSITION( 00003:00006) CHAR(00004)
, "ISTORELEVANT"
POSITION( 00007:00007) CHAR(00001)
, "ISUNTERBETEILIGUNG"
POSITION( 00008:00008) CHAR(00001)
, "ISBODENSATZ"
POSITION( 00009:00009) CHAR(00001)
, "ISDEFPRODUKT"
POSITION( 00010:00010) CHAR(00001)
, "ISRRARELEVANT"
POSITION( 00011:00011) CHAR(00001)
, "KURZTEXT"
POSITION( 00012:00021) CHAR(00010)
, "LANGTEXT"
POSITION( 00022:00061) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00062:00071) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00072:00081) DATE EXTERNAL
)
TEMPLATE BDI0SD3E
DSN('SAVR24.TO01.S24.PDPUTCAL.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SD3E RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TOPD"."PUTCALL"
WHEN(00001:00002) = X'030D'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0SEDR
DSN('SAVR24.TO01.S24.PDREPEMP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SEDR RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 8
INTO TABLE "TOPD"."REPORTEMPFAENGER"
WHEN(00001:00002) = X'030C'
( "REPORT"
POSITION( 00003:00010) CHAR(00008)
, "PID"
POSITION( 00011:00019) CHAR(00009)
, "BUCD"
POSITION( 00020:00023) CHAR(00004)
, "DEST"
POSITION( 00024:00027) CHAR(00004)
, "NCOPY"
POSITION( 00028:00031) INTEGER
, "GUELTIG_VON"
POSITION( 00032:00041) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00042:00051) DATE EXTERNAL
)
TEMPLATE BDI0SER1
DSN('SAVR24.TO01.S24.PDRRARBK.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SER1 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 20
INTO TABLE "TOPD"."RRARBK"
WHEN(00001:00002) = X'030B'
( "RUBRIK"
POSITION( 00003:00005) CHAR(00003)
, "TEXT1"
POSITION( 00006:00008) CHAR(00003)
, "TEXT2"
POSITION( 00009:00078) CHAR(00070)
)
TEMPLATE BDI0SE6Y
DSN('SAVR24.TO01.S24.PDVALOKT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SE6Y RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOPD"."ALMVALORKONTRAKT"
WHEN(00001:00002) = X'030A'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "VALORENNUMMER"
POSITION( 00041:00050) CHAR(00010)
, "VALORHERKUNFT"
POSITION( 00051:00054) INTEGER
, "MARKTPREIS"
POSITION( 00055:00062) FLOAT(53)
, "GUELTIG_VON"
POSITION( 00063:00072) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00073:00082) DATE EXTERNAL
)
TEMPLATE BDI0SFSP
DSN('SAVR24.TO01.S24.PDVALOR.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SFSP RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TOPD"."VALOR"
WHEN(00001:00002) = X'0309'
( "ID"
POSITION( 00003:00012) CHAR(00010)
, "BEZEICHNUNG"
POSITION( 00013:00052) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00053:00062) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00063:00072) DATE EXTERNAL
)
TEMPLATE BDI0SGH5
DSN('SAVR24.TO01.S24.PDVLOHKT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SGH5 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 1
INTO TABLE "TOPD"."VALORHERKUNFT"
WHEN(00001:00002) = X'0308'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0SGZV
DSN('SAVR24.TO01.S24.PDWAEHRG.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SGZV RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 211
INTO TABLE "TOPD"."WAEHRUNG"
WHEN(00001:00002) = X'0307'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0SHJK
DSN('SAVR24.TO01.S24.PDZINSFQ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SHJK RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 6
INTO TABLE "TOPD"."ZINSFREQUENZ"
WHEN(00001:00002) = X'0306'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0SH0G
DSN('SAVR24.TO01.S24.PDZINSUZ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SH0G RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 5
INTO TABLE "TOPD"."ZINSUSANZ"
WHEN(00001:00002) = X'0305'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0SIJG
DSN('SAVR24.TO01.S24.PDZSATZ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SIJG RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOPD"."ZINSSATZ"
WHEN(00001:00002) = X'0304'
( "WHRG"
POSITION( 00003:00006) CHAR(00004)
, "GULTIGAM"
POSITION( 00007:00016) DATE EXTERNAL
, "LAUFZEIT"
POSITION( 00017:00020) INTEGER
, "USANZ"
POSITION( 00021:00024) INTEGER
, "ZINSSATZ"
POSITION( 00025:00032) FLOAT(53)
)
TEMPLATE BDI0SIY1
DSN('SAVR24.TO01.S24.PDZSINDX.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SIY1 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TOPD"."ZINSINDEX"
WHEN(00001:00002) = X'0303'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0SJG7
DSN('SAVR24.TO01.S24.PDZSMODU.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SJG7 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TOPD"."ZINSMODUS"
WHEN(00001:00002) = X'0302'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0SLCU
DSN('SAVR24.TO01.S24.PMAKTPAS.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SLCU RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 4
INTO TABLE "TOPM"."AKTIVPASSIV"
WHEN(00001:00002) = X'0301'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0SLRL
DSN('SAVR24.TO01.S24.PMALMDS.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SLRL RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 291
INTO TABLE "TOPM"."ALMDATASET"
WHEN(00001:00002) = X'0300'
( "DATASET"
POSITION( 00003:00006) INTEGER
, "HERKUNFTDS"
POSITION( 00008:00011) INTEGER
NULLIF(00007)=X'FF'
, "DATASETTYP"
POSITION( 00012:00012) CHAR(00001)
, "DATASETART"
POSITION( 00013:00016) INTEGER
, "KURZTEXT"
POSITION( 00017:00024) CHAR(00008)
, "LANGTEXT"
POSITION( 00025:00054) CHAR(00030)
, "STICHDATUM_ALM"
POSITION( 00055:00064) DATE EXTERNAL
, "STICHDATUM_TO"
POSITION( 00065:00074) DATE EXTERNAL
, "VERARBEITUNGSDATUM"
POSITION( 00075:00084) DATE EXTERNAL
, "GUELTIG_VON"
POSITION( 00085:00094) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00095:00104) DATE EXTERNAL
)
TEMPLATE BDI0SMBN
DSN('SAVR24.TO01.S24.PMASOF.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SMBN RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOPM"."ALM_ASOF"
WHEN(00001:00002) = X'02FF'
( "ASOF_DATE"
POSITION( 00003:00012) DATE EXTERNAL
)
TEMPLATE BDI0SMSI
DSN('SAVR24.TO01.S24.PMAUBTYP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SMSI RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TOPM"."AUSUEBUNGSTYP"
WHEN(00001:00002) = X'02FE'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0SM6M
DSN('SAVR24.TO01.S24.PMBEN.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SM6M RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 8
INTO TABLE "TOPM"."BENUTZER"
WHEN(00001:00002) = X'02FD'
( "PID"
POSITION( 00003:00011) CHAR(00009)
, "EMAIL"
POSITION( 00013:00052) CHAR(00040)
NULLIF(00012)=X'FF'
, "GUELTIG_VON"
POSITION( 00053:00062) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00063:00072) DATE EXTERNAL
)
TEMPLATE BDI0SNPN
DSN('SAVR24.TO01.S24.PMBLNZKS.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SNPN RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 17380
INTO TABLE "TOPM"."BILANZKURS"
WHEN(00001:00002) = X'02FC'
( "WHRG"
POSITION( 00003:00006) CHAR(00004)
, "GULTIGAM"
POSITION( 00007:00016) DATE EXTERNAL
, "KURS"
POSITION( 00017:00024) FLOAT(53)
)
TEMPLATE BDI0SOC3
DSN('SAVR24.TO01.S24.PMBLNZRB.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SOC3 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 16487
INTO TABLE "TOPM"."BILANZRUBRIK"
WHEN(00001:00002) = X'02FB'
( "ID"
POSITION( 00003:00018) CHAR(00016)
, "BEZEICHNUNG"
POSITION( 00019:00058) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00059:00068) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00069:00078) DATE EXTERNAL
)
TEMPLATE BDI0SPHM
DSN('SAVR24.TO01.S24.PMBLZCD.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SPHM RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 21885
INTO TABLE "TOPM"."BILANZCODE"
WHEN(00001:00002) = X'02FA'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "BILANZCODE"
POSITION( 00007:00036) CHAR(00030)
, "KAS"
POSITION( 00037:00040) CHAR(00004)
, "UT3"
POSITION( 00041:00046) CHAR(00006)
)
TEMPLATE BDI0SPXP
DSN('SAVR24.TO01.S24.PMBRANCH.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SPXP RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 927
INTO TABLE "TOPM"."BRANCHE"
WHEN(00001:00002) = X'02F9'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00066) CHAR(00060)
, "GUELTIG_VON"
POSITION( 00067:00076) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00077:00086) DATE EXTERNAL
)
TEMPLATE BDI0SQFB
DSN('SAVR24.TO01.S24.PMBSKNDT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SQFB RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 6
INTO TABLE "TOPM"."BSKUNDENART"
WHEN(00001:00002) = X'02F8'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0SQZR
DSN('SAVR24.TO01.S24.PMBUNIT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SQZR RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 75
INTO TABLE "TOPM"."BUSINESSUNIT"
WHEN(00001:00002) = X'02F7'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "BUID"
POSITION( 00007:00010) CHAR(00004)
, "LEID"
POSITION( 00011:00014) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00015:00054) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00055:00064) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00065:00074) DATE EXTERNAL
)
TEMPLATE BDI0SRPJ
DSN('SAVR24.TO01.S24.PMDMZLK.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SRPJ RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOPM"."DOMIZILKLASSE"
WHEN(00001:00002) = X'02F6'
( "DOMIZIL"
POSITION( 00003:00017) CHAR(00015)
, "GUELTIG_VON"
POSITION( 00018:00027) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00028:00037) DATE EXTERNAL
)
//F540769F JOB (CP00,KE50),TIME=1440
//*MAIN SYSTEM=R22,CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DP2G,F540769F.LOAD'
//UTPRINT DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE BDI0SR8T
DSN('SAVR24.TO01.S24.PMDOMIZL.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SR8T RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 275
INTO TABLE "TOPM"."DOMIZIL"
WHEN(00001:00002) = X'02F5'
( "ID"
POSITION( 00003:00005) CHAR(00003)
, "BEZEICHNUNG"
POSITION( 00006:00045) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00046:00055) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00056:00065) DATE EXTERNAL
)
TEMPLATE BDI0SSOY
DSN('SAVR24.TO01.S24.PMDSART.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SSOY RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TOPM"."DATASETART"
WHEN(00001:00002) = X'02F4'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI0S7E5
DSN('SAVR24.TO01.S24.PMDSBLNZ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0S7E5 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 4144065
INTO TABLE "TOPM"."DSCHNITTSBILANZ"
WHEN(00001:00002) = X'02F3'
( "DATASET"
POSITION( 00003:00006) INTEGER
, "BUCD"
POSITION( 00007:00010) CHAR(00004)
, "WAEHRUNG"
POSITION( 00011:00014) CHAR(00004)
, "BILANZCODE"
POSITION( 00015:00044) CHAR(00030)
, "ZINS_KOMM"
POSITION( 00045:00048) CHAR(00004)
, "DOMIZIL"
POSITION( 00049:00063) CHAR(00015)
, "TEXTKLASSE"
POSITION( 00065:00085) CHAR(00021)
NULLIF(00064)=X'FF'
, "D_KAP_UNV_KW"
POSITION( 00087:00094) FLOAT(53)
NULLIF(00086)=X'FF'
, "D_KAP_VER_KW"
POSITION( 00096:00103) FLOAT(53)
NULLIF(00095)=X'FF'
, "BET_KS_KW"
POSITION( 00105:00112) FLOAT(53)
NULLIF(00104)=X'FF'
, "BET_RS_KW"
POSITION( 00114:00121) FLOAT(53)
NULLIF(00113)=X'FF'
, "D_KAP_VER_G"
POSITION( 00123:00130) FLOAT(53)
NULLIF(00122)=X'FF'
, "D_KAP_UNV_G"
POSITION( 00132:00139) FLOAT(53)
NULLIF(00131)=X'FF'
, "BET_KS_G"
POSITION( 00141:00148) FLOAT(53)
NULLIF(00140)=X'FF'
, "BET_RS_G"
POSITION( 00150:00157) FLOAT(53)
NULLIF(00149)=X'FF'
)
TEMPLATE BDI0S7T3
DSN('SAVR24.TO01.S24.PMDSTYP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0S7T3 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TOPM"."DATASETTYP"
WHEN(00001:00002) = X'02F2'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0TE30
DSN('SAVR24.TO01.S24.PMDTBLNZ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0TE30 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 1693431
INTO TABLE "TOPM"."DETAILBILANZ"
WHEN(00001:00002) = X'02F1'
( "DATASET"
POSITION( 00003:00006) INTEGER
, "BUCD"
POSITION( 00007:00010) CHAR(00004)
, "WAEHRUNG"
POSITION( 00011:00014) CHAR(00004)
, "BILANZCODE"
POSITION( 00015:00044) CHAR(00030)
, "S_KWA"
POSITION( 00046:00053) FLOAT(53)
NULLIF(00045)=X'FF'
, "H_KWA"
POSITION( 00055:00062) FLOAT(53)
NULLIF(00054)=X'FF'
, "SALDO_KWA"
POSITION( 00064:00071) FLOAT(53)
NULLIF(00063)=X'FF'
, "S_SFR"
POSITION( 00073:00080) FLOAT(53)
NULLIF(00072)=X'FF'
, "H_SFR"
POSITION( 00082:00089) FLOAT(53)
NULLIF(00081)=X'FF'
, "SALDO_SFR"
POSITION( 00091:00098) FLOAT(53)
NULLIF(00090)=X'FF'
, "ANZAHL"
POSITION( 00100:00103) INTEGER
NULLIF(00099)=X'FF'
)
TEMPLATE BDI0TF5L
DSN('SAVR24.TO01.S24.PMFIHIST.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0TF5L RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 121032
INTO TABLE "TOPM"."ALMFINPUTHIST"
WHEN(00001:00002) = X'02F0'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "AKTIVPASSIV"
POSITION( 00042:00045) INTEGER
NULLIF(00041)=X'FF'
, "WAEHRUNG"
POSITION( 00047:00050) CHAR(00004)
NULLIF(00046)=X'FF'
, "PRODUKT"
POSITION( 00052:00055) CHAR(00004)
NULLIF(00051)=X'FF'
, "NOMINAL"
POSITION( 00057:00064) FLOAT(53)
NULLIF(00056)=X'FF'
)
TEMPLATE BDI0TGFU
DSN('SAVR24.TO01.S24.PMFINPUT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0TGFU RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 6067
INTO TABLE "TOPM"."FEHLERINPUT"
WHEN(00001:00002) = X'02EF'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "AKTIVPASSIV"
POSITION( 00042:00045) INTEGER
NULLIF(00041)=X'FF'
, "WAEHRUNG"
POSITION( 00047:00050) CHAR(00004)
NULLIF(00046)=X'FF'
, "PRODUKT"
POSITION( 00052:00055) CHAR(00004)
NULLIF(00051)=X'FF'
, "NOMINAL"
POSITION( 00057:00064) FLOAT(53)
NULLIF(00056)=X'FF'
)
TEMPLATE BDI0T4GB
DSN('SAVR24.TO01.S24.PMFMHIST.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0T4GB RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 6627586
INTO TABLE "TOPM"."ALMFMELDUNGHIST"
WHEN(00001:00002) = X'02EE'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "QUELLE"
POSITION( 00041:00043) CHAR(00003)
, "KLASSE"
POSITION( 00044:00044) CHAR(00001)
, "NUMMER"
POSITION( 00045:00052) CHAR(00008)
)
TEMPLATE BDI0UBEH
DSN('SAVR24.TO01.S24.PMFMLDG.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0UBEH RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 537175
INTO TABLE "TOPM"."ALMFEHLERMELDUNG"
WHEN(00001:00002) = X'02ED'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "QUELLE"
POSITION( 00041:00043) CHAR(00003)
, "KLASSE"
POSITION( 00044:00044) CHAR(00001)
, "NUMMER"
POSITION( 00045:00052) CHAR(00008)
)
TEMPLATE BDI0UBM4
DSN('SAVR24.TO01.S24.PMFTXT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0UBM4 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 35
INTO TABLE "TOPM"."ALMFEHLERTEXT"
WHEN(00001:00002) = X'02EC'
( "QUELLE"
POSITION( 00003:00005) CHAR(00003)
, "KLASSE"
POSITION( 00006:00006) CHAR(00001)
, "NUMMER"
POSITION( 00007:00014) CHAR(00008)
, "TEXT"
POSITION( 00015:00074) CHAR(00060)
, "GUELTIG_VON"
POSITION( 00075:00084) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00085:00094) DATE EXTERNAL
)
TEMPLATE BDI0UBVV
DSN('SAVR24.TO01.S24.PMHBUCH.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0UBVV RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 26940
INTO TABLE "TOPM"."HAUPTBUCH"
WHEN(00001:00002) = X'02EB'
( "ID"
POSITION( 00003:00009) CHAR(00007)
, "S_RUBRIK"
POSITION( 00011:00026) CHAR(00016)
NULLIF(00010)=X'FF'
, "H_RUBRIK"
POSITION( 00028:00043) CHAR(00016)
NULLIF(00027)=X'FF'
, "BEZEICHNUNG"
POSITION( 00044:00109) CHAR(00066)
)
TEMPLATE BDI0UB3A
DSN('SAVR24.TO01.S24.PMHERKFT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0UB3A RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 7
INTO TABLE "TOPM"."HERKUNFT"
WHEN(00001:00002) = X'02EA'
( "ID"
POSITION( 00003:00010) CHAR(00008)
, "BEZEICHNUNG"
POSITION( 00011:00050) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00051:00060) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00061:00070) DATE EXTERNAL
)
TEMPLATE BDI0UCCE
DSN('SAVR24.TO01.S24.PMHPTITL.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0UCCE RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 46
INTO TABLE "TOPM"."HAUPTTITEL"
WHEN(00001:00002) = X'02E9'
( "ID"
POSITION( 00003:00004) CHAR(00002)
, "BEZEICHNUNG"
POSITION( 00005:00054) CHAR(00050)
, "GUELTIG_VON"
POSITION( 00055:00064) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00065:00074) DATE EXTERNAL
)
TEMPLATE BDI0UCKI
DSN('SAVR24.TO01.S24.PMKNDART.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0UCKI RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 137
INTO TABLE "TOPM"."KUNDENART"
WHEN(00001:00002) = X'02E8'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00066) CHAR(00060)
, "GUELTIG_VON"
POSITION( 00067:00076) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00077:00086) DATE EXTERNAL
)
TEMPLATE BDI0UCRI
DSN('SAVR24.TO01.S24.PMKNDSEG.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0UCRI RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 136
INTO TABLE "TOPM"."KUNDENSEGMENT"
WHEN(00001:00002) = X'02E7'
( "ID"
POSITION( 00003:00005) CHAR(00003)
, "SEGCD"
POSITION( 00006:00009) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00010:00049) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00050:00059) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00060:00069) DATE EXTERNAL
)
TEMPLATE BDI0Y21L
DSN('SAVR24.TO01.S24.PMKONTR.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0Y21L RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3283242
INTO TABLE "TOPM"."ALMKONTRAKTE"
WHEN(00001:00002) = X'02E6'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "KONTRAKTKLASSE"
POSITION( 00041:00043) CHAR(00003)
, "KONTRAKTTYP"
POSITION( 00044:00047) INTEGER
, "PRODUKT"
POSITION( 00048:00051) CHAR(00004)
, "AKTIVPASSIV"
POSITION( 00052:00055) INTEGER
, "NEUALT"
POSITION( 00057:00057) CHAR(00001)
NULLIF(00056)=X'FF'
, "PROFITCENTER"
POSITION( 00059:00062) INTEGER
NULLIF(00058)=X'FF'
, "KUNDENNR"
POSITION( 00064:00075) CHAR(00012)
NULLIF(00063)=X'FF'
, "ABSCHLUSS"
POSITION( 00076:00085) DATE EXTERNAL
, "LBEGINN"
POSITION( 00086:00095) DATE EXTERNAL
, "LENDE"
POSITION( 00097:00106) DATE EXTERNAL
NULLIF(00096)=X'FF'
, "KFRIST"
POSITION( 00108:00115) FLOAT(53)
NULLIF(00107)=X'FF'
, "WAEHRUNG"
POSITION( 00116:00119) CHAR(00004)
, "NOMINAL"
POSITION( 00120:00127) FLOAT(53)
, "NOMINAL_BILANZ"
POSITION( 00128:00135) FLOAT(53)
, "PREIS"
POSITION( 00136:00143) FLOAT(53)
, "TILGUNGSFREQUENZ"
POSITION( 00145:00152) FLOAT(53)
NULLIF(00144)=X'FF'
, "TILGUNGSMODUS"
POSITION( 00154:00154) CHAR(00001)
NULLIF(00153)=X'FF'
, "TILGUNGSBETRAG"
POSITION( 00156:00163) FLOAT(53)
NULLIF(00155)=X'FF'
, "ZINSSATZ"
POSITION( 00164:00171) FLOAT(53)
, "ZINSUSANZ"
POSITION( 00172:00175) INTEGER
, "ZINSFREQUENZ"
POSITION( 00176:00179) INTEGER
, "ZINSMODUS"
POSITION( 00180:00180) CHAR(00001)
, "ZINSINDEX"
POSITION( 00182:00185) INTEGER
NULLIF(00181)=X'FF'
, "ZINSSPREAD"
POSITION( 00187:00194) FLOAT(53)
NULLIF(00186)=X'FF'
, "ZINSAFREQUENZ"
POSITION( 00196:00199) INTEGER
NULLIF(00195)=X'FF'
, "ZINSAMODUS"
POSITION( 00201:00201) CHAR(00001)
NULLIF(00200)=X'FF'
, "VALORENNUMMER"
POSITION( 00203:00212) CHAR(00010)
NULLIF(00202)=X'FF'
, "VALORHERKUNFT"
POSITION( 00214:00217) INTEGER
NULLIF(00213)=X'FF'
, "MARKTPREIS"
POSITION( 00219:00226) FLOAT(53)
NULLIF(00218)=X'FF'
, "OPTIONSART"
POSITION( 00228:00228) CHAR(00001)
NULLIF(00227)=X'FF'
, "VERFALLDATUM"
POSITION( 00230:00239) DATE EXTERNAL
NULLIF(00229)=X'FF'
, "AUSUEBUNGSDATUM"
POSITION( 00241:00250) DATE EXTERNAL
NULLIF(00240)=X'FF'
, "AUSUEBEFREQUENZ"
POSITION( 00252:00259) FLOAT(53)
NULLIF(00251)=X'FF'
, "PUT_CALL"
POSITION( 00261:00261) CHAR(00001)
NULLIF(00260)=X'FF'
, "AUSUEBUNGSTYP"
POSITION( 00263:00263) CHAR(00001)
NULLIF(00262)=X'FF'
, "STRIKE"
POSITION( 00265:00272) FLOAT(53)
NULLIF(00264)=X'FF'
, "BSTRANSSATZ"
POSITION( 00274:00281) FLOAT(53)
NULLIF(00273)=X'FF'
, "BSPRODUKT"
POSITION( 00283:00286) CHAR(00004)
NULLIF(00282)=X'FF'
, "BSRUBRIK"
POSITION( 00288:00303) CHAR(00016)
NULLIF(00287)=X'FF'
, "BSKUAG"
POSITION( 00305:00305) CHAR(00001)
NULLIF(00304)=X'FF'
, "DOMIZIL"
POSITION( 00306:00308) CHAR(00003)
, "RISIKOKLASSE"
POSITION( 00310:00312) CHAR(00003)
NULLIF(00309)=X'FF'
, "HB_ALT"
POSITION( 00314:00320) CHAR(00007)
NULLIF(00313)=X'FF'
, "ZINSNPAYMENT"
POSITION( 00322:00331) DATE EXTERNAL
NULLIF(00321)=X'FF'
)
TEMPLATE BDI1F3IL
DSN('SAVR24.TO01.S24.PMKTHIST.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1F3IL RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 25216380
INTO TABLE "TOPM"."ALMKONTRHIST"
WHEN(00001:00002) = X'02E5'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "KONTRAKTKLASSE"
POSITION( 00041:00043) CHAR(00003)
, "KONTRAKTTYP"
POSITION( 00044:00047) INTEGER
, "PRODUKT"
POSITION( 00048:00051) CHAR(00004)
, "AKTIVPASSIV"
POSITION( 00052:00055) INTEGER
, "NEUALT"
POSITION( 00057:00057) CHAR(00001)
NULLIF(00056)=X'FF'
, "PROFITCENTER"
POSITION( 00059:00062) INTEGER
NULLIF(00058)=X'FF'
, "KUNDENNR"
POSITION( 00064:00075) CHAR(00012)
NULLIF(00063)=X'FF'
, "ABSCHLUSS"
POSITION( 00076:00085) DATE EXTERNAL
, "LBEGINN"
POSITION( 00086:00095) DATE EXTERNAL
, "LENDE"
POSITION( 00097:00106) DATE EXTERNAL
NULLIF(00096)=X'FF'
, "KFRIST"
POSITION( 00108:00115) FLOAT(53)
NULLIF(00107)=X'FF'
, "WAEHRUNG"
POSITION( 00116:00119) CHAR(00004)
, "NOMINAL"
POSITION( 00120:00127) FLOAT(53)
, "NOMINAL_BILANZ"
POSITION( 00128:00135) FLOAT(53)
, "PREIS"
POSITION( 00136:00143) FLOAT(53)
, "TILGUNGSFREQUENZ"
POSITION( 00145:00152) FLOAT(53)
NULLIF(00144)=X'FF'
, "TILGUNGSMODUS"
POSITION( 00154:00154) CHAR(00001)
NULLIF(00153)=X'FF'
, "TILGUNGSBETRAG"
POSITION( 00156:00163) FLOAT(53)
NULLIF(00155)=X'FF'
, "ZINSSATZ"
POSITION( 00164:00171) FLOAT(53)
, "ZINSUSANZ"
POSITION( 00172:00175) INTEGER
, "ZINSFREQUENZ"
POSITION( 00176:00179) INTEGER
, "ZINSMODUS"
POSITION( 00180:00180) CHAR(00001)
, "ZINSINDEX"
POSITION( 00182:00185) INTEGER
NULLIF(00181)=X'FF'
, "ZINSSPREAD"
POSITION( 00187:00194) FLOAT(53)
NULLIF(00186)=X'FF'
, "ZINSAFREQUENZ"
POSITION( 00196:00199) INTEGER
NULLIF(00195)=X'FF'
, "ZINSAMODUS"
POSITION( 00201:00201) CHAR(00001)
NULLIF(00200)=X'FF'
, "VALORENNUMMER"
POSITION( 00203:00212) CHAR(00010)
NULLIF(00202)=X'FF'
, "VALORHERKUNFT"
POSITION( 00214:00217) INTEGER
NULLIF(00213)=X'FF'
, "MARKTPREIS"
POSITION( 00219:00226) FLOAT(53)
NULLIF(00218)=X'FF'
, "OPTIONSART"
POSITION( 00228:00228) CHAR(00001)
NULLIF(00227)=X'FF'
, "VERFALLDATUM"
POSITION( 00230:00239) DATE EXTERNAL
NULLIF(00229)=X'FF'
, "AUSUEBUNGSDATUM"
POSITION( 00241:00250) DATE EXTERNAL
NULLIF(00240)=X'FF'
, "AUSUEBEFREQUENZ"
POSITION( 00252:00259) FLOAT(53)
NULLIF(00251)=X'FF'
, "PUT_CALL"
POSITION( 00261:00261) CHAR(00001)
NULLIF(00260)=X'FF'
, "AUSUEBUNGSTYP"
POSITION( 00263:00263) CHAR(00001)
NULLIF(00262)=X'FF'
, "STRIKE"
POSITION( 00265:00272) FLOAT(53)
NULLIF(00264)=X'FF'
, "BSTRANSSATZ"
POSITION( 00274:00281) FLOAT(53)
NULLIF(00273)=X'FF'
, "BSPRODUKT"
POSITION( 00283:00286) CHAR(00004)
NULLIF(00282)=X'FF'
, "BSRUBRIK"
POSITION( 00288:00303) CHAR(00016)
NULLIF(00287)=X'FF'
, "BSKUAG"
POSITION( 00305:00305) CHAR(00001)
NULLIF(00304)=X'FF'
, "DOMIZIL"
POSITION( 00306:00308) CHAR(00003)
, "RISIKOKLASSE"
POSITION( 00310:00312) CHAR(00003)
NULLIF(00309)=X'FF'
, "HB_ALT"
POSITION( 00314:00320) CHAR(00007)
NULLIF(00313)=X'FF'
, "ZINSNPAYMENT"
POSITION( 00322:00331) DATE EXTERNAL
NULLIF(00321)=X'FF'
)
TEMPLATE BDI1F3PI
DSN('SAVR24.TO01.S24.PMKTKLAS.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1F3PI RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 6
INTO TABLE "TOPM"."KONTRAKTKLASSE"
WHEN(00001:00002) = X'02E4'
( "ID"
POSITION( 00003:00005) CHAR(00003)
, "BEZEICHNUNG"
POSITION( 00006:00045) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00046:00055) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00056:00065) DATE EXTERNAL
)
TEMPLATE BDI1F3XH
DSN('SAVR24.TO01.S24.PMKTTYP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1F3XH RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 14
INTO TABLE "TOPM"."KONTRAKTTYP"
WHEN(00001:00002) = X'02E3'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI1GP1Y
DSN('SAVR24.TO01.S24.PMKUNDE.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GP1Y RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 36288378
INTO TABLE "TOPM"."KUNDE"
WHEN(00001:00002) = X'02E2'
( "CIFNR"
POSITION( 00003:00014) CHAR(00012)
, "BUCD"
POSITION( 00015:00018) CHAR(00004)
, "DOMIZIL"
POSITION( 00019:00021) CHAR(00003)
, "KUNDENART"
POSITION( 00022:00025) CHAR(00004)
, "NATIONALITAET"
POSITION( 00027:00029) CHAR(00003)
NULLIF(00026)=X'FF'
, "KUNDENSEGMENT"
POSITION( 00031:00033) CHAR(00003)
NULLIF(00030)=X'FF'
, "BRANCHENCODE"
POSITION( 00035:00038) CHAR(00004)
NULLIF(00034)=X'FF'
, "GUELTIG_VON"
POSITION( 00039:00048) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00049:00058) DATE EXTERNAL
)
TEMPLATE BDI1GQAU
DSN('SAVR24.TO01.S24.PMLENT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GQAU RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 12
INTO TABLE "TOPM"."LEGALENTITY"
WHEN(00001:00002) = X'02E1'
( "LEID"
POSITION( 00003:00006) CHAR(00004)
, "LECD"
POSITION( 00007:00010) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00011:00050) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00051:00060) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00061:00070) DATE EXTERNAL
)
TEMPLATE BDI1GQKX
DSN('SAVR24.TO01.S24.PMNEUALT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GQKX RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TOPM"."NEUALT"
WHEN(00001:00002) = X'02E0'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI1GQS2
DSN('SAVR24.TO01.S24.PMOPTART.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GQS2 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TOPM"."OPTIONSART"
WHEN(00001:00002) = X'02DF'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI1GQ0L
DSN('SAVR24.TO01.S24.PMPRFTCT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GQ0L RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TOPM"."PROFITCENTER"
WHEN(00001:00002) = X'02DE'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI1GRBJ
DSN('SAVR24.TO01.S24.PMPRODKT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GRBJ RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 1554
INTO TABLE "TOPM"."PRODUKT"
WHEN(00001:00002) = X'02DD'
( "PRODUKT"
POSITION( 00003:00006) CHAR(00004)
, "ISTORELEVANT"
POSITION( 00007:00007) CHAR(00001)
, "ISUNTERBETEILIGUNG"
POSITION( 00008:00008) CHAR(00001)
, "ISBODENSATZ"
POSITION( 00009:00009) CHAR(00001)
, "ISDEFPRODUKT"
POSITION( 00010:00010) CHAR(00001)
, "KURZTEXT"
POSITION( 00011:00020) CHAR(00010)
, "LANGTEXT"
POSITION( 00021:00060) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00061:00070) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00071:00080) DATE EXTERNAL
, "ISRRARELEVANT"
POSITION( 00082:00082) CHAR(00001)
NULLIF(00081)=X'FF'
)
TEMPLATE BDI1GRLX
DSN('SAVR24.TO01.S24.PMPUTCAL.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GRLX RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TOPM"."PUTCALL"
WHEN(00001:00002) = X'02DC'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI1GRS7
DSN('SAVR24.TO01.S24.PMREPEMP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GRS7 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 49
INTO TABLE "TOPM"."REPORTEMPFAENGER"
WHEN(00001:00002) = X'02DB'
( "REPORT"
POSITION( 00003:00010) CHAR(00008)
, "PID"
POSITION( 00011:00019) CHAR(00009)
, "BUCD"
POSITION( 00020:00023) CHAR(00004)
, "DEST"
POSITION( 00024:00027) CHAR(00004)
, "NCOPY"
POSITION( 00028:00031) INTEGER
, "GUELTIG_VON"
POSITION( 00032:00041) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00042:00051) DATE EXTERNAL
)
TEMPLATE BDI1GRZ6
DSN('SAVR24.TO01.S24.PMRRARBK.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GRZ6 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 20
INTO TABLE "TOPM"."RRARBK"
WHEN(00001:00002) = X'02DA'
( "RUBRIK"
POSITION( 00003:00005) CHAR(00003)
, "TEXT1"
POSITION( 00006:00008) CHAR(00003)
, "TEXT2"
POSITION( 00009:00078) CHAR(00070)
)
TEMPLATE BDI1GR8Q
DSN('SAVR24.TO01.S24.PMTXTK.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GR8Q RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 4
INTO TABLE "TOPM"."TEXTKLASSE"
WHEN(00001:00002) = X'02D9'
( "TEXTKLASSE"
POSITION( 00003:00023) CHAR(00021)
, "GUELTIG_VON"
POSITION( 00024:00033) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00034:00043) DATE EXTERNAL
)
TEMPLATE BDI1GSFZ
DSN('SAVR24.TO01.S24.PMVALOR.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GSFZ RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOPM"."VALOR"
WHEN(00001:00002) = X'02D8'
( "ID"
POSITION( 00003:00012) CHAR(00010)
, "BEZEICHNUNG"
POSITION( 00013:00052) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00053:00062) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00063:00072) DATE EXTERNAL
)
//F540769G JOB (CP00,KE50),TIME=1440
//*MAIN SYSTEM=R22,CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DP2G,F540769G.LOAD'
//UTPRINT DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE BDI1GSMC
DSN('SAVR24.TO01.S24.PMVLOHKT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GSMC RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOPM"."VALORHERKUNFT"
WHEN(00001:00002) = X'02D7'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI1GSTQ
DSN('SAVR24.TO01.S24.PMWAEHRG.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GSTQ RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 211
INTO TABLE "TOPM"."WAEHRUNG"
WHEN(00001:00002) = X'02D6'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI1GS0V
DSN('SAVR24.TO01.S24.PMZINSFQ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GS0V RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 6
INTO TABLE "TOPM"."ZINSFREQUENZ"
WHEN(00001:00002) = X'02D5'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI1GS7T
DSN('SAVR24.TO01.S24.PMZINSUZ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GS7T RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 5
INTO TABLE "TOPM"."ZINSUSANZ"
WHEN(00001:00002) = X'02D4'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI1GTFM
DSN('SAVR24.TO01.S24.PMZNSKM.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GTFM RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TOPM"."ZINS_KOMM"
WHEN(00001:00002) = X'02D3'
( "ZINS_KOMM"
POSITION( 00003:00006) CHAR(00004)
, "GUELTIG_VON"
POSITION( 00007:00016) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00017:00026) DATE EXTERNAL
)
TEMPLATE BDI1GTPH
DSN('SAVR24.TO01.S24.PMZSATZ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GTPH RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 62956
INTO TABLE "TOPM"."ZINSSATZ"
WHEN(00001:00002) = X'02D2'
( "WHRG"
POSITION( 00003:00006) CHAR(00004)
, "GULTIGAM"
POSITION( 00007:00016) DATE EXTERNAL
, "LAUFZEIT"
POSITION( 00017:00020) INTEGER
, "USANZ"
POSITION( 00021:00024) INTEGER
, "ZINSSATZ"
POSITION( 00025:00032) FLOAT(53)
)
TEMPLATE BDI1GTWJ
DSN('SAVR24.TO01.S24.PMZSINDX.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GTWJ RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TOPM"."ZINSINDEX"
WHEN(00001:00002) = X'02D1'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI1GT3X
DSN('SAVR24.TO01.S24.PMZSMODU.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GT3X RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TOPM"."ZINSMODUS"
WHEN(00001:00002) = X'02D0'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI0SJX2
DSN('SAVR24.TO01.S24.PM1UTITL.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SJX2 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 282
INTO TABLE "TOPM"."ERSTUNTERTITEL"
WHEN(00001:00002) = X'02CF'
( "ID"
POSITION( 00003:00005) CHAR(00003)
, "BEZEICHNUNG"
POSITION( 00006:00055) CHAR(00050)
, "HT"
POSITION( 00056:00057) CHAR(00002)
, "GUELTIG_VON"
POSITION( 00058:00067) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00068:00077) DATE EXTERNAL
)
TEMPLATE BDI0SKGL
DSN('SAVR24.TO01.S24.PM2UTITL.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SKGL RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 490
INTO TABLE "TOPM"."ZWEITUNTERTITEL"
WHEN(00001:00002) = X'02CE'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00056) CHAR(00050)
, "UT1"
POSITION( 00057:00059) CHAR(00003)
, "GUELTIG_VON"
POSITION( 00060:00069) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00070:00079) DATE EXTERNAL
)
TEMPLATE BDI0SKWV
DSN('SAVR24.TO01.S24.PM3UTITL.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI0SKWV RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 834
INTO TABLE "TOPM"."DRITTUNTERTITEL"
WHEN(00001:00002) = X'02CD'
( "ID"
POSITION( 00003:00008) CHAR(00006)
, "BEZEICHNUNG"
POSITION( 00009:00058) CHAR(00050)
, "UT2"
POSITION( 00059:00062) CHAR(00004)
, "GUELTIG_VON"
POSITION( 00063:00072) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00073:00082) DATE EXTERNAL
)
TEMPLATE BDI1GUBK
DSN('SAVR24.TO01.S24.TMAKTPAS.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GUBK RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 4
INTO TABLE "TOTM"."AKTIVPASSIV"
WHEN(00001:00002) = X'04A0'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI1GUJG
DSN('SAVR24.TO01.S24.TMALMDS.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GUJG RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 15
INTO TABLE "TOTM"."ALMDATASET"
WHEN(00001:00002) = X'049F'
( "DATASET"
POSITION( 00003:00006) INTEGER
, "HERKUNFTDS"
POSITION( 00008:00011) INTEGER
NULLIF(00007)=X'FF'
, "DATASETTYP"
POSITION( 00012:00012) CHAR(00001)
, "DATASETART"
POSITION( 00013:00016) INTEGER
, "KURZTEXT"
POSITION( 00017:00024) CHAR(00008)
, "LANGTEXT"
POSITION( 00025:00054) CHAR(00030)
, "STICHDATUM_ALM"
POSITION( 00055:00064) DATE EXTERNAL
, "STICHDATUM_TO"
POSITION( 00065:00074) DATE EXTERNAL
, "VERARBEITUNGSDATUM"
POSITION( 00075:00084) DATE EXTERNAL
, "GUELTIG_VON"
POSITION( 00085:00094) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00095:00104) DATE EXTERNAL
)
TEMPLATE BDI1GUQG
DSN('SAVR24.TO01.S24.TMASOF.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GUQG RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOTM"."ALM_ASOF"
WHEN(00001:00002) = X'049E'
( "ASOF_DATE"
POSITION( 00003:00012) DATE EXTERNAL
)
TEMPLATE BDI1GUX7
DSN('SAVR24.TO01.S24.TMAUBTYP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GUX7 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TOTM"."AUSUEBUNGSTYP"
WHEN(00001:00002) = X'049D'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI1GU5C
DSN('SAVR24.TO01.S24.TMBEN.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GU5C RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOTM"."BENUTZER"
WHEN(00001:00002) = X'049C'
( "PID"
POSITION( 00003:00011) CHAR(00009)
, "EMAIL"
POSITION( 00013:00052) CHAR(00040)
NULLIF(00012)=X'FF'
, "GUELTIG_VON"
POSITION( 00053:00062) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00063:00072) DATE EXTERNAL
)
TEMPLATE BDI1GVCV
DSN('SAVR24.TO01.S24.TMBLNZKS.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GVCV RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 1122
INTO TABLE "TOTM"."BILANZKURS"
WHEN(00001:00002) = X'049B'
( "WHRG"
POSITION( 00003:00006) CHAR(00004)
, "GULTIGAM"
POSITION( 00007:00016) DATE EXTERNAL
, "KURS"
POSITION( 00017:00024) FLOAT(53)
)
TEMPLATE BDI1GVMU
DSN('SAVR24.TO01.S24.TMBLNZRB.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GVMU RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 16474
INTO TABLE "TOTM"."BILANZRUBRIK"
WHEN(00001:00002) = X'049A'
( "ID"
POSITION( 00003:00018) CHAR(00016)
, "BEZEICHNUNG"
POSITION( 00019:00058) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00059:00068) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00069:00078) DATE EXTERNAL
)
TEMPLATE BDI1GVUR
DSN('SAVR24.TO01.S24.TMBRANCH.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GVUR RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 927
INTO TABLE "TOTM"."BRANCHE"
WHEN(00001:00002) = X'0499'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00066) CHAR(00060)
, "GUELTIG_VON"
POSITION( 00067:00076) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00077:00086) DATE EXTERNAL
)
TEMPLATE BDI1GV14
DSN('SAVR24.TO01.S24.TMBSKNDT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GV14 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 6
INTO TABLE "TOTM"."BSKUNDENART"
WHEN(00001:00002) = X'0498'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI1GV8U
DSN('SAVR24.TO01.S24.TMBUNIT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GV8U RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 42
INTO TABLE "TOTM"."BUSINESSUNIT"
WHEN(00001:00002) = X'0497'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "BUID"
POSITION( 00007:00010) CHAR(00004)
, "LEID"
POSITION( 00011:00014) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00015:00054) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00055:00064) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00065:00074) DATE EXTERNAL
)
TEMPLATE BDI1GWIO
DSN('SAVR24.TO01.S24.TMDOMIZL.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GWIO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 259
INTO TABLE "TOTM"."DOMIZIL"
WHEN(00001:00002) = X'0496'
( "ID"
POSITION( 00003:00005) CHAR(00003)
, "BEZEICHNUNG"
POSITION( 00006:00045) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00046:00055) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00056:00065) DATE EXTERNAL
)
TEMPLATE BDI1GWPD
DSN('SAVR24.TO01.S24.TMDSART.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GWPD RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TOTM"."DATASETART"
WHEN(00001:00002) = X'0495'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI1GWWA
DSN('SAVR24.TO01.S24.TMDSTYP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GWWA RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TOTM"."DATASETTYP"
WHEN(00001:00002) = X'0494'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI1GW21
DSN('SAVR24.TO01.S24.TMFIHIST.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GW21 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOTM"."ALMFINPUTHIST"
WHEN(00001:00002) = X'0493'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "AKTIVPASSIV"
POSITION( 00042:00045) INTEGER
NULLIF(00041)=X'FF'
, "WAEHRUNG"
POSITION( 00047:00050) CHAR(00004)
NULLIF(00046)=X'FF'
, "PRODUKT"
POSITION( 00052:00055) CHAR(00004)
NULLIF(00051)=X'FF'
, "NOMINAL"
POSITION( 00057:00064) FLOAT(53)
NULLIF(00056)=X'FF'
)
TEMPLATE BDI1GXBK
DSN('SAVR24.TO01.S24.TMFINPUT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GXBK RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 1474
INTO TABLE "TOTM"."FEHLERINPUT"
WHEN(00001:00002) = X'0492'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "AKTIVPASSIV"
POSITION( 00042:00045) INTEGER
NULLIF(00041)=X'FF'
, "WAEHRUNG"
POSITION( 00047:00050) CHAR(00004)
NULLIF(00046)=X'FF'
, "PRODUKT"
POSITION( 00052:00055) CHAR(00004)
NULLIF(00051)=X'FF'
, "NOMINAL"
POSITION( 00057:00064) FLOAT(53)
NULLIF(00056)=X'FF'
)
TEMPLATE BDI1GXKE
DSN('SAVR24.TO01.S24.TMFMHIST.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GXKE RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOTM"."ALMFMELDUNGHIST"
WHEN(00001:00002) = X'0491'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "QUELLE"
POSITION( 00041:00043) CHAR(00003)
, "KLASSE"
POSITION( 00044:00044) CHAR(00001)
, "NUMMER"
POSITION( 00045:00052) CHAR(00008)
)
TEMPLATE BDI1GYN6
DSN('SAVR24.TO01.S24.TMFMLDG.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GYN6 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 250996
INTO TABLE "TOTM"."ALMFEHLERMELDUNG"
WHEN(00001:00002) = X'0490'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "QUELLE"
POSITION( 00041:00043) CHAR(00003)
, "KLASSE"
POSITION( 00044:00044) CHAR(00001)
, "NUMMER"
POSITION( 00045:00052) CHAR(00008)
)
TEMPLATE BDI1GYWR
DSN('SAVR24.TO01.S24.TMFTXT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GYWR RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 35
INTO TABLE "TOTM"."ALMFEHLERTEXT"
WHEN(00001:00002) = X'048F'
( "QUELLE"
POSITION( 00003:00005) CHAR(00003)
, "KLASSE"
POSITION( 00006:00006) CHAR(00001)
, "NUMMER"
POSITION( 00007:00014) CHAR(00008)
, "TEXT"
POSITION( 00015:00074) CHAR(00060)
, "GUELTIG_VON"
POSITION( 00075:00084) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00085:00094) DATE EXTERNAL
)
TEMPLATE BDI1GY4G
DSN('SAVR24.TO01.S24.TMHBUCH.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GY4G RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 25698
INTO TABLE "TOTM"."HAUPTBUCH"
WHEN(00001:00002) = X'048E'
( "ID"
POSITION( 00003:00009) CHAR(00007)
, "S_RUBRIK"
POSITION( 00011:00026) CHAR(00016)
NULLIF(00010)=X'FF'
, "H_RUBRIK"
POSITION( 00028:00043) CHAR(00016)
NULLIF(00027)=X'FF'
, "BEZEICHNUNG"
POSITION( 00044:00109) CHAR(00066)
)
//F540769H JOB (CP00,KE50),TIME=1440
//*MAIN SYSTEM=R22,CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DP2G,F540769H.LOAD'
//UTPRINT DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE BDI1GZCQ
DSN('SAVR24.TO01.S24.TMHERKFT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GZCQ RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 7
INTO TABLE "TOTM"."HERKUNFT"
WHEN(00001:00002) = X'048D'
( "ID"
POSITION( 00003:00010) CHAR(00008)
, "BEZEICHNUNG"
POSITION( 00011:00050) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00051:00060) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00061:00070) DATE EXTERNAL
)
TEMPLATE BDI1GZJD
DSN('SAVR24.TO01.S24.TMKNDART.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GZJD RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 125
INTO TABLE "TOTM"."KUNDENART"
WHEN(00001:00002) = X'048C'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00066) CHAR(00060)
, "GUELTIG_VON"
POSITION( 00067:00076) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00077:00086) DATE EXTERNAL
)
TEMPLATE BDI1GZQN
DSN('SAVR24.TO01.S24.TMKNDSEG.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1GZQN RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 86
INTO TABLE "TOTM"."KUNDENSEGMENT"
WHEN(00001:00002) = X'048B'
( "ID"
POSITION( 00003:00005) CHAR(00003)
, "SEGCD"
POSITION( 00006:00009) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00010:00049) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00050:00059) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00060:00069) DATE EXTERNAL
)
TEMPLATE BDI1HDZ6
DSN('SAVR24.TO01.S24.TMKONTR.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HDZ6 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 1227486
INTO TABLE "TOTM"."ALMKONTRAKTE"
WHEN(00001:00002) = X'048A'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "KONTRAKTKLASSE"
POSITION( 00041:00043) CHAR(00003)
, "KONTRAKTTYP"
POSITION( 00044:00047) INTEGER
, "PRODUKT"
POSITION( 00048:00051) CHAR(00004)
, "AKTIVPASSIV"
POSITION( 00052:00055) INTEGER
, "NEUALT"
POSITION( 00057:00057) CHAR(00001)
NULLIF(00056)=X'FF'
, "PROFITCENTER"
POSITION( 00059:00062) INTEGER
NULLIF(00058)=X'FF'
, "KUNDENNR"
POSITION( 00064:00075) CHAR(00012)
NULLIF(00063)=X'FF'
, "ABSCHLUSS"
POSITION( 00076:00085) DATE EXTERNAL
, "LBEGINN"
POSITION( 00086:00095) DATE EXTERNAL
, "LENDE"
POSITION( 00097:00106) DATE EXTERNAL
NULLIF(00096)=X'FF'
, "KFRIST"
POSITION( 00108:00115) FLOAT(53)
NULLIF(00107)=X'FF'
, "WAEHRUNG"
POSITION( 00116:00119) CHAR(00004)
, "NOMINAL"
POSITION( 00120:00127) FLOAT(53)
, "NOMINAL_BILANZ"
POSITION( 00128:00135) FLOAT(53)
, "PREIS"
POSITION( 00136:00143) FLOAT(53)
, "TILGUNGSFREQUENZ"
POSITION( 00145:00152) FLOAT(53)
NULLIF(00144)=X'FF'
, "TILGUNGSMODUS"
POSITION( 00154:00154) CHAR(00001)
NULLIF(00153)=X'FF'
, "TILGUNGSBETRAG"
POSITION( 00156:00163) FLOAT(53)
NULLIF(00155)=X'FF'
, "ZINSSATZ"
POSITION( 00164:00171) FLOAT(53)
, "ZINSUSANZ"
POSITION( 00172:00175) INTEGER
, "ZINSFREQUENZ"
POSITION( 00176:00179) INTEGER
, "ZINSMODUS"
POSITION( 00180:00180) CHAR(00001)
, "ZINSINDEX"
POSITION( 00182:00185) INTEGER
NULLIF(00181)=X'FF'
, "ZINSSPREAD"
POSITION( 00187:00194) FLOAT(53)
NULLIF(00186)=X'FF'
, "ZINSAFREQUENZ"
POSITION( 00196:00199) INTEGER
NULLIF(00195)=X'FF'
, "ZINSAMODUS"
POSITION( 00201:00201) CHAR(00001)
NULLIF(00200)=X'FF'
, "VALORENNUMMER"
POSITION( 00203:00212) CHAR(00010)
NULLIF(00202)=X'FF'
, "VALORHERKUNFT"
POSITION( 00214:00217) INTEGER
NULLIF(00213)=X'FF'
, "MARKTPREIS"
POSITION( 00219:00226) FLOAT(53)
NULLIF(00218)=X'FF'
, "OPTIONSART"
POSITION( 00228:00228) CHAR(00001)
NULLIF(00227)=X'FF'
, "VERFALLDATUM"
POSITION( 00230:00239) DATE EXTERNAL
NULLIF(00229)=X'FF'
, "AUSUEBUNGSDATUM"
POSITION( 00241:00250) DATE EXTERNAL
NULLIF(00240)=X'FF'
, "AUSUEBEFREQUENZ"
POSITION( 00252:00259) FLOAT(53)
NULLIF(00251)=X'FF'
, "PUT_CALL"
POSITION( 00261:00261) CHAR(00001)
NULLIF(00260)=X'FF'
, "AUSUEBUNGSTYP"
POSITION( 00263:00263) CHAR(00001)
NULLIF(00262)=X'FF'
, "STRIKE"
POSITION( 00265:00272) FLOAT(53)
NULLIF(00264)=X'FF'
, "BSTRANSSATZ"
POSITION( 00274:00281) FLOAT(53)
NULLIF(00273)=X'FF'
, "BSPRODUKT"
POSITION( 00283:00286) CHAR(00004)
NULLIF(00282)=X'FF'
, "BSRUBRIK"
POSITION( 00288:00303) CHAR(00016)
NULLIF(00287)=X'FF'
, "BSKUAG"
POSITION( 00305:00305) CHAR(00001)
NULLIF(00304)=X'FF'
, "DOMIZIL"
POSITION( 00306:00308) CHAR(00003)
, "RISIKOKLASSE"
POSITION( 00310:00312) CHAR(00003)
NULLIF(00309)=X'FF'
, "HB_ALT"
POSITION( 00314:00320) CHAR(00007)
NULLIF(00313)=X'FF'
, "ZINSNPAYMENT"
POSITION( 00322:00331) DATE EXTERNAL
NULLIF(00321)=X'FF'
)
TEMPLATE BDI1HD6Q
DSN('SAVR24.TO01.S24.TMKTHIST.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HD6Q RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOTM"."ALMKONTRHIST"
WHEN(00001:00002) = X'0489'
( "BUCD"
POSITION( 00003:00006) CHAR(00004)
, "DATASET"
POSITION( 00007:00010) INTEGER
, "HERKUNFT"
POSITION( 00011:00018) CHAR(00008)
, "KONTRAKTNR"
POSITION( 00019:00036) CHAR(00018)
, "LAUFNUMMER"
POSITION( 00037:00040) INTEGER
, "KONTRAKTKLASSE"
POSITION( 00041:00043) CHAR(00003)
, "KONTRAKTTYP"
POSITION( 00044:00047) INTEGER
, "PRODUKT"
POSITION( 00048:00051) CHAR(00004)
, "AKTIVPASSIV"
POSITION( 00052:00055) INTEGER
, "NEUALT"
POSITION( 00057:00057) CHAR(00001)
NULLIF(00056)=X'FF'
, "PROFITCENTER"
POSITION( 00059:00062) INTEGER
NULLIF(00058)=X'FF'
, "KUNDENNR"
POSITION( 00064:00075) CHAR(00012)
NULLIF(00063)=X'FF'
, "ABSCHLUSS"
POSITION( 00076:00085) DATE EXTERNAL
, "LBEGINN"
POSITION( 00086:00095) DATE EXTERNAL
, "LENDE"
POSITION( 00097:00106) DATE EXTERNAL
NULLIF(00096)=X'FF'
, "KFRIST"
POSITION( 00108:00115) FLOAT(53)
NULLIF(00107)=X'FF'
, "WAEHRUNG"
POSITION( 00116:00119) CHAR(00004)
, "NOMINAL"
POSITION( 00120:00127) FLOAT(53)
, "NOMINAL_BILANZ"
POSITION( 00128:00135) FLOAT(53)
, "PREIS"
POSITION( 00136:00143) FLOAT(53)
, "TILGUNGSFREQUENZ"
POSITION( 00145:00152) FLOAT(53)
NULLIF(00144)=X'FF'
, "TILGUNGSMODUS"
POSITION( 00154:00154) CHAR(00001)
NULLIF(00153)=X'FF'
, "TILGUNGSBETRAG"
POSITION( 00156:00163) FLOAT(53)
NULLIF(00155)=X'FF'
, "ZINSSATZ"
POSITION( 00164:00171) FLOAT(53)
, "ZINSUSANZ"
POSITION( 00172:00175) INTEGER
, "ZINSFREQUENZ"
POSITION( 00176:00179) INTEGER
, "ZINSMODUS"
POSITION( 00180:00180) CHAR(00001)
, "ZINSINDEX"
POSITION( 00182:00185) INTEGER
NULLIF(00181)=X'FF'
, "ZINSSPREAD"
POSITION( 00187:00194) FLOAT(53)
NULLIF(00186)=X'FF'
, "ZINSAFREQUENZ"
POSITION( 00196:00199) INTEGER
NULLIF(00195)=X'FF'
, "ZINSAMODUS"
POSITION( 00201:00201) CHAR(00001)
NULLIF(00200)=X'FF'
, "VALORENNUMMER"
POSITION( 00203:00212) CHAR(00010)
NULLIF(00202)=X'FF'
, "VALORHERKUNFT"
POSITION( 00214:00217) INTEGER
NULLIF(00213)=X'FF'
, "MARKTPREIS"
POSITION( 00219:00226) FLOAT(53)
NULLIF(00218)=X'FF'
, "OPTIONSART"
POSITION( 00228:00228) CHAR(00001)
NULLIF(00227)=X'FF'
, "VERFALLDATUM"
POSITION( 00230:00239) DATE EXTERNAL
NULLIF(00229)=X'FF'
, "AUSUEBUNGSDATUM"
POSITION( 00241:00250) DATE EXTERNAL
NULLIF(00240)=X'FF'
, "AUSUEBEFREQUENZ"
POSITION( 00252:00259) FLOAT(53)
NULLIF(00251)=X'FF'
, "PUT_CALL"
POSITION( 00261:00261) CHAR(00001)
NULLIF(00260)=X'FF'
, "AUSUEBUNGSTYP"
POSITION( 00263:00263) CHAR(00001)
NULLIF(00262)=X'FF'
, "STRIKE"
POSITION( 00265:00272) FLOAT(53)
NULLIF(00264)=X'FF'
, "BSTRANSSATZ"
POSITION( 00274:00281) FLOAT(53)
NULLIF(00273)=X'FF'
, "BSPRODUKT"
POSITION( 00283:00286) CHAR(00004)
NULLIF(00282)=X'FF'
, "BSRUBRIK"
POSITION( 00288:00303) CHAR(00016)
NULLIF(00287)=X'FF'
, "BSKUAG"
POSITION( 00305:00305) CHAR(00001)
NULLIF(00304)=X'FF'
, "DOMIZIL"
POSITION( 00306:00308) CHAR(00003)
, "RISIKOKLASSE"
POSITION( 00310:00312) CHAR(00003)
NULLIF(00309)=X'FF'
, "HB_ALT"
POSITION( 00314:00320) CHAR(00007)
NULLIF(00313)=X'FF'
)
TEMPLATE BDI1HEEP
DSN('SAVR24.TO01.S24.TMKTKLAS.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HEEP RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 6
INTO TABLE "TOTM"."KONTRAKTKLASSE"
WHEN(00001:00002) = X'0488'
( "ID"
POSITION( 00003:00005) CHAR(00003)
, "BEZEICHNUNG"
POSITION( 00006:00045) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00046:00055) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00056:00065) DATE EXTERNAL
)
TEMPLATE BDI1HEL5
DSN('SAVR24.TO01.S24.TMKTTYP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HEL5 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 14
INTO TABLE "TOTM"."KONTRAKTTYP"
WHEN(00001:00002) = X'0487'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI1HPX4
DSN('SAVR24.TO01.S24.TMKUNDE.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HPX4 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 19509672
INTO TABLE "TOTM"."KUNDE"
WHEN(00001:00002) = X'0486'
( "CIFNR"
POSITION( 00003:00014) CHAR(00012)
, "BUCD"
POSITION( 00015:00018) CHAR(00004)
, "DOMIZIL"
POSITION( 00019:00021) CHAR(00003)
, "KUNDENART"
POSITION( 00022:00025) CHAR(00004)
, "NATIONALITAET"
POSITION( 00027:00029) CHAR(00003)
NULLIF(00026)=X'FF'
, "KUNDENSEGMENT"
POSITION( 00031:00033) CHAR(00003)
NULLIF(00030)=X'FF'
, "BRANCHENCODE"
POSITION( 00035:00038) CHAR(00004)
NULLIF(00034)=X'FF'
, "GUELTIG_VON"
POSITION( 00039:00048) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00049:00058) DATE EXTERNAL
)
TEMPLATE BDI1HP8E
DSN('SAVR24.TO01.S24.TMLENT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HP8E RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 12
INTO TABLE "TOTM"."LEGALENTITY"
WHEN(00001:00002) = X'0485'
( "LEID"
POSITION( 00003:00006) CHAR(00004)
, "LECD"
POSITION( 00007:00010) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00011:00050) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00051:00060) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00061:00070) DATE EXTERNAL
)
TEMPLATE BDI1HQGZ
DSN('SAVR24.TO01.S24.TMNEUALT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HQGZ RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TOTM"."NEUALT"
WHEN(00001:00002) = X'0484'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI1HQON
DSN('SAVR24.TO01.S24.TMOPTART.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HQON RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TOTM"."OPTIONSART"
WHEN(00001:00002) = X'0483'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI1HQV1
DSN('SAVR24.TO01.S24.TMPRFTCT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HQV1 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TOTM"."PROFITCENTER"
WHEN(00001:00002) = X'0482'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI1HQ5E
DSN('SAVR24.TO01.S24.TMPRODKT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HQ5E RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 1492
INTO TABLE "TOTM"."PRODUKT"
WHEN(00001:00002) = X'0481'
( "PRODUKT"
POSITION( 00003:00006) CHAR(00004)
, "ISTORELEVANT"
POSITION( 00007:00007) CHAR(00001)
, "ISUNTERBETEILIGUNG"
POSITION( 00008:00008) CHAR(00001)
, "ISBODENSATZ"
POSITION( 00009:00009) CHAR(00001)
, "ISDEFPRODUKT"
POSITION( 00010:00010) CHAR(00001)
, "ISRRARELEVANT"
POSITION( 00011:00011) CHAR(00001)
, "KURZTEXT"
POSITION( 00012:00021) CHAR(00010)
, "LANGTEXT"
POSITION( 00022:00061) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00062:00071) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00072:00081) DATE EXTERNAL
)
TEMPLATE BDI1HREG
DSN('SAVR24.TO01.S24.TMPUTCAL.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HREG RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TOTM"."PUTCALL"
WHEN(00001:00002) = X'0480'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
TEMPLATE BDI1HRLW
DSN('SAVR24.TO01.S24.TMREPEMP.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HRLW RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 7
INTO TABLE "TOTM"."REPORTEMPFAENGER"
WHEN(00001:00002) = X'047F'
( "REPORT"
POSITION( 00003:00010) CHAR(00008)
, "PID"
POSITION( 00011:00019) CHAR(00009)
, "BUCD"
POSITION( 00020:00023) CHAR(00004)
, "DEST"
POSITION( 00024:00027) CHAR(00004)
, "NCOPY"
POSITION( 00028:00031) INTEGER
, "GUELTIG_VON"
POSITION( 00032:00041) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00042:00051) DATE EXTERNAL
)
TEMPLATE BDI1HRS6
DSN('SAVR24.TO01.S24.TMRRARBK.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HRS6 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 20
INTO TABLE "TOTM"."RRARBK"
WHEN(00001:00002) = X'047E'
( "RUBRIK"
POSITION( 00003:00005) CHAR(00003)
, "TEXT1"
POSITION( 00006:00008) CHAR(00003)
, "TEXT2"
POSITION( 00009:00078) CHAR(00070)
)
TEMPLATE BDI1HR0H
DSN('SAVR24.TO01.S24.TMVALOR.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HR0H RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOTM"."VALOR"
WHEN(00001:00002) = X'047D'
( "ID"
POSITION( 00003:00012) CHAR(00010)
, "BEZEICHNUNG"
POSITION( 00013:00052) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00053:00062) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00063:00072) DATE EXTERNAL
)
TEMPLATE BDI1HR7O
DSN('SAVR24.TO01.S24.TMVLOHKT.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HR7O RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "TOTM"."VALORHERKUNFT"
WHEN(00001:00002) = X'047C'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI1HSFN
DSN('SAVR24.TO01.S24.TMWAEHRG.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HSFN RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 190
INTO TABLE "TOTM"."WAEHRUNG"
WHEN(00001:00002) = X'047B'
( "ID"
POSITION( 00003:00006) CHAR(00004)
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI1HSML
DSN('SAVR24.TO01.S24.TMZINSFQ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HSML RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 6
INTO TABLE "TOTM"."ZINSFREQUENZ"
WHEN(00001:00002) = X'047A'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI1HST4
DSN('SAVR24.TO01.S24.TMZINSUZ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HST4 RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 5
INTO TABLE "TOTM"."ZINSUSANZ"
WHEN(00001:00002) = X'0479'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI1HS1M
DSN('SAVR24.TO01.S24.TMZSATZ.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HS1M RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 1296
INTO TABLE "TOTM"."ZINSSATZ"
WHEN(00001:00002) = X'0478'
( "WHRG"
POSITION( 00003:00006) CHAR(00004)
, "GULTIGAM"
POSITION( 00007:00016) DATE EXTERNAL
, "LAUFZEIT"
POSITION( 00017:00020) INTEGER
, "USANZ"
POSITION( 00021:00024) INTEGER
, "ZINSSATZ"
POSITION( 00025:00032) FLOAT(53)
)
TEMPLATE BDI1HTAG
DSN('SAVR24.TO01.S24.TMZSINDX.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HTAG RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2
INTO TABLE "TOTM"."ZINSINDEX"
WHEN(00001:00002) = X'0477'
( "ID"
POSITION( 00003:00006) INTEGER
, "BEZEICHNUNG"
POSITION( 00007:00046) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00047:00056) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00057:00066) DATE EXTERNAL
)
TEMPLATE BDI1HTIC
DSN('SAVR24.TO01.S24.TMZSMODU.P00000.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN BDI1HTIC RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3
INTO TABLE "TOTM"."ZINSMODUS"
WHEN(00001:00002) = X'0476'
( "ID"
POSITION( 00003:00003) CHAR(00001)
, "BEZEICHNUNG"
POSITION( 00004:00043) CHAR(00040)
, "GUELTIG_VON"
POSITION( 00044:00053) DATE EXTERNAL
, "GUELTIG_BIS"
POSITION( 00054:00063) DATE EXTERNAL
)
}¢--- A540769.WK.SKELS(ZGLCLON) cre= mod=-. ------------------------------------
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = AVIN003Q,
CLNWSLST = AVIN003C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = AV02003Q,
CLNWSLST = AV02003C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = AV02004Q,
CLNWSLST = AV02004C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = CD02000Q,
CLNWSLST = CD02000C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = CW10002Q,
CLNWSLST = CW10002C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = CZ01001Q,
CLNWSLST = CZ01001C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = CZ01003Q,
CLNWSLST = CZ01003C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = CZ01004Q,
CLNWSLST = CZ01004C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = CZ01005Q,
CLNWSLST = CZ01005C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF.ODV
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = ED05000Q,
CLNWSLST = ED05000C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = EK03000Q,
CLNWSLST = EK03000C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = ER01009Q,
CLNWSLST = ER01009C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//OVERWRTS DD DISP=SHR,DSN=DSN.DBA.OVER
//IN DD *
DB2SYS = DBOF,
CTLOVRID = N,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = ER01010Q,
CLNWSLST = ER01010W,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = Y,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//OVERWRTS DD DISP=SHR,DSN=DSN.DBA.OVER
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = FI04008Q,
CLNWSLST = FI04008C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//OVERWRTS DD DISP=SHR,DSN=DSN.DBA.OVER
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = ID01000Q,
CLNWSLST = ID01000C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//OVERWRTS DD DISP=SHR,DSN=DSN.DBA.OVER
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = MF01008Q,
CLNWSLST = MF01008C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//OVERWRTS DD DISP=SHR,DSN=DSN.DBA.OVER
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = MF01009Q,
CLNWSLST = MF01009C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//OVERWRTS DD DISP=SHR,DSN=DSN.DBA.OVER
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = NI02095Q,
CLNWSLST = NI02095C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//OVERWRTS DD DISP=SHR,DSN=DSN.DBA.OVER
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = NI02097Q,
CLNWSLST = NI02097C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF.OA1P
//OVERWRTS DD DISP=SHR,DSN=DSN.DBA.OVER
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = RE01002Q,
CLNWSLST = RE01002C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF.OA1P
//OVERWRTS DD DISP=SHR,DSN=DSN.DBA.OVER
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = RE01003Q,
CLNWSLST = RE01003C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF.OA1P
//OVERWRTS DD DISP=SHR,DSN=DSN.DBA.OVER
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = RE01004Q,
CLNWSLST = RE01004C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF.SA00
//OVERWRTS DD DISP=SHR,DSN=DSN.DBA.OVER
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = SA02002Q,
CLNWSLST = SA02002C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//OVERWRTS DD DISP=SHR,DSN=DSN.DBA.OVER
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = SN01008Q,
CLNWSLST = SN01008C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//OVERWRTS DD DISP=SHR,DSN=DSN.DBA.OVER
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = SN01009Q,
CLNWSLST = SN01009C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//OVERWRTS DD DISP=SHR,DSN=DSN.DBA.OVER
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = SN01010Q,
CLNWSLST = SN01010C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//OVERWRTS DD DISP=SHR,DSN=DSN.DBA.OVER
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = SN01011Q,
CLNWSLST = SN01011C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//OVERWRTS DD DISP=SHR,DSN=DSN.DBA.OVER
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = SV00001Q,
CLNWSLST = SV00001C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//OVERWRTS DD DISP=SHR,DSN=DSN.DBA.OVER
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = SV01004Q,
CLNWSLST = SV01004C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//OVERWRTS DD DISP=SHR,DSN=DSN.DBA.OVER
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = SV05000Q,
CLNWSLST = SV05000C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//OVERWRTS DD DISP=SHR,DSN=DSN.DBA.OVER
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = TN01032Q,
CLNWSLST = TN01032C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//OVERWRTS DD DISP=SHR,DSN=DSN.DBA.OVER
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = TN01034Q,
CLNWSLST = TN01034C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//OVERWRTS DD DISP=SHR,DSN=DSN.DBA.OVER
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = TR01002Q,
CLNWSLST = TR01002C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//OVERWRTS DD DISP=SHR,DSN=DSN.DBA.OVER
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = TR01003Q,
CLNWSLST = TR01003C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//OVERWRTS DD DISP=SHR,DSN=DSN.DBA.OVER
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = VDPS008Q,
CLNWSLST = VDPS008C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//OVERWRTS DD DISP=SHR,DSN=DSN.DBA.OVER
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = VDPS009Q,
CLNWSLST = VDPS009C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//OVERWRTS DD DISP=SHR,DSN=DSN.DBA.OVER
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = VDPS010Q,
CLNWSLST = VDPS010C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//OVERWRTS DD DISP=SHR,DSN=DSN.DBA.OVER
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = WB12002Q,
CLNWSLST = WB12002C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//OVERWRTS DD DISP=SHR,DSN=DSN.DBA.OVER
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = WF01005Q,
CLNWSLST = WF01005C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//OVERWRTS DD DISP=SHR,DSN=DSN.DBA.OVER
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = WI02003Q,
CLNWSLST = WI02003C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//OVERWRTS DD DISP=SHR,DSN=DSN.DBA.OVER
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = WN02000Q,
CLNWSLST = WN02000C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID,
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100,
// PARM='ISPSTART CMD(%ADB2W1QB )'
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//***********************************************************ADB2WCL***
//ADBWLCL DD DISP=SHR,
// DSN=DSN.DBA.DBOF.WSL
//ADBWL DD DISP=SHR,
// DSN=DSN.DBA.CLON.WSL
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF
//OVERWRTS DD DISP=SHR,DSN=DSN.DBA.OVER
//IN DD *
DB2SYS = DBOF,
CTLOVRID = Y,
CTLCHGGR = N,
CTLPART = N,
SRCWSLST = WQ01017Q,
CLNWSLST = WQ01017C,
SRCWSLIB = 'DSN.DBA.CLON.WSL',
CLNWSLIB = 'DSN.DBA.DBOF.WSL',
GETMASKS = Y,
MSKDSNAM = N,
GETOVWTS = N,
/*
}¢--- A540769.WK.SKELS(ZGLCLONE) cre=2007-05-08 mod=2007-05-08-09.06.03 F540769 ---
//Y4MCDBOF JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID, 00010001
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME00020001
// MSGCLASS=T,TIME=1440 00030001
//*MAIN CLASS=LOG 00040002
//* 00050001
//* 00060001
//* 00070001
//************************************************************ADB2SPFB**00080001
//* DB2 ADMIN ISPF BATCH 00090001
//**********************************************************************00100001
//CLON EXEC PGM=IKJEFT01,DYNAMNBR=100, 00110001
// PARM='ISPSTART CMD(%ADB2W1QB )' 00120001
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC 00130001
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC 00140001
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCCLST 00150001
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBCLST 00160001
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB 00170001
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB 00180001
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB 00190001
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB 00200001
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD 00210001
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB 00220001
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB 00230001
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCLLIB 00240001
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBLLIB 00250001
// DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD 00260001
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCMLIB 00270001
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBMLIB 00280001
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCMLIB 00290001
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBMLIB 00300001
// DD DISP=SHR,DSN=ISP.SISPMENU 00310001
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCPLIB 00320001
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBPLIB 00330001
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCPLIB 00340001
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBPLIB 00350001
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCSLIB 00360001
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBSLIB 00370001
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCSLIB 00380001
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBSLIB 00390001
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE), 00400001
// DCB=(RECFM=FB,LRECL=80,DSORG=PO), 00410001
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 00420001
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBTLIB 00430001
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SADBTLIB 00440001
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P1.SGOCTLIB 00450001
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCTLIB 00460001
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE 00470001
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE), 00480001
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 00490001
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 00500001
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE), 00510001
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 00520001
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K 00530001
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE), 00540001
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00550001
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00560001
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE), 00570001
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00580001
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00590001
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE), 00600001
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00610001
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00620001
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE), 00630001
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 00640001
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 00650001
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE), 00660001
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 00670001
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 00680001
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 00690001
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 00700001
//SYSTSPRT DD SYSOUT=* 00710001
//SYSTSIN DD DUMMY 00720001
//SYSPRINT DD SYSOUT=* 00730001
//**********************************************************************00740001
//* END OF ISPF BATCH STEP SET UP 00750001
//**********************************************************************00760001
//***********************************************************ADB2WCL*** 00770001
//ADBWLCL DD DISP=SHR, 00780001
// DSN=DSN.DBA.DBOF.WSL 00790001
//ADBWL DD DISP=SHR, 00800001
// DSN=DSN.DBA.CLON.WSL 00810001
//MASKS DD DISP=SHR,
// DSN=DSN.DBA.MASK.DBAF.DBOF+++
---//OVERWRTS DD DISP=SHR,DSN=DSN.DBA.OVER
//IN DD * 00850001
DB2SYS = DBOF, 00860001
CTLOVRID = !, 00870002
CTLCHGGR = N, 00880001
CTLPART = N, 00890001
SRCWSLST = ???Q, 00900002
CLNWSLST = ????, 00910002
SRCWSLIB = 'DSN.DBA.CLON.WSL', 00920001
CLNWSLIB = 'DSN.DBA.DBOF.WSL', 00930001
GETMASKS = Y, 00940001
MSKDSNAM = N, 00950001
GETOVWTS = ¢, 00960003
/* 00970001
}¢--- A540769.WK.SKELS(ZGLMAI) cre=2007-04-05 mod=2007-05-08-09.35.33 F540769 ---
*AU02SP 6 ja 2
*fi04sp1 A469436 ja 2
*AVSPEZ1 F575368 10.04.2007 ja
*VDPSPE1 ab17:03 ja
AVIN003C F179780 ja 2 11.05.2007 18:00 ja
AV02003C F179780 ja 2 11.05.2007 18:00 ja
AV02004C F179780 ja 2 11.05.2007 18:00 ja
CD02000C Karas 2
*CW10002C F985779 2 vergessen |||||
CZ01001C A408240 2 12.05.2007 08:00
CZ01003C A408240 2 12.05.2007 08:00
CZ01004C A408240 2
CZ01005C A315595 2 11.05.2007 18:00
ED05000C A351206 2 11.05.2007 21:00 .ODV
EK03000C A618276 ja 2 11.05.2007 23:00
ER01009C F282018 2 11.05.2007 18:00
ER01010W F282018 2 11.05.2007 18:00
FI04008C A469436 ja 2
ID01000C F631527 2 11.05.2007 18:00
MF01008C F558781 2 11.05.2007 18:00
MF01009C F558781 2 11.05.2007 18:00
NI02095C F382675 ja 2 11.05.2007 18:00
NI02097C F382675 ja 2
RE01002C F612204 JA 2 11.05.2007 00:00 .OA1P
RE01003C F612204 JA 2 11.05.2007 00:00 .OA1P
RE01004C F612204 JA 2 11.05.2007 00:00 .OA1P
SA02002C A244058 JA 2 11.05.2007 21:30 .SA00
SN01008C 2
SN01009C F988774 2 11.05.2007 18:00
SN01010C F988774 2 11.05.2007 18:00
SN01011C F988774 2 11.05.2007 18:00
SV00001C A406205 ja 2 11.05.2007 18:00
SV01004C F591223 ja 2 11.05.2007 23:00 ja
SV05000C A406205 ja 2 11.05.2007 18:00 ja
TN01032C A267256 ja 2 11.05.2007 23:00 ja
TN01034C A532022 ja 2 11.05.2007 23:00
TR01002C F100150 2 11.05.2007 18:00
TR01003C F100150 ja 2 11.05.2007 18:00
VDPS008C F281992 ja 2 11.05.2007 ?
VDPS009C A469436 ja 2 11.05.2007 ?
VDPS010C A469436 ja 2 11.05.2007 ?
WB12002C A531022 ja 2 11.05.2007 23:00
WF01005C A377027 2 11.05.2007 00:00
* WI02003C A487481 2 11.05.2007 00:00 --> reni
WN02000C A531022 2 11.05.2007 00:00
WQ01017C A614223 ja 2 11.05.2007 18:00
}¢--- A540769.WK.SKELS(ZGLXMPRD) cre=2007-05-08 mod=2008-11-24-17.32.04 F540769 ---
//XMITPRD JOB (STE23997,0000,,0000),'ADB',NOTIFY=&SYSUID, 00010001
// MSGCLASS=T,TIME=1440 00020000
//*MAIN CLASS=LOG 00030000
//* 00040000
//* FILETRANSFER DER WSL MEMBER UND *.IFF FILES IN PROD 00050003
//* 00060000
//RZ|IFF EXEC PGM=OS2900 00070002
//SYSUT1 DD DISP=SHR,DSN=DSN.DBA.???Q.IFF 00080000
//DDIN DD * 00090000
DEST='RZ|' 00100000
ABEND='NO' 00110000
DSN='DSN.DBA.???Q.IFF' 00120000
DISP='NEW' 00130000
MGMTCLAS='COM#E035' 00140006
DUPLI='SCRATCH' 00150000
//* 00160000
//RZ|MBR EXEC PGM=OS2900 00170005
//SYSUT1 DD DISP=SHR,DSN=DSN.DBA.CLON.WSL 00180000
//DDIN DD * 00190000
DEST='RZ|' 00200000
ABEND='NO' 00210000
DUPLI='ABEND' 00220000
DSN='DSN.DBA.CLON.WSL' 00230000
MBR1='???Q' 00240000
}¢--- A540769.WK.SKELS(ZGLXMPTA) cre=2007-04-05 mod=2008-11-24-17.32.04 F540769 ---
//XMITPTA JOB (STE23997,0000,,0000),'ADB',NOTIFY=&SYSUID, 00010000
// MSGCLASS=T,TIME=1440 00020000
//*MAIN CLASS=LOG 00030000
//* 00040000
//* FILETRANSFER DER WSL MEMBER UND *.IFF FILES IN PTA 00050002
//* 00060000
//RR|IFF EXEC PGM=OS29FT 00070001
//SYSUT1 DD DISP=SHR,DSN=DSN.DBA.???Q.IFF 00080001
//DDIN DD * 00090000
DEST='RZ|' 00100001
ABEND='NO' 00110000
DSN='DSN.DBA.???Q.IFF' 00120001
DISP='NEW' 00130000
MGMTCLAS='COM#E035' 00140003
DUPLI='SCRATCH' 00150000
//* 00160000
//RR|MBR EXEC PGM=OS29FT 00170001
//SYSUT1 DD DISP=SHR,DSN=DSN.DBA.CLON.WSL 00180000
//DDIN DD * 00190000
DEST='RZ|' 00200001
ABEND='NO' 00210000
DUPLI='ABEND' 00220000
DSN='DSN.DBA.CLON.WSL' 00230000
MBR1='???Q' 00240001