zOs/JCL/DBXIMP2
//YLERZ012 JOB (CP00,KE50),
// 'DB2',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//* Funktion import RZ1 Auftrag LERZ012C
//*********************************************************************
//* db2 Subsys DBAF
//* change LERZ012C.1.003.IMP
//* remark zs 29991114 auf LERZ012C 1 import DBX
//* deltaVers LERZ012C.1.003.DLT
//IMPDBAF EXEC PGM=IKJEFT01,
// REGION=0M,
// DYNAMNBR=100
//SYSEXEC 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.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBCLST
//ISPLLIB 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
// DD DISP=SHR,DSN=ISP.SISPLOAD ISPF BASE
//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
// DD DISP=SHR,DSN=DB2@.RZ1.P0.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.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.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBPLIB
//ISPSLIB 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.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 *
ISPSTART CMD( +
%ADBRPGM ADB ADB2CID DB2SYS(DBAF) +
PGMPARMS('PMODE=''''B'''',+
EMODE=''''B'''',+
PHASE=''''1'''',+
PCTABLE=''''ADBCIDT2'''',+
CTYPE=''''T'''',+
PCACT=''''SUPERSEDE''''')+
)
/*
//SYSPRINT DD SYSOUT=*
//ADBDIAG DD SYSOUT=*
//DCHG001 DD DISP=SHR,DSN=DSN.DBX.CDL(LERZ0121)
//PRMDDN2 DD DISP=(NEW,DELETE),UNIT=SYSDA,SPACE=(CYL,(1,1)),
// DCB=(RECFM=FB,LRECL=80)
//MSKDDN2 DD DISP=SHR,DSN=DSN.DBA.MASK.PROT.DBAF.PETRA
//SYSIN DD *
INDDN='DCHG',
OUTDDN='PRMDDN2',
IGNOWN='DUMMY',
IGNNAME='DUMMY',
CHGOWN='S100447',
CHGNAME='LERZ012C.1.004.IMP-wk',
CHGREM='zs 29991114 auf LERZ012C 1 import DBX',
VEROWN='S100447',
VERNAME='LERZ012C.1.004.DLT-wk';