Milestone 5: Allocating journal and save/restore data sets
This milestone contains tasks for allocating the Xchange journal data sets and save/restore data sets for both a new install and an upgrade.
The roles involved are: Xchange Installer.
Task 5.1: Allocate the journal data sets
- Use IDCAMS to create each journal data set.
You do not need to pre-initialize the data sets. They simply need to be created. The following figure provides a sample of an IDCAMS job for creating journal data sets. This JCL is included in the CPWR.MLXGnnn.SLXGCNTL PDS as member ALLOCLOG. - Edit ALLOCLOG following the instructions given near the top of the file, then submit the job.
Sample IDCAMS job for Allocating a Journal Data set (ALLOCLOG)
//*-->PLACE JOB CARD HERE
//*
//*********************************************************************
//* INSTALLER: *
//* *
//* TO USE THIS JCL, YOU NEED TO *
//* *
//* - USE ISPF 'CHANGE ALL' TO REPLACE 'CUSTOMER.JOURNALN' (WHERE *
//*N=A DIGIT CORRESPONDING TO THOSE IN YOUR JOURNAL DSNS) WITH *
//*THE JOURNAL FILE DSNS YOU WISH TO USE WITH XCHANGE. *
//* NOTE:THESE MUST BE THE SAME NAMES AS THOSE YOU USED WHEN *
//*YOU EDITED THE XCHANGE PARMLIB MEMBER IN YOUR SITE'S *
//*COMMON PARMLIB DATASET FOR BMC. IF YOU ARE NOT CERTAIN *
//*OF THOSE NAMES, REFER TO THE XCHANGE PARMLIB MEMBER IN YOUR *
//*SITE'S PARMLIB DATASET FOR BMC. *
//* *
//* - USE ISPF 'CHANGE ALL' TO REPLACE 'VOLSER' WITH THE VOLUME *
//*SERIAL NUMBER OF A DASD UNIT ON WHICH YOU CAN CREATE VSAM *
//*FILES. *
//* *
//* - INSERT A VALID JOB CARD AND SUBMIT THE JOB. *
//*********************************************************************
//*
//DELETE EXEC PGM=IDCAMS,REGION=3M
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE customer.journal1 CLUSTER
DELETE customer.journal2 CLUSTER
DELETE customer.journal3 CLUSTER
/*
//DEFINE EXEC PGM=IDCAMS,REGION=3M
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE CLUSTER (NAME(customer.journal1) -
TRK(90) VOL(volser) -
CISZ(16384) SPANNED -
RECSZ(60 32600) NONINDEXED -
REUSE SHR(2 3) RECOVERY)
DEFINE CLUSTER (NAME(customer.journal2) -
TRK(90) VOL(volser) -
CISZ(16384) SPANNED -
RECSZ(60 32600) NONINDEXED -
REUSE SHR(2 3) RECOVERY)
DEFINE CLUSTER (NAME(customer.journal3) -
TRK(90) VOL(volser) -
CISZ(16384) SPANNED -
RECSZ(60 32600) NONINDEXED -
REUSE SHR(2 3) RECOVERY)
/*
//*
//*********************************************************************
//* INSTALLER: *
//* *
//* TO USE THIS JCL, YOU NEED TO *
//* *
//* - USE ISPF 'CHANGE ALL' TO REPLACE 'CUSTOMER.JOURNALN' (WHERE *
//*N=A DIGIT CORRESPONDING TO THOSE IN YOUR JOURNAL DSNS) WITH *
//*THE JOURNAL FILE DSNS YOU WISH TO USE WITH XCHANGE. *
//* NOTE:THESE MUST BE THE SAME NAMES AS THOSE YOU USED WHEN *
//*YOU EDITED THE XCHANGE PARMLIB MEMBER IN YOUR SITE'S *
//*COMMON PARMLIB DATASET FOR BMC. IF YOU ARE NOT CERTAIN *
//*OF THOSE NAMES, REFER TO THE XCHANGE PARMLIB MEMBER IN YOUR *
//*SITE'S PARMLIB DATASET FOR BMC. *
//* *
//* - USE ISPF 'CHANGE ALL' TO REPLACE 'VOLSER' WITH THE VOLUME *
//*SERIAL NUMBER OF A DASD UNIT ON WHICH YOU CAN CREATE VSAM *
//*FILES. *
//* *
//* - INSERT A VALID JOB CARD AND SUBMIT THE JOB. *
//*********************************************************************
//*
//DELETE EXEC PGM=IDCAMS,REGION=3M
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE customer.journal1 CLUSTER
DELETE customer.journal2 CLUSTER
DELETE customer.journal3 CLUSTER
/*
//DEFINE EXEC PGM=IDCAMS,REGION=3M
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE CLUSTER (NAME(customer.journal1) -
TRK(90) VOL(volser) -
CISZ(16384) SPANNED -
RECSZ(60 32600) NONINDEXED -
REUSE SHR(2 3) RECOVERY)
DEFINE CLUSTER (NAME(customer.journal2) -
TRK(90) VOL(volser) -
CISZ(16384) SPANNED -
RECSZ(60 32600) NONINDEXED -
REUSE SHR(2 3) RECOVERY)
DEFINE CLUSTER (NAME(customer.journal3) -
TRK(90) VOL(volser) -
CISZ(16384) SPANNED -
RECSZ(60 32600) NONINDEXED -
REUSE SHR(2 3) RECOVERY)
/*
Task 5.2: Allocate the save/restore data set
Xchange can save all date/time simulation requests to a save/restore data set at user-specified intervals, then automatically restore them when Xchange is restarted.
The save/restore data set is created with IDCAMS using the sample JCL shown in the following figure. This JCL is provided in member CPWR.MLXGnnn.SLXGCNTL(ALLOCSAV). Edit the ALLOCSAV member following the instructions given near the top of the file, then submit the job.
//* ==> INSERT JOB CARD HERE
//*
//*********************************************************************
//* INSTALLER: *
//* *
//* TO USE THIS JCL, YOU NEED TO *
//* *
//* - USE ISPF ’CHANGE ALL’ TO REPLACE ’customer.saverest.file’ *
//* WITH THE FILE DSN YOU WISH TO USE WITH XCHANGE. *
//* *
//* NOTE: THIS MUST BE THE SAME NAME AS THE NAME SUPPLIED IN *
//* THE XCHANGE START JCL FOR THE DD XGSAV001. *
//* *
//* - USE ISPF ’CHANGE ALL’ TO REPLACE ’volser’ WITH THE VOLUME *
//* SERIAL NUMBER OF A DASD UNIT ON WHICH YOU CAN CREATE VSAM *
//* FILES. *
//* *
//* - INSERT A VALID JOB CARD AND SUBMIT THE JOB. *
//* *
//*********************************************************************
//*
//*
//DELETE EXEC PGM=IDCAMS,REGION=3M
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE customer.saverest.file CLUSTER
/*
//DEFINE EXEC PGM=IDCAMS,REGION=3M
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE CLUSTER (NAME(customer.saverest.file) -
CYL(1) VOL(volser) -
CISZ(32768) -
NONINDEXED -
REUSE -
RECOVERY -
RECSZ(100 32758) -
SHR(2 3))
//*
//*********************************************************************
//* INSTALLER: *
//* *
//* TO USE THIS JCL, YOU NEED TO *
//* *
//* - USE ISPF ’CHANGE ALL’ TO REPLACE ’customer.saverest.file’ *
//* WITH THE FILE DSN YOU WISH TO USE WITH XCHANGE. *
//* *
//* NOTE: THIS MUST BE THE SAME NAME AS THE NAME SUPPLIED IN *
//* THE XCHANGE START JCL FOR THE DD XGSAV001. *
//* *
//* - USE ISPF ’CHANGE ALL’ TO REPLACE ’volser’ WITH THE VOLUME *
//* SERIAL NUMBER OF A DASD UNIT ON WHICH YOU CAN CREATE VSAM *
//* FILES. *
//* *
//* - INSERT A VALID JOB CARD AND SUBMIT THE JOB. *
//* *
//*********************************************************************
//*
//*
//DELETE EXEC PGM=IDCAMS,REGION=3M
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE customer.saverest.file CLUSTER
/*
//DEFINE EXEC PGM=IDCAMS,REGION=3M
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE CLUSTER (NAME(customer.saverest.file) -
CYL(1) VOL(volser) -
CISZ(32768) -
NONINDEXED -
REUSE -
RECOVERY -
RECSZ(100 32758) -
SHR(2 3))
Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*