CEVM installation process for applying PTFs RO93955, RO95234, and SO05848
Article ID: 125388
Updated On:
Products
Compliance Event Manager
Issue/Introduction
Applying maintenance PTFs RO93955, RO95234, and SO05848 requires time and effort to review HOLDDATA and run multiple JCLs to ensure the PTFs apply properly.
Environment
CEVM 6.0
Cause
HOLDDATA restrictions
Resolution
Use the following JCL to simplify the HOLDDATA instructions for application of PTFsRO93955, RO95234, and SO05848. This will accomplish:
//HOLDDTA JOB (<JOBACCT>), SITE ACCOUNTING INFORMATION
// 'HOLDDATA JOB', DESCRIPTION OF JOB
// CLASS=<JOBCLASS>, SITE EXECUTION CLASS
// MSGCLASS=<MSGCLASS>, SITE MESSAGE CLASS
// MSGLEVEL=(1,1), PRINT ALL MESSAGES
// NOTIFY=&SYSUID NOTIFY THE JOB SUBMITTER
//*
//*************************************************************
//* *
//* CA COMPLIANCE EVENT MANAGER *
//* *
//* COPYRIGHT (C) 2019 CA. ALL RIGHTS RESERVED. *
//* *
//*-----------------------------------------------------------*
//* *
//* JOB NAME: CEMHLDTA *
//* *
//* PURPOSE: PERFORM ALL NECESSARY TASKS FOR PUBLISHED *
//* PTFS THROUGH JANUARY 24TH 2019 *
//* TO SATISFY ANY JCL IN HOLDDATA. *
//* *
//* EXPECTED RC: 0 *
//* *
//*-----------------------------------------------------------*
//* *
//* INSTRUCTIONS: *
//* *
//* 1. MODIFY THE JOBCARD. *
//* *
//* 2. EDIT THE FOLLOWING VALUES: *
//* *
//* - <INSHLQ> - THE <INSHLQ> VALUE THAT WAS SPECIFIED IN *
//* THE UNZIPJCL JOB. *
//* *
//* C ALL <INSHLQ> INSHLQ *
//* *
//* - <INSMLQ> - THE <INSMLQ> VALUE THAT WAS SPECIFIED IN *
//* THE UNZIPJCL JOB. *
//* *
//* C ALL <INSMLQ> INSMLQ *
//* *
//* - <VOLSMS> - The volume or SMS information to use when *
//* allocating new libraries. *
//* *
//* Valid formats for VOLSMS are: *
//* - 'VOL=SER=vol001' - if SMS is not used *
//* - 'DATACLAS=class001' - if SMS is used *
//* *
//* Modify and issue the following CHANGE command: *
//* *
//* C ALL <VOLSMS> VOL=SER=vol001 *
//* *
//* - <CEMPAXPATH> - THE <CEMPAXPATH> VALUE THAT WAS *
//* SPECIFIED IN THE UNZIPJCL JOB. *
//* *
//* Modify and issue the following FIND and CHANGE *
//* commands: *
//* *
//* F ALL <CEMPAXPATH> *
//* C * CEMPAXPATH ALL *
//* *
//* - TO USE THE DEFAULT SMS CLASS FOR INTERIM FILES LEAVE *
//* VOLUME="*" AS IS. *
//* *
//* TO USE A SPECIFIC VOLSER, CHANGE VOLUME="*" TO *
//* VOLUME="PACKNAME". THE FILES BEING DOWNLOADED ARE AN *
//* ENTIRE SMP/E ENVIRONMENT, WE RECOMMEND THAT YOU *
//* SPECIFY A VOLUME FOR PERMANENT RETENTION OF THE *
//* SMP/E ENVIRONMENT. *
//* *
//* MODIFY AND ISSUE THE FOLLOWING CHANGE COMMAND: *
//* *
//* C ALL 'VOLUME="*"' 'VOLUME="PACKNAME"' *
//* *
//* - <UNIT> - UNIT USED FOR DATA SETS ALLOCATED IN *
//* THIS JOB. *
//* *
//* - UNCOMMENT THE SMPJHOME AND THE SMPCPATH DD STATEMENTS*
//* ONLY IF YOUR SITE DOES NOT HAVE ICSF SERVICES *
//* INSTALLED. THE PATH NAMES ON THESE JAVA DD FILES *
//* MUST BE SET TO YOUR SITES JAVA INSTALLATION NAMES. *
//* *
//* GIMUNZIP OPTIONALLY REQUIRES EITHER INTEGRATED *
//* CRYPTOGRAPHIC SERVICES FACILITY (ICSF) ONE-WAY HASH *
//* GENERATE CALLABLE SERVICE OR JAVA TO COMPUTE A SHA-1 *
//* HASH VALUE. *
//* *
//* WE SUGGEST THAT YOU EXECUTE THIS JCL WITH THESE DD *
//* NAMES COMMENTED OUT AND SEE IF IT EXECUTES *
//* SUCCESSFULLY BEFORE TRYING TO SET THESE DD NAMES. *
//* *
//* IF YOUR ENVIRONMENT REQUIRES THESE DD STATEMENTS, *
//* UNCOMMENT THE DD STATEMENTS AND ISSUE THE FOLLOWING *
//* COMMANDS TO SPECIFY THE APPROPRIATE VALUES: *
//* *
//* MODIFY AND ISSUE THE FOLLOWING FIND AND CHANGE *
//* COMMANDS: *
//* *
//* F ALL <JAVAHOME> *
//* C * JAVAHOME ALL *
//* *
//* F ALL <CLASSPATH> *
//* C * CLASSPATH ALL *
//* *
//* HASH=NO CAN BE SPECIFIED IN THE PARM FIELD WHICH WILL*
//* REMOVE THE NEED FOR A SMPCPATH DD STATEMENT. *
//* IF HASH=NO IS SET THEN THERE WILL BE NO ADDITIONAL *
//* HASH VALUE CHECKING. WE ADVISE THAT YOU DO USE THE *
//* HASH=YES PARAMETER FOR AN ADDITIONAL VALIDATION CHECK*
//* *
//* - THE JCL WILL FAIL WITH A RC=12 IF YOU UPPERCASE ANY *
//* OF THE GIMUNZIP COMMANDS. *
//* *
//* 3. REVIEW AND MODIFY THE DDDEF VALUES IN STEP UPDDDDEF *
//* IF NECESSARY. *
//* *
//*************************************************************
//* UNZIP <INSHLQ>.<INSMLQ>.ACEMSAMP
//*************************************************************
//UNZIPSMP EXEC PGM=GIMUNZIP,REGION=0M,PARM='HASH=YES'
//*
//SMPDIR DD PATH='<CEMPAXPATH>/CEM60U0',
// PATHDISP=KEEP
//*
//*SMPJHOME DD PATH='<JAVAHOME>'
//*SMPCPATH DD PATH='<CLASSPATH>',PATHDISP=KEEP
//*
//SMPOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD UNIT=SYSALLDA,SPACE=(CYL,(200,20))
//SYSUT3 DD UNIT=SYSALLDA,SPACE=(CYL,(50,10))
//SYSUT4 DD UNIT=SYSALLDA,SPACE=(CYL,(25,5))
//SYSIN DD *
<GIMUNZIP>
<ARCHDEF archid="ACEMSAMP"
newname="<INSHLQ>.<INSMLQ>.ACEMSAMP"
volume="*"
> </ARCHDEF>
</GIMUNZIP>
//*
//*************************************************************
//* THE FOLLOWING 5 STEPS WILL REALLOCATE THE ACEMSENU AND
//* CCEMSENU DATA SETS TO INCREASE THE DIRECTORY BLOCKS.
//*
//* RNAMSENU - RENAME EXISTING DATA SETS
//* ALLOCACE - ALLOCATE NEW ACEMSENU DATA SET
//* ALLOCCCE - ALLOCATE NEW CCEMSENU DATA SET
//* COPYACEM - COPY ACEMSENU MEMBERS TO NEW DATA SET
//* COPYCCEM - COPY CCEMSENU MEMBERS TO NEW DATA SET
//*
//*************************************************************
//*************************************************************
//* RENAME ACEMSENU AND CCEMSENU
//*************************************************************
//RNAMSENU EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
ALTER <INSHLQ>.<INSMLQ>.ACEMSENU -
NEWNAME(<INSHLQ>.<INSMLQ>.ACEMSENU.OLD)
ALTER <INSHLQ>.<INSMLQ>.CCEMSENU -
NEWNAME(<INSHLQ>.<INSMLQ>.CCEMSENU.OLD)
//*
//*************************************************************
//* ALLOCATE NEW ACEMSENU WITH INCREASED DIRECTORY BLOCKS
//*************************************************************
//ALLOCACE EXEC PGM=IEFBR14
//CEMASTAT DD DSN=<INSHLQ>.<INSMLQ>.ACEMSENU,
// DISP=(NEW,CATLG),
// UNIT=<UNIT>,
// <VOLSMS>,
// SPACE=(TRK,(100,100,100)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920,DSORG=PO)
//*
//*************************************************************
//* ALLOCATE NEW CCEMSENU WITH INCREASED DIRECTORY BLOCKS
//*************************************************************
//ALLOCCCE EXEC PGM=IEFBR14
//CEMASTAT DD DSN=<INSHLQ>.<INSMLQ>.CCEMSENU,
// DISP=(NEW,CATLG),
// UNIT=<UNIT>,
// <VOLSMS>,
// SPACE=(TRK,(100,100,100)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920,DSORG=PO)
//*
//*************************************************************
//* COPY ACEMSENU MEMBERS FROM OLD TO NEW DATA SET
//*************************************************************
//COPYACEM EXEC PGM=IEBCOPY,REGION=1M
//SYSPRINT DD SYSOUT=*
//*
//INDD1 DD DISP=SHR,DSN=<INSHLQ>.<INSMLQ>.ACEMSENU.OLD
//*
//OUTDD1 DD DISP=SHR,
// DSN=<INSHLQ>.<INSMLQ>.ACEMSENU
//SYSUT3 DD UNIT=SYSDA,SPACE=(TRK,(1,1))
//SYSUT4 DD UNIT=SYSDA,SPACE=(TRK,(1,1))
//*
//SYSIN DD *
COPY INDD=INDD1,OUTDD=OUTDD1
//*
//*************************************************************
//* COPY CCEMSENU MEMBERS FROM OLD TO NEW DATA SET
//*************************************************************
//COPYCCEM EXEC PGM=IEBCOPY,REGION=1M
//SYSPRINT DD SYSOUT=*
//*
//INDD1 DD DISP=SHR,DSN=<INSHLQ>.<INSMLQ>.CCEMSENU.OLD
//*
//OUTDD1 DD DISP=SHR,
// DSN=<INSHLQ>.<INSMLQ>.CCEMSENU
//SYSUT3 DD UNIT=SYSDA,SPACE=(TRK,(1,1))
//SYSUT4 DD UNIT=SYSDA,SPACE=(TRK,(1,1))
//*
//SYSIN DD *
COPY INDD=INDD1,OUTDD=OUTDD1
//*
//*************************************************************
//* REQUIRED: UPDATE CAAXMAC AND AAAXMAC DDDEFS TO PROPER
//* <INSHLQ>.<INSMLQ> DESIGNATION.
//*
//* OPTIONAL: UPDATE DDDEFS FOR SYS1, CEE, AND TCPIP DATA SETS
//* IF NECESSARY.
//*
//*************************************************************
//*
//UPDDDDEF EXEC PGM=GIMSMP,COND=(0,NE),REGION=0M,
// PARM='CSI=<INSHLQ>.<INSMLQ>.CSI,PROCESS=END'
//*
//SMPLOG DD SYSOUT=*
//SMPPTS DD DSN=<INSHLQ>.<INSMLQ>.SMPPTS,DISP=SHR
//*
//SMPCNTL DD *
SET BDY(CAID01).
UCLIN .
/*****************************************************/
/* DISTRIBUTION ZONE DDDEF FOR CEM */
/*****************************************************/
REP DDDEF(MACLIB)
DA(SYS1.MACLIB) .
ADD DDDEF(CSSLIB)
DA(SYS1.CSSLIB) SHR .
ENDUCL .
SET BDY(CAID02).
UCLIN .
/*****************************************************/
/* DISTRIBUTION ZONE DDDEF FOR DATACOM */
/*****************************************************/
REP DDDEF(AAVQSRC)
DA(<INSHLQ>.<INSMLQ>.AAAXMAC) .
REP DDDEF(CAVQSRC)
DA(<INSHLQ>.<INSMLQ>.CAAXMAC) .
REP DDDEF(CSSLIB)
DA(SYS1.CSSLIB) .
REP DDDEF(SCEELKED)
DA(CEE.SCEELKED) .
REP DDDEF(SCEESPC)
DA(CEE.SCEESPC) .
REP DDDEF(SYS1MAC)
DA(SYS1.MACLIB) .
REP DDDEF(TCPIP)
DA(TCPIP.SEZATCP) .
ENDUCL .
SET BDY(CAIT01).
UCLIN .
/*****************************************************/
/* TARGET ZONE DDDEF FOR CEM */
/*****************************************************/
REP DDDEF(MACLIB)
DA(SYS1.MACLIB) .
REP DDDEF(SCEELKED)
DA(CEE.SCEELKED) .
ADD DDDEF(CSSLIB)
DA(SYS1.CSSLIB) SHR .
ENDUCL .
SET BDY(CAIT02).
UCLIN .
/*****************************************************/
/* TARGET ZONE DDDEF FOR DATACOM */
/*****************************************************/
REP DDDEF(AAVQSRC)
DA(<INSHLQ>.<INSMLQ>.AAAXMAC) .
REP DDDEF(CAVQSRC)
DA(<INSHLQ>.<INSMLQ>.CAAXMAC) .
REP DDDEF(CSSLIB)
DA(SYS1.CSSLIB) .
REP DDDEF(SCEELKED)
DA(CEE.SCEELKED) .
REP DDDEF(SCEESPC)
DA(CEE.SCEESPC) .
REP DDDEF(SYS1MAC)
DA(SYS1.MACLIB) .
REP DDDEF(TCPIP)
DA(TCPIP.SEZATCP) .
ENDUCL .
/*
- RO93955 requires an unzip of the ACEMSAMP library if you are using the unified installation method.
- RO95234 requires an increase to the number of directory blocks for the following product data sets: CEMHLQ.CEMMLQ.CCEMSENU and CEMHLQ.CEMMLQ.ACEMSENU.
Also, several DDDEFs must be added to the CSI. - SO05848 requires updates to the CSI so that it contains a DDDEF for the CSSLIB.
//HOLDDTA JOB (<JOBACCT>), SITE ACCOUNTING INFORMATION
// 'HOLDDATA JOB', DESCRIPTION OF JOB
// CLASS=<JOBCLASS>, SITE EXECUTION CLASS
// MSGCLASS=<MSGCLASS>, SITE MESSAGE CLASS
// MSGLEVEL=(1,1), PRINT ALL MESSAGES
// NOTIFY=&SYSUID NOTIFY THE JOB SUBMITTER
//*
//*************************************************************
//* *
//* CA COMPLIANCE EVENT MANAGER *
//* *
//* COPYRIGHT (C) 2019 CA. ALL RIGHTS RESERVED. *
//* *
//*-----------------------------------------------------------*
//* *
//* JOB NAME: CEMHLDTA *
//* *
//* PURPOSE: PERFORM ALL NECESSARY TASKS FOR PUBLISHED *
//* PTFS THROUGH JANUARY 24TH 2019 *
//* TO SATISFY ANY JCL IN HOLDDATA. *
//* *
//* EXPECTED RC: 0 *
//* *
//*-----------------------------------------------------------*
//* *
//* INSTRUCTIONS: *
//* *
//* 1. MODIFY THE JOBCARD. *
//* *
//* 2. EDIT THE FOLLOWING VALUES: *
//* *
//* - <INSHLQ> - THE <INSHLQ> VALUE THAT WAS SPECIFIED IN *
//* THE UNZIPJCL JOB. *
//* *
//* C ALL <INSHLQ> INSHLQ *
//* *
//* - <INSMLQ> - THE <INSMLQ> VALUE THAT WAS SPECIFIED IN *
//* THE UNZIPJCL JOB. *
//* *
//* C ALL <INSMLQ> INSMLQ *
//* *
//* - <VOLSMS> - The volume or SMS information to use when *
//* allocating new libraries. *
//* *
//* Valid formats for VOLSMS are: *
//* - 'VOL=SER=vol001' - if SMS is not used *
//* - 'DATACLAS=class001' - if SMS is used *
//* *
//* Modify and issue the following CHANGE command: *
//* *
//* C ALL <VOLSMS> VOL=SER=vol001 *
//* *
//* - <CEMPAXPATH> - THE <CEMPAXPATH> VALUE THAT WAS *
//* SPECIFIED IN THE UNZIPJCL JOB. *
//* *
//* Modify and issue the following FIND and CHANGE *
//* commands: *
//* *
//* F ALL <CEMPAXPATH> *
//* C * CEMPAXPATH ALL *
//* *
//* - TO USE THE DEFAULT SMS CLASS FOR INTERIM FILES LEAVE *
//* VOLUME="*" AS IS. *
//* *
//* TO USE A SPECIFIC VOLSER, CHANGE VOLUME="*" TO *
//* VOLUME="PACKNAME". THE FILES BEING DOWNLOADED ARE AN *
//* ENTIRE SMP/E ENVIRONMENT, WE RECOMMEND THAT YOU *
//* SPECIFY A VOLUME FOR PERMANENT RETENTION OF THE *
//* SMP/E ENVIRONMENT. *
//* *
//* MODIFY AND ISSUE THE FOLLOWING CHANGE COMMAND: *
//* *
//* C ALL 'VOLUME="*"' 'VOLUME="PACKNAME"' *
//* *
//* - <UNIT> - UNIT USED FOR DATA SETS ALLOCATED IN *
//* THIS JOB. *
//* *
//* - UNCOMMENT THE SMPJHOME AND THE SMPCPATH DD STATEMENTS*
//* ONLY IF YOUR SITE DOES NOT HAVE ICSF SERVICES *
//* INSTALLED. THE PATH NAMES ON THESE JAVA DD FILES *
//* MUST BE SET TO YOUR SITES JAVA INSTALLATION NAMES. *
//* *
//* GIMUNZIP OPTIONALLY REQUIRES EITHER INTEGRATED *
//* CRYPTOGRAPHIC SERVICES FACILITY (ICSF) ONE-WAY HASH *
//* GENERATE CALLABLE SERVICE OR JAVA TO COMPUTE A SHA-1 *
//* HASH VALUE. *
//* *
//* WE SUGGEST THAT YOU EXECUTE THIS JCL WITH THESE DD *
//* NAMES COMMENTED OUT AND SEE IF IT EXECUTES *
//* SUCCESSFULLY BEFORE TRYING TO SET THESE DD NAMES. *
//* *
//* IF YOUR ENVIRONMENT REQUIRES THESE DD STATEMENTS, *
//* UNCOMMENT THE DD STATEMENTS AND ISSUE THE FOLLOWING *
//* COMMANDS TO SPECIFY THE APPROPRIATE VALUES: *
//* *
//* MODIFY AND ISSUE THE FOLLOWING FIND AND CHANGE *
//* COMMANDS: *
//* *
//* F ALL <JAVAHOME> *
//* C * JAVAHOME ALL *
//* *
//* F ALL <CLASSPATH> *
//* C * CLASSPATH ALL *
//* *
//* HASH=NO CAN BE SPECIFIED IN THE PARM FIELD WHICH WILL*
//* REMOVE THE NEED FOR A SMPCPATH DD STATEMENT. *
//* IF HASH=NO IS SET THEN THERE WILL BE NO ADDITIONAL *
//* HASH VALUE CHECKING. WE ADVISE THAT YOU DO USE THE *
//* HASH=YES PARAMETER FOR AN ADDITIONAL VALIDATION CHECK*
//* *
//* - THE JCL WILL FAIL WITH A RC=12 IF YOU UPPERCASE ANY *
//* OF THE GIMUNZIP COMMANDS. *
//* *
//* 3. REVIEW AND MODIFY THE DDDEF VALUES IN STEP UPDDDDEF *
//* IF NECESSARY. *
//* *
//*************************************************************
//* UNZIP <INSHLQ>.<INSMLQ>.ACEMSAMP
//*************************************************************
//UNZIPSMP EXEC PGM=GIMUNZIP,REGION=0M,PARM='HASH=YES'
//*
//SMPDIR DD PATH='<CEMPAXPATH>/CEM60U0',
// PATHDISP=KEEP
//*
//*SMPJHOME DD PATH='<JAVAHOME>'
//*SMPCPATH DD PATH='<CLASSPATH>',PATHDISP=KEEP
//*
//SMPOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD UNIT=SYSALLDA,SPACE=(CYL,(200,20))
//SYSUT3 DD UNIT=SYSALLDA,SPACE=(CYL,(50,10))
//SYSUT4 DD UNIT=SYSALLDA,SPACE=(CYL,(25,5))
//SYSIN DD *
<GIMUNZIP>
<ARCHDEF archid="ACEMSAMP"
newname="<INSHLQ>.<INSMLQ>.ACEMSAMP"
volume="*"
> </ARCHDEF>
</GIMUNZIP>
//*
//*************************************************************
//* THE FOLLOWING 5 STEPS WILL REALLOCATE THE ACEMSENU AND
//* CCEMSENU DATA SETS TO INCREASE THE DIRECTORY BLOCKS.
//*
//* RNAMSENU - RENAME EXISTING DATA SETS
//* ALLOCACE - ALLOCATE NEW ACEMSENU DATA SET
//* ALLOCCCE - ALLOCATE NEW CCEMSENU DATA SET
//* COPYACEM - COPY ACEMSENU MEMBERS TO NEW DATA SET
//* COPYCCEM - COPY CCEMSENU MEMBERS TO NEW DATA SET
//*
//*************************************************************
//*************************************************************
//* RENAME ACEMSENU AND CCEMSENU
//*************************************************************
//RNAMSENU EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
ALTER <INSHLQ>.<INSMLQ>.ACEMSENU -
NEWNAME(<INSHLQ>.<INSMLQ>.ACEMSENU.OLD)
ALTER <INSHLQ>.<INSMLQ>.CCEMSENU -
NEWNAME(<INSHLQ>.<INSMLQ>.CCEMSENU.OLD)
//*
//*************************************************************
//* ALLOCATE NEW ACEMSENU WITH INCREASED DIRECTORY BLOCKS
//*************************************************************
//ALLOCACE EXEC PGM=IEFBR14
//CEMASTAT DD DSN=<INSHLQ>.<INSMLQ>.ACEMSENU,
// DISP=(NEW,CATLG),
// UNIT=<UNIT>,
// <VOLSMS>,
// SPACE=(TRK,(100,100,100)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920,DSORG=PO)
//*
//*************************************************************
//* ALLOCATE NEW CCEMSENU WITH INCREASED DIRECTORY BLOCKS
//*************************************************************
//ALLOCCCE EXEC PGM=IEFBR14
//CEMASTAT DD DSN=<INSHLQ>.<INSMLQ>.CCEMSENU,
// DISP=(NEW,CATLG),
// UNIT=<UNIT>,
// <VOLSMS>,
// SPACE=(TRK,(100,100,100)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920,DSORG=PO)
//*
//*************************************************************
//* COPY ACEMSENU MEMBERS FROM OLD TO NEW DATA SET
//*************************************************************
//COPYACEM EXEC PGM=IEBCOPY,REGION=1M
//SYSPRINT DD SYSOUT=*
//*
//INDD1 DD DISP=SHR,DSN=<INSHLQ>.<INSMLQ>.ACEMSENU.OLD
//*
//OUTDD1 DD DISP=SHR,
// DSN=<INSHLQ>.<INSMLQ>.ACEMSENU
//SYSUT3 DD UNIT=SYSDA,SPACE=(TRK,(1,1))
//SYSUT4 DD UNIT=SYSDA,SPACE=(TRK,(1,1))
//*
//SYSIN DD *
COPY INDD=INDD1,OUTDD=OUTDD1
//*
//*************************************************************
//* COPY CCEMSENU MEMBERS FROM OLD TO NEW DATA SET
//*************************************************************
//COPYCCEM EXEC PGM=IEBCOPY,REGION=1M
//SYSPRINT DD SYSOUT=*
//*
//INDD1 DD DISP=SHR,DSN=<INSHLQ>.<INSMLQ>.CCEMSENU.OLD
//*
//OUTDD1 DD DISP=SHR,
// DSN=<INSHLQ>.<INSMLQ>.CCEMSENU
//SYSUT3 DD UNIT=SYSDA,SPACE=(TRK,(1,1))
//SYSUT4 DD UNIT=SYSDA,SPACE=(TRK,(1,1))
//*
//SYSIN DD *
COPY INDD=INDD1,OUTDD=OUTDD1
//*
//*************************************************************
//* REQUIRED: UPDATE CAAXMAC AND AAAXMAC DDDEFS TO PROPER
//* <INSHLQ>.<INSMLQ> DESIGNATION.
//*
//* OPTIONAL: UPDATE DDDEFS FOR SYS1, CEE, AND TCPIP DATA SETS
//* IF NECESSARY.
//*
//*************************************************************
//*
//UPDDDDEF EXEC PGM=GIMSMP,COND=(0,NE),REGION=0M,
// PARM='CSI=<INSHLQ>.<INSMLQ>.CSI,PROCESS=END'
//*
//SMPLOG DD SYSOUT=*
//SMPPTS DD DSN=<INSHLQ>.<INSMLQ>.SMPPTS,DISP=SHR
//*
//SMPCNTL DD *
SET BDY(CAID01).
UCLIN .
/*****************************************************/
/* DISTRIBUTION ZONE DDDEF FOR CEM */
/*****************************************************/
REP DDDEF(MACLIB)
DA(SYS1.MACLIB) .
ADD DDDEF(CSSLIB)
DA(SYS1.CSSLIB) SHR .
ENDUCL .
SET BDY(CAID02).
UCLIN .
/*****************************************************/
/* DISTRIBUTION ZONE DDDEF FOR DATACOM */
/*****************************************************/
REP DDDEF(AAVQSRC)
DA(<INSHLQ>.<INSMLQ>.AAAXMAC) .
REP DDDEF(CAVQSRC)
DA(<INSHLQ>.<INSMLQ>.CAAXMAC) .
REP DDDEF(CSSLIB)
DA(SYS1.CSSLIB) .
REP DDDEF(SCEELKED)
DA(CEE.SCEELKED) .
REP DDDEF(SCEESPC)
DA(CEE.SCEESPC) .
REP DDDEF(SYS1MAC)
DA(SYS1.MACLIB) .
REP DDDEF(TCPIP)
DA(TCPIP.SEZATCP) .
ENDUCL .
SET BDY(CAIT01).
UCLIN .
/*****************************************************/
/* TARGET ZONE DDDEF FOR CEM */
/*****************************************************/
REP DDDEF(MACLIB)
DA(SYS1.MACLIB) .
REP DDDEF(SCEELKED)
DA(CEE.SCEELKED) .
ADD DDDEF(CSSLIB)
DA(SYS1.CSSLIB) SHR .
ENDUCL .
SET BDY(CAIT02).
UCLIN .
/*****************************************************/
/* TARGET ZONE DDDEF FOR DATACOM */
/*****************************************************/
REP DDDEF(AAVQSRC)
DA(<INSHLQ>.<INSMLQ>.AAAXMAC) .
REP DDDEF(CAVQSRC)
DA(<INSHLQ>.<INSMLQ>.CAAXMAC) .
REP DDDEF(CSSLIB)
DA(SYS1.CSSLIB) .
REP DDDEF(SCEELKED)
DA(CEE.SCEELKED) .
REP DDDEF(SCEESPC)
DA(CEE.SCEESPC) .
REP DDDEF(SYS1MAC)
DA(SYS1.MACLIB) .
REP DDDEF(TCPIP)
DA(TCPIP.SEZATCP) .
ENDUCL .
/*
Attachments
Feedback
Yes
No
Powered by
