This appendix contains the following topics:
This section contains the following topics:
Allocate the Syntax Files—z/OS
Allocate the VSAM Work File—z/OS
Extract Information from the Source Dictionary—z/OS
Delete Migrated Source from Source Dictionary—z/OS
Allocate the VSAM Work File--z/VSE
Extract Information from the Source Dictionary - z/VSE
Delete Migrated Source from Source Dictionary—z/VSE
Allocate the VSAM Work File--z/VM
Extract Information from the Source Dictionary—z/VM
Delete Migrated Source from Source Dictionary - z/VM
This appendix contains the z/OS and z/VSE JCL for the CA IDMS Dictionary Migrator.
Even if you use a storage management tool such as CA DYNAM, CA IDMS Dictionary Migrator requires an ASSGN statement for every file except SORTWKnn. This ASSGN is required because CA IDMS Dictionary Migrator has its own device-independent support which dynamically builds a DTF based on the device type indicated by the ASSGN. Unless the ASSIGN specifies VSAM or BDAM, the file may be defined with either DLBL or TLBL.
The JCL model contained in the distribution SAMPJCL library member USMSYNTX allocates the syntax files. You must supply a DD statement for each of the syntax files listed in the Syntax Files Table in the chapter "Operations."
//* //DELETE EXEC PGM=IEFBR14 //RHDCDEL DD DSN=syntax.file.RHDCDEL,DISP=(MOD,DELETE), // UNIT=disk,SPACE=(TRK,0) //SCHMDEL DD DSN=syntax.file.SCHMDEL,DISP=(MOD,DELETE), // UNIT=disk,SPACE=(TRK,0) //SUBSDEL DD DSN=syntax.file.SUBSDEL,DISP=(MOD,DELETE), // UNIT=disk,SPACE=(TRK,0) //DDDLDEL DD DSN=syntax.file.DDDLDEL,DISP=(MOD,DELETE), // UNIT=disk,SPACE=(TRK,0) //DDDLUPD DD DSN=syntax.file.DDDLUPD,DISP=(MOD,DELETE), // UNIT=disk,SPACE=(TRK,0) //BCFUPD DD DSN=syntax.file.BCFUPD,DISP=(MOD,DELETE), // UNIT=disk,SPACE=(TRK,0) //TABLLOD DD DSN=syntax.file.TABLLOD,DISP=(MOD,DELETE), // UNIT=disk,SPACE=(TRK,0) //DDDLLOD DD DSN=syntax.file.DDDLLOD,DISP=(MOD,DELETE), // UNIT=disk,SPACE=(TRK,0) //SCHMUPD DD DSN=syntax.file.SCHMUPD,DISP=(MOD,DELETE), // UNIT=disk,SPACE=(TRK,0) //SUBSUPD DD DSN=syntax.file.SUBSUPD,DISP=(MOD,DELETE), // UNIT=disk,SPACE=(TRK,0) //SUBSLOD DD DSN=syntax.file.SUBSLOD,DISP=(MOD,DELETE), // UNIT=disk,SPACE=(TRK,0) //RHDCUPD DD DSN=syntax.file.RHDCUPD,DISP=(MOD,DELETE), // UNIT=disk,SPACE=(TRK,0) //RHDCLOD DD DSN=syntax.file.RHDCLOD,DISP=(MOD,DELETE), // UNIT=disk,SPACE=(TRK,0) //DDDLPGM DD DSN=syntax.file.DDDLPGM,DISP=(MOD,DELETE), // UNIT=disk,SPACE=(TRK,0) //ADSOBGN DD DSN=syntax.file.ADSOBGN,DISP=(MOD,DELETE), // UNIT=disk,SPACE=(TRK,0) //ADSBTAT DD DSN=syntax.file.ADSBTAT,DISP=(MOD,DELETE), // UNIT=disk,SPACE=(TRK,0) //USERUPD DD DSN=syntax.file.USERUPD,DISP=(MOD,DELETE), // UNIT=disk,SPACE=(TRK,0) //* //* ----- ALLOCATE SYNTAX FILES -------- 'USMSYNTX' SAMPLE JCL ----- //* //ALLOCATE EXEC PGM=IEFBR14 //RHDCDEL DD DSN=syntax.file.RHDCDEL,DISP=(,CATLG,DELETE), // SPACE=(TRK,(005,02)), // VOL=SER=volser,UNIT=disk //SCHMDEL DD DSN=syntax.file.SCHMDEL,DISP=(,CATLG,DELETE), // SPACE=(TRK,(005,02)), // VOL=SER=volser,UNIT=disk //SUBSDEL DD DSN=syntax.file.SUBSDEL,DISP=(,CATLG,DELETE), // SPACE=(TRK,(005,02)), // VOL=SER=volser,UNIT=disk //DDDLDEL DD DSN=syntax.file.DDDLDEL,DISP=(,CATLG,DELETE), // SPACE=(TRK,(005,02)), // VOL=SER=volser,UNIT=disk //DDDLUPD DD DSN=syntax.file.DDDLUPD,DISP=(,CATLG,DELETE), // SPACE=(TRK,(060,30)), // VOL=SER=volser,UNIT=disk //BCFUPD DD DSN=syntax.file.BCFUPD,DISP=(,CATLG,DELETE), // SPACE=(TRK,(005,02)), // VOL=SER=volser,UNIT=disk //TABLLOD DD DSN=syntax.file.TABLLOD,DISP=(,CATLG,DELETE), // SPACE=(TRK,(005,02)), // VOL=SER=volser,UNIT=disk //DDDLLOD DD DSN=syntax.file.DDDLLOD,DISP=(,CATLG,DELETE), // SPACE=(TRK,(005,02)), // VOL=SER=volser,UNIT=disk //SCHMUPD DD DSN=syntax.file.SCHMUPD,DISP=(,CATLG,DELETE), // SPACE=(TRK,(005,02)), // VOL=SER=volser,UNIT=disk //SUBSUPD DD DSN=syntax.file.SUBSUPD,DISP=(,CATLG,DELETE), // SPACE=(TRK,(005,02)), // VOL=SER=volser,UNIT=disk //SUBSLOD DD DSN=syntax.file.SUBSLOD,DISP=(,CATLG,DELETE), // SPACE=(TRK,(005,02)), // VOL=SER=volser,UNIT=disk //RHDCUPD DD DSN=syntax.file.RHDCUPD,DISP=(,CATLG,DELETE), // SPACE=(TRK,(060,30)), // VOL=SER=volser,UNIT=disk //RHDCLOD DD DSN=syntax.file.RHDCLOD,DISP=(,CATLG,DELETE), // SPACE=(TRK,(005,02)), // VOL=SER=volser,UNIT=disk //DDDLPGM DD DSN=syntax.file.DDDLPGM,DISP=(,CATLG,DELETE), // SPACE=(TRK,(005,02)), // VOL=SER=volser,UNIT=disk //ADSOBGN DD DSN=syntax.file.ADSOBGN,DISP=(,CATLG,DELETE), // SPACE=(TRK,(005,02)), // VOL=SER=volser,UNIT=disk //ADSBTAT DD DSN=syntax.file.ADSBTAT,DISP=(,CATLG,DELETE), // SPACE=(TRK,(001,02)), // VOL=SER=volser,UNIT=disk //USERUPD DD DSN=syntax.file.USERUPD,DISP=(,CATLG,DELETE), // SPACE=(TRK,(001,02)), // VOL=SER=volser,UNIT=disk
The JCL model contained in the distribution SAMPJCL library member USMVSAM allocates the VSAM work file. See the chapter "Operations" for details.
//*
//IDCAMS EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=a
//SYSIN DD *
DELETE -
(work.file.vsamext) -
CLUSTER
DEFINE CLUSTER ( -
NAME(work.file.vsamext) -
TRACKS(prialloc secalloc) -
INDEXED -
VOLUMES(volser) -
KEYS(84 2) -
RECORDSIZE(228 228) -
usetype -
)
The JCL model contained in the distribution SAMPJCL library member USMXTRCT extracts information from the source dictionary, compares the extract to the object dictionary, reports on the comparison, and produces the syntax files.
//*
//* ---CA IDMS/Dictionary Migrator Step --- 'USMEXTRCT Sample JCL ---
//*
//MIGRATOR EXEC PGM=USMGRTR,REGION=####K
//STEPLIB DD DSN=your.loadlib,DISP=SHR,DCB=BLKSIZE=blksize
// DD DSN=idms.loadlib,DISP=SHR
//*
//* SYSIDMS PARAMETER FILE
//*
//SYSIDMS DD DSN=your.sysidms,DISP=SHR
//*
//* A SYSIDMS Parameter File must be provided.
//* If you wish to run in Local Mode specify the following values :
//* LOCAL=dmcl-name,LOCAL=ON,JOURNAL=OFF
//* If you wish to run CV a 80 byte blank record will suffice.
//*
//* MIGRATOR WORK FILES
//SYSCTL DD DSN=your.cv.sysctl,DISP=SHR
//*
//SYSIPT DD DSN=&&SYSIPT,DISP=(,DELETE,DELETE),
// SPACE=(TRK,(060,30)),
// VOL=SER=volser,UNIT=disk
//SYSPCH DD DSN=&&SYSPCH,DISP=(,DELETE,DELETE),
// SPACE=(TRK,(150,60)),
// VOL=SER=volser,UNIT=disk
//SELECT DD DSN=&&SELECT,DISP=(,DELETE,DELETE),
// SPACE=(TRK,(002,01)),
// VOL=SER=volser,UNIT=disk
//EXTRACT DD DSN=&&EXTRACT,DISP=(,DELETE,DELETE),
// SPACE=(TRK,(150,60)),
// VOL=SER=volser,UNIT=disk
//VALDRPT DD DSN=&&VALDRPT,DISP=(,DELETE,DELETE),
// SPACE=(TRK,(005,02)),
// VOL=SER=volser,UNIT=disk
//WORKFIL DD DSN=&&WORKFIL,DISP=(,DELETE,DELETE),
// SPACE=(TRK,(060,30)),
// VOL=SER=volser,UNIT=disk
//WORKFL2 DD DSN=&&WORKFL2,DISP=(,DELETE,DELETE),
// SPACE=(TRK,(060,30)),
// VOL=SER=volser,UNIT=disk
//VSAMEXT DD DSN=work.file.vsamext,DISP=OLD
//SORTWK01 DD UNIT=disk,SPACE=(CYL,(5,2))
//SORTWK02 DD UNIT=disk,SPACE=(CYL,(5,2))
//SORTWK03 DD UNIT=disk,SPACE=(CYL,(5,2))
//*
//* SYNTAX SUBFILES
//*
//RHDCDEL DD DSN=syntax.file.RHDCDEL,DISP=OLD
//SCHMDEL DD DSN=syntax.file.SCHMDEL,DISP=OLD
//SUBSDEL DD DSN=syntax.file.SUBSDEL,DISP=OLD
//DDDLDEL DD DSN=syntax.file.DDDLDEL,DISP=OLD
//DDDLUPD DD DSN=syntax.file.DDDLUPD,DISP=OLD
//BCFUPD DD DSN=syntax.file.BCFUPD,DISP=OLD
//TABLLOD DD DSN=syntax.file.TABLLOD,DISP=OLD
//DDDLLOD DD DSN=syntax.file.DDDLLOD,DISP=OLD
//SCHMUPD DD DSN=syntax.file.SCHMUPD,DISP=OLD
//SUBSUPD DD DSN=syntax.file.SUBSUPD,DISP=OLD
//SUBSLOD DD DSN=syntax.file.SUBSLOD,DISP=OLD
//RHDCUPD DD DSN=syntax.file.RHDCUPD,DISP=OLD
//RHDCLOD DD DSN=syntax.file.RHDCLOD,DISP=OLD
//DDDLPGM DD DSN=syntax.file.DDDLPGM,DISP=OLD
//ADSOBGN DD DSN=syntax.file.ADSOBGN,DISP=OLD
//ADSBTAT DD DSN=syntax.file.ADSBTAT,DISP=OLD
//USERUPD DD DSN=syntax.file.USERUPD,DISP=OLD
//*
//* REPORT FILES
//*
//AUDIT DD SYSOUT=a
//SYSOUT DD SYSOUT=a
//*
//* Output from dynamically involved CA IDMS utilities and
//* decompilers is written to SYSLIST. This will be a large file.
//*
//SYSLST DD SYSOUT=a
//*
//* CA IDMS Dictionary Migrator USER PARAMETERS. See the Parameters
//* Chapter of the CA IDMS Dictionary Migrator User Guide for
//* keyword parameter information.
//*
//MIGPARM DD *
PROCESS,
RUN= ???????,
*
*** IDENTIFY SOURCE DICTIONARY
IDSOURCE=(userid,password),
DICT=????????,
*
*** IDENTIFY OBJECT DICTIONARY
IDOBJECT=(userid,password),
OBJDICT=????????
.
.
.
EXTRACT,..........
.
.
.
EXTRACT,..........
The JCL model contained in the distribution SAMPJCL library member USMEXPRT allocates the work files, extracts information from the source dictionary and puts it onto disk, and produces syntax files on disk.
//* ---- DICT MIGRATOR STAGE 1 EXPORT --- 'USMEXPRT' SAMPLE JCL ----
//*
//MIGRATOR EXEC PGM=USMGRTR,REGION=2000K
//STEPLIB DD DSN=your.loadlib,DISP=SHR,DCB=BLKSIZE=blksize
// DD DSN=idms.loadlib,DISP=SHR
//*
//* SYSIDMS PARAMETER FILE
//*
//SYSIDMS DD DSN=your.sysidms,DISP=SHR
//SYSCTL DD DSN=your.cv.sysctl,DISP=SHR
//*
//* A SYSIDMS Parameter File must be provided.
//* If you wish to run in Local Mode specify the following values :
//* LOCAL=dmcl-name,LOCAL=ON,JOURNAL=OFF
//* If you wish to run CV an 80 byte blank record will suffice
//* and use the SYSCTL for that CV.
//*
//* EXPORT 'EXTRACT' FILE ON TAPE FOR INPUT TO IMPORT STAGE
//*
//EXTRACT DD DSN=SYNTAX.FILE.EXTRACT,DISP=(NEW,CATLG,DELETE)
// SPACE=(TRK,(150,060)),
// VOL=SER=volser,UNIT=disk
//*
//* MIGRATOR DISK WORK FILES
//*
//SYSIPT DD DSN=&&SYSIPT,DISP=(,DELETE,DELETE),
// SPACE=(TRK,(060,30)),
// VOL=SER=volser,UNIT=disk
//SYSPCH DD DSN=&&SYSPCH,DISP=(,DELETE,DELETE),
// SPACE=(TRK,(150,60)),
// VOL=SER=volser,UNIT=disk
//SELECT DD DSN=&&SELECT,DISP=(,DELETE,DELETE),
// SPACE=(TRK,(002,01)),
// VOL=SER=volser,UNIT=disk
//WORKFIL DD DSN=&&WORKFIL,DISP=(,DELETE,DELETE),
// SPACE=(TRK,(060,30)),
// VOL=SER=volser,UNIT=disk
//WORKFL2 DD DSN=&&WORKFL2,DISP=(,DELETE,DELETE),
// SPACE=(TRK,(060,30)),
// VOL=SER=volser,UNIT=disk
//SORTWK01 DD UNIT=disk,SPACE=(CYL,(5,2))
//SORTWK02 DD UNIT=disk,SPACE=(CYL,(5,2))
//SORTWK03 DD UNIT=disk,SPACE=(CYL,(5,2))
//*
//* SYNTAX FILES
//*
//RHDCDEL DD DSN=syntax.file.RHDCDEL,DISP=OLD
//SCHMDEL DD DSN=syntax.file.SCHMDEL,DISP=OLD
//SUBSDEL DD DSN=syntax.file.SUBSDEL,DISP=OLD
//DDDLDEL DD DSN=syntax.file.DDDLDEL,DISP=OLD
//DDDLUPD DD DSN=syntax.file.DDDLUPD,DISP=OLD
//BCFUPD DD DSN=syntax.file.BCFUPD,DISP=OLD
//TABLLOD DD DSN=syntax.file.TABLLOD,DISP=OLD
//DDDLLOD DD DSN=syntax.file.DDDLLOD,DISP=OLD
//SCHMUPD DD DSN=syntax.file.SCHMUPD,DISP=OLD
//SUBSUPD DD DSN=syntax.file.SUBSUPD,DISP=OLD
//SUBSLOD DD DSN=syntax.file.SUBSLOD,DISP=OLD
//RHDCUPD DD DSN=syntax.file.RHDCUPD,DISP=OLD
//RHDCLOD DD DSN=syntax.file.RHDCLOD,DISP=OLD
//DDDLPGM DD DSN=syntax.file.DDDLPGM,DISP=OLD
//ADSOBGN DD DSN=syntax.file.ADSOBGN,DISP=OLD
//ADSBTAT DD DSN=syntax.file.ADSBTAT,DISP=OLD
//USERUPD DD DSN=syntax.file.USERUPD,DISP=OLD
//*
//* REPORT FILES
//*
//AUDIT DD SYSOUT=a
//SYSOUT DD SYSOUT=a
//*
//* OUTPUT FROM DYNAMICALLY INVOKED IDMS UTILITIES AND DECOMPILERS
//* IS WRITTEN TO SYSLST. THIS WILL BE A LARGE FILE.
//*
//SYSLST DD SYSOUT=a
//*
//* USER PARAMETERS
//*
//MIGPARM DD *
PROCESS,
RUN=EXPORT,
*
*** IDENTIFY SOURCE DICTIONARY
*
IDSOURCE=(user-id,password),
DICT=????????,
*
* THE OBJECT DICTIONARY WILL NOT BE ACCESSED IN THIS STEP.
*
* VALUES USED FOR IDOBJECT AND OBJDICT WILL BE PASSED TO THE
* UPLOAD STEP VIA THE SYNTAX FILES CREATED IN THIS STEP.
*
IDOBJECT=(user-id,password),
OBJDICT=????????
.
.
EXTRACT,..........
.
.
.
EXTRACT,..........
The JCL model contained in the distribution SAMPJCL library member USMIMPRT imports the extract tape, compares extract to object dictionary, and reports on the comparison.
Note: Suggested space allocations for all work files are contained in the Work Files Table of in the chapter "Operations."
//* ----- Dictionary Migrator STEP ----- 'USMIMPRT' SAMPLE JCL -----
//*
//MIGRATOR EXEC PGM=USMGRTR,REGION=####K
//STEPLIB DD DSN=your.loadlib,DISP=SHR,DCB=BLKSIZE=blksize
// DD DSN=idms.loadlib,DISP=SHR
//*
//* SYSIDMS PARAMETER FILE
//*
//SYSIDMS DD DSN=your.sysidms,DISP=SHR
//SYSCTL DD DSN=your.cv.sysctl,DISP=SHR
//*
//* A SYSIDMS Parameter File must be provided.
//* If you wish to run in Local Mode specify the following values :
//* LOCAL=dmcl-name,LOCAL=ON,JOURNAL=OFF
//* If you wish to run CV an 80 byte blank record will suffice.
//*
//*
//* MIGRATOR WORK FILES
//*
//SYSIPT DD DSN=&&SYSIPT,DISP=(,DELETE,DELETE),
// SPACE=(TRK,(060,30)),
// VOL=SER=volser,UNIT=disk
//SYSPCH DD DSN=&&SYSPCH,DISP=(,DELETE,DELETE),
// SPACE=(TRK,(150,60)),
// VOL=SER=volser,UNIT=disk
//SELECT DD DSN=&&SELECT,DISP=(,DELETE,DELETE),
// SPACE=(TRK,(002,01)),
// VOL=SER=volser,UNIT=disk
//VALDRPT DD DSN=&&VALDRPT,DISP=(,DELETE,DELETE),
// SPACE=(TRK,(005,02)),
// VOL=SER=volser,UNIT=disk
//WORKFIL DD DSN=&&WORKFIL,DISP=(,DELETE,DELETE),
// SPACE=(TRK,(060,30)),
// VOL=SER=volser,UNIT=disk
//WORKFL2 DD DSN=&&WORKFL2,DISP=(,DELETE,DELETE),
// SPACE=(TRK,(060,30)),
// VOL=SER=volser,UNIT=disk
//VSAMEXT DD DSN=WORK.FILE.VSAMEXT,DISP=OLD
//SORTWK01 DD UNIT=disk,SPACE=(CYL,(5,2))
//SORTWK02 DD UNIT=disk,SPACE=(CYL,(5,2))
//SORTWK03 DD UNIT=disk,SPACE=(CYL,(5,2))
//*
//* SYNTAX SUBFILES
//*
//RHDCDEL DD DSN=syntax.file.RHDCDEL,DISP=OLD
//SCHMDEL DD DSN=syntax.file.SCHMDEL,DISP=OLD
//SUBSDEL DD DSN=syntax.file.SUBSDEL,DISP=OLD
//DDDLDEL DD DSN=syntax.file.DDDLDEL,DISP=OLD
//DDDLUPD DD DSN=syntax.file.DDDLUPD,DISP=OLD
//BCFUPD DD DSN=syntax.file.BCFUPD,DISP=OLD
//TABLLOD DD DSN=syntax.file.TABLLOD,DISP=OLD
//DDDLLOD DD DSN=syntax.file.DDDLLOD,DISP=OLD
//SCHMUPD DD DSN=syntax.file.SCHMUPD,DISP=OLD
//SUBSUPD DD DSN=syntax.file.SUBSUPD,DISP=OLD
//SUBSLOD DD DSN=syntax.file.SUBSLOD,DISP=OLD
//RHDCUPD DD DSN=syntax.file.RHDCUPD,DISP=OLD
//RHDCLOD DD DSN=syntax.file.RHDCLOD,DISP=OLD
//DDDLPGM DD DSN=syntax.file.DDDLPGM,DISP=OLD
//ADSOBGN DD DSN=syntax.file.ADSOBGN,DISP=OLD
//ADSBTAT DD DSN=syntax.file.ADSBTAT,DISP=OLD
//USERUPD DD DSN=syntax.file.USERUPD,DISP=OLD
//*
//* MIGRATED EXTRACTION FILE FROM USMEXPRT
//*
//EXTRACT DD DSN=syntax.file.EXTRACT,DISP=OLD
//*
//* REPORT FILES
//*
//AUDIT DD SYSOUT=a
//SYSOUT DD SYSOUT=a
//*
//* OUTPUT FROM DYNAMICALLY INVOKED IDMS UTILITIES AND DECOMPILERS
//* IS WRITTEN TO SYSLST. THIS WILL BE A LARGE FILE.
//*
//SYSLST DD SYSOUT=a
//*
//* USER PARAMETERS
//*
//MIGPARM DD *
PROCESS,
RUN=IMPORT,
*
*** IDENTIFY SOURCE DICTIONARY
IDSOURCE=(user-id,password),
DICT=????????,
*
*** IDENTIFY OBJECT DICTIONARY
IDOBJECT=(user-id,password),
OBJDICT=????????
.
.
.
The JCL model contained in the distribution SAMPJCL library member USMLOAD1 is used to upload syntax files to the object dictionary using CA IDMS utilities, or using the CA user password upload utility supplied by CA. There can be from 1 to 16 steps involved in the upload, depending on your site and type of migration.
For more information about uploading syntax files, see the Syntax Files Table in the chapter "Operations."
If you want to delete entities from the source dictionary after migration, make a second non-CHANGEONLY run using the same parameters as the real migration, specify the same dictionary for both source and object.
--- USE IDMS TO LOAD OBJECT DICT ----- 'USMLOAD1' SAMPLE JCL ---
//* RHDCDEL - DELETE PANELS AND MAPS *
//*-------------------------------------------------------------------*
//RHDCDEL EXEC PGM=RHDCMAP1,REGION=4000K,COND=((16,LT),EVEN)
//STEPLIB DD DSN=idms.loadlib,DISP=SHR
//SYSCTL DD DSN=idms.sysctl,DISP=SHR
//SYSIDMS DD *
//* Insert the relevant SYSIDMS parameters here
//SYSLST DD SYSOUT=a
//SYSPCH DD DUMMY
//SYSIPT DD DSN=syntax.file.RHDCDEL,DISP=OLD
//*
//*-------------------------------------------------------------------*
//* SCHMDEL - DELETE SCHEMA AND SUBSCHEMA SOURCE *
//*-------------------------------------------------------------------*
//SCHMDEL EXEC PGM=IDMSCHEM,REGION=3000K,COND=((16,LT),EVEN)
//STEPLIB DD DSN=idms.loadlib,DISP=SHR
//SYSCTL DD DSN=idms.sysctl,DISP=SHR
//SYSIDMS DD *
//* Insert the relevant SYSIDMS parameters here
//SYSLST DD SYSOUT=a
//SYSPCH DD DUMMY
//SYSIPT DD DSN=syntax.file.SCHMDEL,DISP=OLD
//*
//*-------------------------------------------------------------------*
//* SUBSDEL - DELETE SUBSCHEMA *
//* N O T E: THIS IS REQUIRED ONLY IF A SUBSCHEMA WAS MIGRATED *
//* WITHOUT ITS SCHEMA *
//*-------------------------------------------------------------------*
//SUBSDEL EXEC PGM=IDMSUBSC,REGION=2500K,COND=((16,LT),EVEN)
//STEPLIB DD DSN=idms.loadlib,DISP=SHR
//SYSCTL DD DSN=idms.sysctl,DISP=SHR
//SYSIDMS DD *
//* Insert the relevant SYSIDMS parameters here
//SYSLST DD SYSOUT=a
//SYSPCH DD DUMMY
//SYSIPT DD DSN=syntax.file.SUBSDEL,DISP=OLD
//*
//*-------------------------------------------------------------------*
//* DDDLDEL - DELETE OTHER ENTITIES *
//*-------------------------------------------------------------------*
//*NOTE: DO NOT RUN THIS STEP FOR CHANGEONLY PROCESSING. *
//*-------------------------------------------------------------------*
//*DDDLDEL EXEC PGM=IDMSDDDL,REGION=3000K,COND=((16,LT),EVEN)
//*STEPLIB DD DSN=idms.loadlib,DISP=SHR
//*SYSCTL DD DSN=idms.sysctl,DISP=SHR
//*SYSIDMS DD *
//* Insert the relevant SYSIDMS parameters here
//*SYSLST DD SYSOUT=a
//*SYSPCH DD DUMMY
//*SYSIPT DD DSN=syntax.file.DDDLDEL,DISP=OLD
//*-------------------------------------------------------------------*
//* DDDLUPD - ADD/MODIFY CLASS, ATTRIBUTE, SYSTEM, RECORD, ELEMENT, *
//* MESSAGE, MODULE, AND TABLE ENTITIES *
//*-------------------------------------------------------------------*
//DDDLUPD EXEC PGM=IDMSDDDL,REGION=3000K,COND=((16,LT),EVEN)
//STEPLIB DD DSN=idms.loadlib,DISP=SHR
//SYSCTL DD DSN=idms.sysctl,DISP=SHR
//SYSIDMS DD *
//* Insert the relevant SYSIDMS parameters here
//SYSLST DD SYSOUT=a
//SYSPCH DD DUMMY
//SYSIPT DD DSN=syntax.file.DDDLUPD,DISP=OLD
//*
//*-------------------------------------------------------------------*
//* TABLLOD - GENERATE TABLE LOAD MODULES *
//*-------------------------------------------------------------------*
//TABLLOD EXEC PGM=IDMSDDDL,REGION=3000K,COND=((16,LT),EVEN)
//STEPLIB DD DSN=idms.loadlib,DISP=SHR
//SYSCTL DD DSN=idms.sysctl,DISP=SHR
//SYSIDMS DD *
//* Insert the relevant SYSIDMS parameters here
//SYSLST DD SYSOUT=a
//SYSPCH DD DUMMY
//SYSIPT DD DSN=syntax.file.TABLLOD,DISP=OLD
//*
//*-------------------------------------------------------------------*
//* DDDLLOD - ADD/MODIFY LOAD MODULES FOR SUBSCHEMA, MAP, MAP EDIT *
//* TABLE, AND DIALOG *
//*-------------------------------------------------------------------*
//DDDLLOD EXEC PGM=IDMSDDDL,REGION=3000K,COND=((16,LT),EVEN)
//STEPLIB DD DSN=idms.loadlib,DISP=SHR
//SYSCTL DD DSN=idms.sysctl,DISP=SHR
//SYSIDMS DD *
//* Insert the relevant SYSIDMS parameters here
//SYSLST DD SYSOUT=a
//SYSPCH DD DUMMY
//SYSIPT DD DSN=syntax.file.DDDLLOD,DISP=OLD
//*
//*-------------------------------------------------------------------*
//* SCHMUPD - ADD SCHEMA SOURCE *
//*-------------------------------------------------------------------*
//SCHMUPD EXEC PGM=IDMSCHEM,REGION=2500K,COND=((16,LT),EVEN)
//STEPLIB DD DSN=idms.loadlib,DISP=SHR
//SYSCTL DD DSN=idms.sysctl,DISP=SHR
//SYSIDMS DD *
//* Insert the relevant SYSIDMS parameters here
//SYSLST DD SYSOUT=a
//SYSPCH DD DUMMY
//SYSIPT DD DSN=syntax.file.SCHMUPD,DISP=OLD
//*
//*-------------------------------------------------------------------*
//* SUBSUPD - ADD SUBSCHEMA SOURCE *
//*-------------------------------------------------------------------*
//SUBSUPD EXEC PGM=IDMSUBSC,REGION=2500K,COND=((16,LT),EVEN)
//STEPLIB DD DSN=idms.loadlib,DISP=SHR
//SYSCTL DD DSN=idms.sysctl,DISP=SHR
//SYSIDMS DD *
//* Insert the relevant SYSIDMS parameters here
//SYSLST DD SYSOUT=a
//SYSPCH DD DUMMY
//SYSIPT DD DSN=syntax.file.SUBSUPD,DISP=OLD
//*
//*-------------------------------------------------------------------*
//* SUBSLOD - GENERATE SUBSCHEMA LOAD MODULE *
//*-------------------------------------------------------------------*
//SUBSLOD EXEC PGM=IDMSUBSC,REGION=2500K,COND=((16,LT),EVEN)
//STEPLIB DD DSN=idms.loadlib,DISP=SHR
//SYSCTL DD DSN=idms.sysctl,DISP=SHR
//SYSIDMS DD *
//* Insert the relevant SYSIDMS parameters here
//SYSLST DD SYSOUT=a
//SYSPCH DD DUMMY
//SYSIPT DD DSN=syntax.file.SUBSLOD,DISP=OLD
//*
//*-------------------------------------------------------------------*
//* RHDCUPD - ADD/MODIFY PANEL AND MAP SYNTAX *
//*-------------------------------------------------------------------*
//RHDCUPD EXEC PGM=RHDCMAP1,REGION=4000K,COND=((16,LT),EVEN)
//STEPLIB DD DSN=idms.loadlib,DISP=SHR
//SYSCTL DD DSN=idms.sysctl,DISP=SHR
//SYSIDMS DD *
//* Insert the relevant SYSIDMS parameters here
//SYSLST DD SYSOUT=a
//SYSPCH DD DUMMY
//SYSIPT DD DSN=syntax.file.RHDCUPD,DISP=OLD
//*
//*-------------------------------------------------------------------*
//* RHDCLOD - COMPILE MAP *
//*-------------------------------------------------------------------*
//RHDCLOD EXEC PGM=RHDCMPUT,REGION=4000K,COND=((16,LT),EVEN)
//STEPLIB DD DSN=idms.loadlib,DISP=SHR
//SYSCTL DD DSN=idms.sysctl,DISP=SHR
//SYSIDMS DD *
//* Insert the relevant SYSIDMS parameters here
//SYSLST DD SYSOUT=a
//SYSPCH DD DUMMY
//SYSIPT DD DSN=syntax.file.RHDCLOD,DISP=OLD
//*
//*-------------------------------------------------------------------*
//* ADSOBGN - GENERATE ADS DIALOG *
//* N O T E: THIS STEP CAN ONLY BE EXECUTED IF DIALOG LOAD MODULES *
//* WERE MIGRATED. *
//*---------------------------------------------------------
//ADSOBGN EXEC PGM=ADSOBCOM,REGION=5000K,COND=((16,LT),EVEN)
//STEPLIB DD DSN=idms.loadlib,DISP=SHR
//CDMSLIB DD DSN=idms.loadlib,DISP=SHR
// DD DSN=idms.c.loadlib,DISP=SHR
//SYSCTL DD DSN=idms.sysctl,DISP=SHR
//SYSIDMS DD *
//* Insert the relevant SYSIDMS parameters here
//SYSLST DD SYSOUT=a
//SYSPCH DD DUMMY
//SYSIPT DD DSN=syntax.file.ADSOBGN,DISP=OLD
//*
//*-------------------------------------------------------------------*
//* DDDLPGM - ADD/MODIFY PROGRAM SYNTAX *
//*-------------------------------------------------------------------*
//DDDLPGM EXEC PGM=IDMSDDDL,REGION=3000K,COND=((16,LT),EVEN)
//STEPLIB DD DSN=idms.loadlib,DISP=SHR
//SYSCTL DD DSN=idms.sysctl,DISP=SHR
//SYSIDMS DD *
//* Insert the relevant SYSIDMS parameters here
//SYSLST DD SYSOUT=a
//SYSPCH DD DUMMY
//SYSIPT DD DSN=syntax.file.DDDLPGM,DISP=OLD
//*
//*-------------------------------------------------------------------*
//* ADSBTAT - UPDATE TASK APPLICATION TABLE *
//* THIS STEP IS ONLY FOR APPLICATIONS WHICH USE THE *
//* ADSA. *
//* *
//*-------------------------------------------------------------------*
//ADSBTAT EXEC PGM=ADSOBTAT,REGION=3000K,COND=((16,LT),EVEN)
//STEPLIB DD DSN=idms.loadlib,DISP=SHR
// DD DSN=your.loadlib,DISP=SHR
//SYSCTL DD DSN=idms.sysctl,DISP=SHR
//SYSIDMS DD *
//* Insert the relevant SYSIDMS parameters here
//SYSLST DD SYSOUT=a
//SYSPCH DD DUMMY
//SYSIPT DD DSN=syntax.file.ADSBTAT,DISP=OLD
//*
//*-------------------------------------------------------------------*
//* BCFUPD - ADD SQL ENTITY DEFINITIONS *
//* *
//*-------------------------------------------------------------------*
//DDDLUPD EXEC PGM=IDMSBCF,REGION=3000K,COND=((16,LT),EVEN)
//STEPLIB DD DSN=idms.loadlib,DISP=SHR
//SYSCTL DD DSN=idms.sysctl,DISP=SHR
//SYSIDMS DD *
//* Insert the relevant SYSIDMS parameters here
//SYSLST DD SYSOUT=a
//SYSPCH DD DUMMY
//SYSIPT DD DSN=syntax.file.BCFUPD,DISP=OLD
//*
//*-------------------------------------------------------------------*
//* USERUPD - UPDATE USER PASSWORDS *
//* THIS STEP IS ONLY FOR MIGRATIONS WHICH DO NOT USE *
//* DISCONNECT=(USER). THE PASSWORD FROM THE SOURCE *
//* DICTIONARY IS PLACED INTO THE OBJECT DICTIONARY. *
//* *
//* N O T E: IF THIS STEP IS NOT RUN, THE PASSWORD ASSIGNED TO ALL *
//* MIGRATED USERS WILL BE "DBMSINT". *
//* *
//*-------------------------------------------------------------------*
//USERUPD EXEC PGM=USMULOD,REGION=3000K,COND=((16,LT),EVEN)
//STEPLIB DD DSN=idms.loadlib,DISP=SHR
// DD DSN=your.loadlib,DISP=SHR
//SYSCTL DD DSN=idms.sysctl,DISP=SHR
//SYSIDMS DD *
//* Insert the relevant SYSIDMS parameters here
//SYSOUT DD SYSOUT=a
//AUDIT DD SYSOUT=a
//SYSPCH DD DUMMY
//USERUPD DD DSN=syntax.file.USERUPD,DISP=OLD
//*
The JCL model contained in the distribution SAMPJCL library member USMLOAD3 is an optional job that, when executed, deletes the migrated source from the source dictionary after migration.
Note: If you want to delete entities from the source dictionary after migration, make a second non-CHANGEONLY run using the same parameters as the real migration, specify the same dictionary for both source and object.
//* ----- REMOVE MIGRATED ENTITIES FROM SOURCE DICTIONARY ----- //* //*-------------------------------------------------------------------* //* RHDCDEL - DELETE PANELS AND MAPS * //*-------------------------------------------------------------------* //RHDCDEL EXEC PGM=RHDCMAP1,REGION=4000K,COND=((16,LT),EVEN) //STEPLIB DD DSN=idms.loadlib,DISP=SHR //SYSCTL DD DSN=idms.sysctl,DISP=SHR //SYSIDMS DD * //* Insert the relevant SYSIDMS parameters here //SYSLST DD SYSOUT=a //SYSPCH DD DUMMY //SYSIPT DD DSN=syntax.file.RHDCDEL,DISP=OLD //* //*-------------------------------------------------------------------* //* SCHMDEL - DELETE SCHEMA AND SUBSCHEMA SOURCE * //*-------------------------------------------------------------------* //*SCHMDEL EXEC PGM=IDMSCHEM,REGION=3000K,COND=((16,LT),EVEN) //SCHMDEL EXEC PGM=IDMSDDDL,REGION=3000K,COND=((16,LT),EVEN) //STEPLIB DD DSN=idms.loadlib,DISP=SHR //SYSCTL DD DSN=idms.sysctl,DISP=SHR //SYSIDMS DD * //* Insert the relevant SYSIDMS parameters here //SYSLST DD SYSOUT=a //SYSPCH DD DUMMY //SYSIPT DD DSN=syntax.file.SCHMDEL,DISP=OLD //* //*-------------------------------------------------------------------* //* SUBSDEL - DELETE SUBSCHEMA * //* N O T E: THIS IS REQUIRED ONLY IF A SUBSCHEMA WAS MIGRATED * //* WITHOUT ITS SCHEMA * //*-------------------------------------------------------------------* //SUBSDEL EXEC PGM=IDMSUBSC,REGION=2500K,COND=((16,LT),EVEN) //STEPLIB DD DSN=idms.loadlib,DISP=SHR //SYSCTL DD DSN=idms.sysctl,DISP=SHR //SYSIDMS DD * //* Insert the relevant SYSIDMS parameters here //SYSLST DD SYSOUT=a //SYSPCH DD DUMMY //SYSIPT DD DSN=syntax.file.SUBSDEL,DISP=OLD //* //*-------------------------------------------------------------------* //* DDDLDEL - DELETE OTHER ENTITIES * //*-------------------------------------------------------------------* //DDDLDEL EXEC PGM=IDMSDDDL,REGION=3000K,COND=((16,LT),EVEN) //STEPLIB DD DSN=idms.loadlib,DISP=SHR //SYSCTL DD DSN=idms.sysctl,DISP=SHR //SYSIDMS DD * //* Insert the relevant SYSIDMS parameters here //SYSLST DD SYSOUT=a //SYSPCH DD DUMMY //SYSIPT DD DSN=syntax.file.DDDLDEL,DISP=OLD
The JCL in TOOLJCL library member USMVSAM.S (z/VSE) allocates the VSAM work file. See in the chapter "Operations" for details.
* ----- ALLOCATE VSAM WORK FILE ------- 'USMVSAM' SAMPLE JCL -----
*
// EXEC IDCAMS,SIZE=AUTO
DELETE -
work.file.vsamext -
CLUSTER
DEFINE CLUSTER ( -
NAME(work.file.vsamext) -
TRACKS(prialloc secalloc) -
INDEXED -
VOLUMES(volser) -
KEYS(84 2) -
RECORDSIZE(228 228) -
usetype -
)
/*
/&
|
Copyright © 2014 CA.
All rights reserved.
|
|