Description:
CA Endevor Software Change Manager r12 SP3 is CA MF2.0 Mainframe Software Manager (MSM) compatible; however, before the SMP/E CSI can be migrated into MSM, the CSI requires additional SMP/E DDDEFs and some data set allocations so that maintenance can be installed using MSM. JCL to allocate data sets and perform SMP/E UCLIN is provided in this document, but must be edited before execution.
Solution:
//*(JOBCARD) //*-------------------------------------------------------------------* //* THIS JCL WILL UPDATE THE GLOBAL ZONE DDDEFS WITH SMP/E DATASETS * //* SO THAT THE CSI CAN BE MANAGED BY MSM. * //* * //* THE FOLLOWING CHANGES MUST OCCUR BEFORE EXECUTING THIS JCL. * //* * //* 1. CHANGE 'IPRFX' TO YOUR HLQ * //* 2. CHANGE 'IQUAL' TO YOUR SLQ * //* 2. CHANGE 'SITEUNIT' TO YOUR UNIT DESIGNATION * //*-------------------------------------------------------------------* //* DELETE PREVIOUSLY ALLOCATED FILES * //*-------------------------------------------------------------------* //DELETES EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * DEL 'IPRFX.IQUAL.SMPLTS' PURGE DEL 'IPRFX.IQUAL.SMPHOLD' PURGE /* //*-------------------------------------------------------------------* //* PERFORM THE WORK * //*-------------------------------------------------------------------* //LIBALOC PROC APSHLQ='IPRFX.IQUAL', // APCSI='IPRFX.IQUAL.CSI', // APUNIT=SITEUNIT, // SYSOUT='*' //ALLOC EXEC PGM=IEFBR14 //SYSPRINT DD SYSOUT=&SYSOUT //* //* SMP FILES //* //SMPLTS DD DSN=&APSHLQ..SMPLTS, // UNIT=&APUNIT,VOL=SER=, // SPACE=(TRK,(10,10,10)), // DCB=(DSORG=PO,RECFM=U,BLKSIZE=6144), // DISP=(NEW,CATLG,DELETE) //SMPHOLD DD DSN=&APSHLQ..SMPHOLD, // DISP=(NEW,CATLG,DELETE), // UNIT=&APUNIT,VOL=SER=, // SPACE=(TRK,(2,1)), // DCB=(RECFM=FB,LRECL=80,BLKSIZE=0) //* //* //* SMP/E JCL //* //SMPZONE EXEC PGM=GIMSMP,REGION=4096K,PARM='DATE=U' //SMPCSI DD DISP=SHR,DSN=&APCSI //SMPPTS DD DISP=SHR,DSN=&APSHLQ..SMPPTS //SMPLOG DD DUMMY //SMPHOLD DD DUMMY //SMPOUT DD SYSOUT=&SYSOUT //SMPPUNCH DD SYSOUT=&SYSOUT //SMPRPT DD SYSOUT=&SYSOUT //SMPLIST DD SYSOUT=&SYSOUT //SMPSNAP DD SYSOUT=&SYSOUT //SYSPRINT DD SYSOUT=&SYSOUT //SYSUDUMP DD SYSOUT=&SYSOUT //SMPWRK1 DD UNIT=SYSDA,SPACE=(CYL,(5,15,15)),DCB=BLKSIZE=3120 //SMPWRK2 DD UNIT=SYSDA,SPACE=(CYL,(5,15,15)),DCB=BLKSIZE=3120 //SMPWRK3 DD UNIT=SYSDA,SPACE=(CYL,(5,15,15)),DCB=BLKSIZE=3120 //SMPWRK4 DD UNIT=SYSDA,SPACE=(CYL,(5,15,15)),DCB=BLKSIZE=3120 //SMPWRK6 DD UNIT=SYSDA,SPACE=(CYL,(5,15,15)),DCB=BLKSIZE=3120 //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(5,1)) //SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(5,1)) //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(5,1)) //SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(5,1)) //* // PEND //* //* EXECUTE LIBALOC PROC //* //STEP2 EXEC LIBALOC //* //SMPZONE.SMPCNTL DD * SET BDY(GLOBAL). UCLIN. ADD DDDEF (SMPTLOAD)
UNIT(SYSDA)
CYL SPACE(5,5)
DIR(5)
NEW
DELETE DSNTYPE(PDS)
. ADD DDDEF (SMPHOLD) DATASET (IPRFX.IQUAL.SMPHOLD) SHR. ADD DDDEF (SMPLTS) DATASET (IPRFX.IQUAL.SMPLTS) SHR. ADD DDDEF (SMPLOG) DATASET (IPRFX.IQUAL.SMPLOG) SHR. ADD DDDEF (SMPLOGA) DATASET (IPRFX.IQUAL.SMPLOGA) SHR. ADD DDDEF(SMPLIST) SYSOUT(*). ADD DDDEF(SMPOUT) SYSOUT(*). ADD DDDEF(SMPRPT) SYSOUT(*). ADD DDDEF(SMPSNAP) SYSOUT(*). ADD DDDEF(SYSPRINT) SYSOUT(*). ADD DDDEF(SMPTLIB) UNIT(SYSDA) TRACKS SPACE(250,380) DIR(600) . ADD DDDEF(SYSUT1) UNIT(SYSDA) CYL SPACE(5,1) NEW DELETE. ADD DDDEF(SYSUT2) UNIT(SYSDA) CYL SPACE(5,1) NEW DELETE. ADD DDDEF(SYSUT3) UNIT(SYSDA) CYL SPACE(5,1) NEW DELETE. ADD DDDEF(SYSUT4) UNIT(SYSDA) CYL SPACE(5,1) NEW DELETE. ADD DDDEF(SMPWRK1) UNIT(SYSDA) CYL SPACE(5,1) DIR(200) NEW DELETE. ADD DDDEF(SMPWRK2) UNIT(SYSDA) CYL SPACE(5,1) DIR(200) NEW DELETE. ADD DDDEF(SMPWRK3) UNIT(SYSDA) CYL SPACE(5,1) DIR(200) NEW DELETE. ADD DDDEF(SMPWRK4) UNIT(SYSDA) CYL SPACE(5,1) DIR(200) NEW DELETE. ADD DDDEF(SMPWRK5) UNIT(SYSDA) CYL SPACE(5,1) DIR(200) NEW DELETE. ADD DDDEF(SMPWRK6) UNIT(SYSDA) CYL SPACE(5,1) DIR(200) NEW DELETE. ENDUCL. SET BDY(NDVRTGT). UCLIN. ADD DDDEF (SMPTLOAD)
UNIT(SYSDA)
CYL SPACE(5,5)
DIR(5)
NEW
DELETE DSNTYPE(PDS)
. ADD DDDEF (SMPHOLD) DATASET (IPRFX.IQUAL.SMPHOLD) SHR. ADD DDDEF (SMPLTS) DATASET (IPRFX.IQUAL.SMPLTS) SHR. ADD DDDEF (SMPLOG) DATASET (IPRFX.IQUAL.SMPLOG) SHR. ADD DDDEF (SMPLOGA) DATASET (IPRFX.IQUAL.SMPLOGA) SHR. ADD DDDEF(SMPLIST) SYSOUT(*). ADD DDDEF(SMPOUT) SYSOUT(*). ADD DDDEF(SMPRPT) SYSOUT(*). ADD DDDEF(SMPSNAP) SYSOUT(*). ADD DDDEF(SYSPRINT) SYSOUT(*). ADD DDDEF(SMPTLIB) UNIT(SYSDA) TRACKS SPACE(250,380) DIR(600) . ADD DDDEF(SYSUT1) UNIT(SYSDA) CYL SPACE(5,1) NEW DELETE. ADD DDDEF(SYSUT2) UNIT(SYSDA) CYL SPACE(5,1) NEW DELETE. ADD DDDEF(SYSUT3) UNIT(SYSDA) CYL SPACE(5,1) NEW DELETE. ADD DDDEF(SYSUT4) UNIT(SYSDA) CYL SPACE(5,1) NEW DELETE. ADD DDDEF(SMPWRK1) UNIT(SYSDA) CYL SPACE(5,1) DIR(200) NEW DELETE. ADD DDDEF(SMPWRK2) UNIT(SYSDA) CYL SPACE(5,1) DIR(200) NEW DELETE. ADD DDDEF(SMPWRK3) UNIT(SYSDA) CYL SPACE(5,1) DIR(200) NEW DELETE. ADD DDDEF(SMPWRK4) UNIT(SYSDA) CYL SPACE(5,1) DIR(200) NEW DELETE. ADD DDDEF(SMPWRK5) UNIT(SYSDA) CYL SPACE(5,1) DIR(200) NEW DELETE. ADD DDDEF(SMPWRK6) UNIT(SYSDA) CYL SPACE(5,1) DIR(200) NEW DELETE. ENDUCL. SET BDY(NDVRDLB). UCLIN. ADD DDDEF (SMPTLOAD) UNIT(SYSDA) CYL SPACE(5,5) DIR(5) NEW DELETE DSNTYPE(PDS) . ADD DDDEF (SMPHOLD) DATASET (IPRFX.IQUAL.SMPHOLD) SHR. ADD DDDEF (SMPLTS) DATASET (IPRFX.IQUAL.SMPLTS) SHR. ADD DDDEF (SMPLOG) DATASET (IPRFX.IQUAL.SMPLOG) SHR. ADD DDDEF (SMPLOGA) DATASET (IPRFX.IQUAL.SMPLOGA) SHR. ADD DDDEF(SMPLIST) SYSOUT(*). ADD DDDEF(SMPOUT) SYSOUT(*). ADD DDDEF(SMPRPT) SYSOUT(*). ADD DDDEF(SMPSNAP) SYSOUT(*). ADD DDDEF(SYSPRINT) SYSOUT(*). ADD DDDEF(SMPTLIB) UNIT(SYSDA) TRACKS SPACE(250,380) DIR(600) . ADD DDDEF(SYSUT1) UNIT(SYSDA) CYL SPACE(5,1) NEW DELETE. ADD DDDEF(SYSUT2) UNIT(SYSDA) CYL SPACE(5,1) NEW DELETE. ADD DDDEF(SYSUT3) UNIT(SYSDA) CYL SPACE(5,1) NEW DELETE. ADD DDDEF(SYSUT4) UNIT(SYSDA) CYL SPACE(5,1) NEW DELETE. ADD DDDEF(SMPWRK1) UNIT(SYSDA) CYL SPACE(5,1) DIR(200) NEW DELETE. ADD DDDEF(SMPWRK2) UNIT(SYSDA) CYL SPACE(5,1) DIR(200) NEW DELETE. ADD DDDEF(SMPWRK3) UNIT(SYSDA) CYL SPACE(5,1) DIR(200) NEW DELETE. ADD DDDEF(SMPWRK4) UNIT(SYSDA) CYL SPACE(5,1) DIR(200) NEW DELETE. ADD DDDEF(SMPWRK5) UNIT(SYSDA) CYL SPACE(5,1) DIR(200) NEW DELETE. ADD DDDEF(SMPWRK6) UNIT(SYSDA) CYL SPACE(5,1) DIR(200) NEW DELETE. ENDUCL.