//TSGMXZ1S JOB (AD00),'#04D42 ZELDEN', // NOTIFY=&SYSUID, // CLASS=M,MSGCLASS=H,MSGLEVEL=(1,1) //* //******************************************************************** //* THIS JOB WILL ALLOCATE SMP/E DATASETS, DEFINE AND INITIALIZE //* THE CSI'S, AND THEN DEFINE GLOBAL, TARGET, AND DLIB //* ZONES AS SEPERATE VSAM DATA SETS. //******************************************************************** //* GLOBAL CHANGE XXXXXXXX TO BE THE HIGH LEVEL INDEX OF SMP DATASETS //* GLOBAL CHANGE SMPVOL TO BE THE SMP DATASET DASD VOLUME //* GLOBAL CHANGE Z038 TO BE THE SMP SREL YOU WANT IN THE OPTIONS //* GLOBAL CHANGE TARGET1 TO BE THE TARGET ZONE NAME YOU DESIRE //* GLOBAL CHANGE DLIB1 TO BE THE DLIB ZONE NAME YOU DESIRE //* GLOBAL CHANGE OPTMVS TO BE THE OPTIONS NAME YOU DESIRE //* //* NOTE: AFTER CHANGES BE SURE TO CHECK "DSPREFIX" IN GLOBAL //* ZONE OPTIONS - IT CAN ONLY BE MAX OF 26 CHAR. //******************************************************************** //ALLOC EXEC PGM=IEFBR14 //SMPSCDS DD DSN=XXXXXXXX.SMPSCDS, // DISP=(,CATLG,DELETE), // SPACE=(TRK,(10,5,50)),UNIT=SYSALLDA, // VOL=SER=SMPVOL, // DCB=(LRECL=80,BLKSIZE=6080,RECFM=FB) //*SMPLTS DD DSN=XXXXXXXX.SMPLTS, //* DISP=(,CATLG,DELETE), //* SPACE=(TRK,(5,5,10)),UNIT=SYSALLDA, //* VOL=SER=SMPVOL, //* DCB=(BLKSIZE=6233,RECFM=U) //SMPMTS DD DSN=XXXXXXXX.SMPMTS, // DISP=(,CATLG,DELETE), // SPACE=(TRK,(5,5,10)),UNIT=SYSALLDA, // VOL=SER=SMPVOL, // DCB=(LRECL=80,BLKSIZE=6080,RECFM=FB) //SMPSTS DD DSN=XXXXXXXX.SMPSTS, // DISP=(,CATLG,DELETE), // SPACE=(TRK,(5,5,10)),UNIT=SYSALLDA, // VOL=SER=SMPVOL, // DCB=(LRECL=80,BLKSIZE=6080,RECFM=FB) //SMPPTS DD DSN=XXXXXXXX.SMPPTS, // DISP=(,CATLG,DELETE), // SPACE=(TRK,(30,5,50)),UNIT=SYSALLDA, // VOL=SER=SMPVOL, // DCB=(LRECL=80,BLKSIZE=6080,RECFM=FB) //SMPGLOG DD DSN=XXXXXXXX.SMPGLOG, // DISP=(,CATLG,DELETE), // SPACE=(TRK,(5,5)),UNIT=SYSALLDA, // VOL=SER=SMPVOL, // DCB=(BLKSIZE=3200,LRECL=260,RECFM=VB) //SMPGLOGA DD DSN=XXXXXXXX.SMPGLOGA, // DISP=(,CATLG,DELETE), // SPACE=(TRK,(1,5)),UNIT=SYSALLDA, // VOL=SER=SMPVOL, // DCB=(BLKSIZE=3200,LRECL=260,RECFM=VB) //SMPTLOG DD DSN=XXXXXXXX.SMPTLOG, // DISP=(,CATLG,DELETE), // SPACE=(TRK,(30,5)),UNIT=SYSALLDA, // VOL=SER=SMPVOL, // DCB=(BLKSIZE=3200,LRECL=260,RECFM=VB) //SMPTLOGA DD DSN=XXXXXXXX.SMPTLOGA, // DISP=(,CATLG,DELETE), // SPACE=(TRK,(1,5)),UNIT=SYSALLDA, // VOL=SER=SMPVOL, // DCB=(BLKSIZE=3200,LRECL=260,RECFM=VB) //SMPDLOG DD DSN=XXXXXXXX.SMPDLOG, // DISP=(,CATLG,DELETE), // SPACE=(TRK,(30,5)),UNIT=SYSALLDA, // VOL=SER=SMPVOL, // DCB=(BLKSIZE=3200,LRECL=260,RECFM=VB) //SMPDLOGA DD DSN=XXXXXXXX.SMPDLOGA, // DISP=(,CATLG,DELETE), // SPACE=(TRK,(1,5)),UNIT=SYSALLDA, // VOL=SER=SMPVOL, // DCB=(BLKSIZE=3200,LRECL=260,RECFM=VB) //DEFCSI EXEC PGM=IDCAMS,REGION=1024K //SYSPRINT DD SYSOUT=* //SYSIN DD * DEFINE CLUSTER(+ NAME(XXXXXXXX.GLOBAL.CSI) + FREESPACE(10,5) + KEYS(24 0) + RECORDSIZE(24 143) + BUFSP(20480) + SHR(2) + VOLUME(SMPVOL) + ) + DATA( + NAME(XXXXXXXX.GLOBAL.CSI.DATA) + CYLINDERS(1 1) + CISZ(4096) + ) + INDEX( + NAME(XXXXXXXX.GLOBAL.CSI.INDEX) + TRACKS(1 1) + IMBED + ) DEFINE CLUSTER(+ NAME(XXXXXXXX.TARGET1.CSI) + FREESPACE(10,5) + KEYS(24 0) + RECORDSIZE(24 143) + BUFSP(20480) + SHR(2) + VOLUME(SMPVOL) + ) + DATA( + NAME(XXXXXXXX.TARGET1.CSI.DATA) + CYLINDERS(4 1) + CISZ(4096) + ) + INDEX( + NAME(XXXXXXXX.TARGET1.CSI.INDEX) + TRACKS(1 1) + IMBED + ) DEFINE CLUSTER(+ NAME(XXXXXXXX.DLIB1.CSI) + FREESPACE(10,5) + KEYS(24 0) + RECORDSIZE(24 143) + BUFSP(20480) + SHR(2) + VOLUME(SMPVOL) + ) + DATA( + NAME(XXXXXXXX.DLIB1.CSI.DATA) + CYLINDERS(3 1) + CISZ(4096) + ) + INDEX( + NAME(XXXXXXXX.DLIB1.CSI.INDEX) + TRACKS(1 1) + IMBED + ) /* //INITCSI EXEC PGM=IDCAMS,REGION=1024K //ZPOOL DD DISP=SHR, // DSN=SYS1.MACLIB(GIMZPOOL) //SMPCSI DD UNIT=SYSALLDA, // DSN=XXXXXXXX.GLOBAL.CSI,DISP=SHR //TARGET1 DD UNIT=SYSALLDA, // DSN=XXXXXXXX.TARGET1.CSI,DISP=SHR //DLIB1 DD UNIT=SYSALLDA, // DSN=XXXXXXXX.DLIB1.CSI,DISP=SHR //SYSPRINT DD SYSOUT=* //SYSIN DD * REPRO INFILE(ZPOOL) + OUTFILE(SMPCSI) REPRO INFILE(ZPOOL) + OUTFILE(TARGET1) REPRO INFILE(ZPOOL) + OUTFILE(DLIB1) /* //BLDCSI EXEC PGM=GIMSMP,REGION=4096K,PARM='DATE=U' //SMPOUT DD SYSOUT=* //SMPRPT DD SYSOUT=* //SMPLIST DD SYSOUT=* //SMPSNAP DD SYSOUT=* //SMPPUNCH DD DUMMY //SYSPRINT DD SYSOUT=* //*------------------------------------------------------------------- //* SMP DATASETS //*------------------------------------------------------------------- //SMPPTS DD DISP=OLD,DSN=XXXXXXXX.SMPPTS //SMPMTS DD DISP=OLD,DSN=XXXXXXXX.SMPMTS //SMPSTS DD DISP=OLD,DSN=XXXXXXXX.SMPSTS //SMPSCDS DD DISP=OLD,DSN=XXXXXXXX.SMPSCDS //*SMPLOG DD DISP=MOD,DSN=XXXXXXXX.SMPGLOG //SMPLOG DD SYSOUT=* //SMPCSI DD DISP=SHR,DSN=XXXXXXXX.GLOBAL.CSI //TARGET1 DD DISP=SHR,DSN=XXXXXXXX.TARGET1.CSI //DLIB1 DD DISP=SHR,DSN=XXXXXXXX.DLIB1.CSI //SMPWRK1 DD UNIT=SYSALLDA,SPACE=(CYL,(2,1,5)), // DCB=BLKSIZE=3120,DISP=(,DELETE) //SMPWRK2 DD UNIT=SYSALLDA,SPACE=(CYL,(2,1,5)), // DCB=BLKSIZE=3120,DISP=(,DELETE) //SMPWRK3 DD UNIT=SYSALLDA,SPACE=(CYL,(2,1,5)), // DCB=BLKSIZE=3120,DISP=(,DELETE) //SMPWRK4 DD UNIT=SYSALLDA,SPACE=(CYL,(2,1,5)), // DCB=BLKSIZE=3120,DISP=(,DELETE) //*SMPWRK5 DD UNIT=SYSALLDA,SPACE=(CYL,(2,1,5)), //* DCB=BLKSIZE=7294,DISP=(,DELETE) //SMPWRK6 DD UNIT=SYSALLDA,SPACE=(CYL,(2,1,5)), // DCB=BLKSIZE=3120,DISP=(,DELETE) //SYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(2,1)),DISP=(,DELETE) //SYSUT2 DD UNIT=SYSALLDA,SPACE=(CYL,(2,1)),DISP=(,DELETE) //SYSUT3 DD UNIT=SYSALLDA,SPACE=(CYL,(2,1)),DISP=(,DELETE) //SYSUT4 DD UNIT=SYSALLDA,SPACE=(TRK,(2,1)),DISP=(,DELETE) //SMPTLIB DD UNIT=SYSALLDA,VOL=SER=SMPVOL,DISP=OLD //SYSLIB DD DISP=SHR,DCB=(BLKSIZE=19040), // DSN=XXXXXXXX.SMPMTS // DD DISP=SHR,DSN=SYS1.MACLIB //SMPCNTL DD * SET BDY(GLOBAL). UCLIN. ADD GLOBALZONE SREL(Z038) OPTIONS(OPTMVS) ZONEINDEX( (TARGET1,XXXXXXXX.TARGET1.CSI,TARGET), (DLIB1,XXXXXXXX.DLIB1.CSI,DLIB) ). ADD OPTIONS(OPTMVS) DSSPACE(150,60,150) DSPREFIX(XXXXXXXX.RELFILE) RETRYDDN(ALL) LKED(IEWL) NUCID(1) PEMAX(9999). ADD UTILITY(IEWL) NAME(IEWL) PARM(LET,LIST,XREF,NCAL). ADD DDDEF(SMPPTS) SHR DA(XXXXXXXX.SMPPTS) . ADD DDDEF(SMPTLIB) UNIT(SYSALLDA) VOLUME(SMPVOL) . /* ADD DDDEF(SMPLOG) SYSOUT(*) . ADD DDDEF(SMPLOGA) SYSOUT(*) . */ ADD DDDEF(SMPLOG) MOD UNIT(SYSALLDA) VOLUME(SMPVOL) DA(XXXXXXXX.SMPGLOG). ADD DDDEF(SMPLOGA) MOD UNIT(SYSALLDA) VOLUME(SMPVOL) DA(XXXXXXXX.SMPGLOGA). ADD DDDEF(SMPOUT) SYSOUT(*) . ADD DDDEF(SMPLIST) SYSOUT(*) . ADD DDDEF(SMPRPT) SYSOUT(*) . ADD DDDEF(SMPSNAP) SYSOUT(*) . ADD DDDEF(SMPDEBUG) SYSOUT(*) . ADD DDDEF(SMPPUNCH) SYSOUT(B) . ADD DDDEF(SYSPRINT) SYSOUT(*) . ADD DDDEF(SYSUDUMP) SYSOUT(*) . ADD DDDEF(SYSUT1) BLK(3120) SPACE(384,760) UNIT(SYSALLDA). ADD DDDEF(SYSUT2) BLK(3120) SPACE(384,760) UNIT(SYSALLDA). ADD DDDEF(SYSUT3) BLK(3120) SPACE(384,760) UNIT(SYSALLDA). ADD DDDEF(SYSUT4) BLK(3120) SPACE(384,760) UNIT(SYSALLDA). ADD DDDEF(SYSPUNCH) BLK(3120) SPACE(380,380) DIR(64) UNIT(SYSALLDA) . ENDUCL. SET BDY(TARGET1). UCLIN. ADD TARGETZONE(TARGET1) SREL(Z038) OPTIONS(OPTMVS) RELATED(DLIB1). ADD DDDEF(SMPPTS) SHR DA(XXXXXXXX.SMPPTS) . /* ADD DDDEF(SMPLTS) SHR UNIT(SYSALLDA) VOLUME(SMPVOL) DA(XXXXXXXX.SMPLTS) . */ ADD DDDEF(SMPMTS) SHR UNIT(SYSALLDA) VOLUME(SMPVOL) DA(XXXXXXXX.SMPMTS) . ADD DDDEF(SMPSTS) SHR UNIT(SYSALLDA) VOLUME(SMPVOL) DA(XXXXXXXX.SMPSTS) . ADD DDDEF(SMPSCDS) SHR UNIT(SYSALLDA) VOLUME(SMPVOL) DA(XXXXXXXX.SMPSCDS) . ADD DDDEF(SMPTLIB) UNIT(SYSALLDA) VOLUME(SMPVOL) . ADD DDDEF(SYSLIB) CONCAT( SMPMTS ) . /* ADD DDDEF(SMPLOG) SYSOUT(*) . ADD DDDEF(SMPLOGA) SYSOUT(*) . */ ADD DDDEF(SMPLOG) MOD UNIT(SYSALLDA) VOLUME(SMPVOL) DA(XXXXXXXX.SMPTLOG). ADD DDDEF(SMPLOGA) MOD UNIT(SYSALLDA) VOLUME(SMPVOL) DA(XXXXXXXX.SMPTLOGA). ADD DDDEF(SMPOUT) SYSOUT(*) . ADD DDDEF(SMPLIST) SYSOUT(*) . ADD DDDEF(SMPRPT) SYSOUT(*) . ADD DDDEF(SMPSNAP) SYSOUT(*) . ADD DDDEF(SMPDEBUG) SYSOUT(*) . ADD DDDEF(SMPPUNCH) SYSOUT(B) . ADD DDDEF(SYSPRINT) SYSOUT(*) . ADD DDDEF(SYSUDUMP) SYSOUT(*) . ADD DDDEF(SMPWRK1) BLK(3120) SPACE(384,380) DIR(111) NEW DELETE UNIT(SYSALLDA). ADD DDDEF(SMPWRK2) BLK(3120) SPACE(384,380) DIR(111) NEW DELETE UNIT(SYSALLDA). ADD DDDEF(SMPWRK3) BLK(3120) SPACE(384,380) DIR(111) NEW DELETE UNIT(SYSALLDA). ADD DDDEF(SMPWRK4) BLK(3120) SPACE(384,380) DIR(111) NEW DELETE UNIT(SYSALLDA). /*ADD DDDEF(SMPWRK5) BLK(7294) SPACE(384,380) DIR(111) NEW DELETE UNIT(SYSALLDA). */ ADD DDDEF(SMPWRK6) BLK(3120) SPACE(384,380) DIR(111) NEW DELETE UNIT(SYSALLDA). ADD DDDEF(SYSUT1) BLK(3120) SPACE(384,760) UNIT(SYSALLDA). ADD DDDEF(SYSUT2) BLK(3120) SPACE(384,760) UNIT(SYSALLDA). ADD DDDEF(SYSUT3) BLK(3120) SPACE(384,760) UNIT(SYSALLDA). ADD DDDEF(SYSUT4) BLK(3120) SPACE(384,760) UNIT(SYSALLDA). ADD DDDEF(SYSPUNCH) BLK(3120) SPACE(380,380) DIR(64) UNIT(SYSALLDA) . ENDUCL. SET BDY(DLIB1). UCLIN. ADD DLIBZONE(DLIB1) ACCJCLIN SREL(Z038) OPTIONS(OPTMVS) RELATED(TARGET1). ADD DDDEF(SMPPTS) SHR DA(XXXXXXXX.SMPPTS) . /* ADD DDDEF(SMPLTS) SHR UNIT(SYSALLDA) VOLUME(SMPVOL) DA(XXXXXXXX.SMPLTS) . */ ADD DDDEF(SMPMTS) SHR UNIT(SYSALLDA) VOLUME(SMPVOL) DA(XXXXXXXX.SMPMTS) . ADD DDDEF(SMPSTS) SHR UNIT(SYSALLDA) VOLUME(SMPVOL) DA(XXXXXXXX.SMPSTS) . ADD DDDEF(SMPSCDS) SHR UNIT(SYSALLDA) VOLUME(SMPVOL) DA(XXXXXXXX.SMPSCDS) . ADD DDDEF(SMPTLIB) UNIT(SYSALLDA) VOLUME(SMPVOL) . ADD DDDEF(SYSLIB) CONCAT( SMPMTS ) . /* ADD DDDEF(SMPLOG) SYSOUT(*) . ADD DDDEF(SMPLOGA) SYSOUT(*) . */ ADD DDDEF(SMPLOG) MOD UNIT(SYSALLDA) VOLUME(SMPVOL) DA(XXXXXXXX.SMPDLOG). ADD DDDEF(SMPLOGA) MOD UNIT(SYSALLDA) VOLUME(SMPVOL) DA(XXXXXXXX.SMPDLOGA). ADD DDDEF(SMPOUT) SYSOUT(*) . ADD DDDEF(SMPLIST) SYSOUT(*) . ADD DDDEF(SMPRPT) SYSOUT(*) . ADD DDDEF(SMPSNAP) SYSOUT(*) . ADD DDDEF(SMPDEBUG) SYSOUT(*) . ADD DDDEF(SMPPUNCH) SYSOUT(B) . ADD DDDEF(SYSPRINT) SYSOUT(*) . ADD DDDEF(SYSUDUMP) SYSOUT(*) . ADD DDDEF(SMPWRK1) BLK(3120) SPACE(384,380) DIR(111) NEW DELETE UNIT(SYSALLDA). ADD DDDEF(SMPWRK2) BLK(3120) SPACE(384,380) DIR(111) NEW DELETE UNIT(SYSALLDA). ADD DDDEF(SMPWRK3) BLK(3120) SPACE(384,380) DIR(111) NEW DELETE UNIT(SYSALLDA). ADD DDDEF(SMPWRK4) BLK(3120) SPACE(384,380) DIR(111) NEW DELETE UNIT(SYSALLDA). /*ADD DDDEF(SMPWRK5) BLK(7294) SPACE(384,380) DIR(111) NEW DELETE UNIT(SYSALLDA). */ ADD DDDEF(SMPWRK6) BLK(3120) SPACE(384,380) DIR(111) NEW DELETE UNIT(SYSALLDA). ADD DDDEF(SYSUT1) BLK(3120) SPACE(384,760) UNIT(SYSALLDA). ADD DDDEF(SYSUT2) BLK(3120) SPACE(384,760) UNIT(SYSALLDA). ADD DDDEF(SYSUT3) BLK(3120) SPACE(384,760) UNIT(SYSALLDA). ADD DDDEF(SYSUT4) BLK(3120) SPACE(384,760) UNIT(SYSALLDA). ADD DDDEF(SYSPUNCH) BLK(3120) SPACE(380,380) DIR(64) UNIT(SYSALLDA) . ENDUCL. SET BDY(GLOBAL). LIST ALLZONES. /*