Migration requirements - CA Endevor Software Change Manager r12 SP3 into Mainframe Software Manager (MSM).

Document ID : KB000053613
Last Modified Date : 14/02/2018
Show Technical Document Details

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.