Previous Topic: MessagesNext Topic: Extract Information from the Source Dictionary - z/VSE


Sample JCL

This appendix contains the following topics:

This section contains the following topics:

Introduction

Allocate the Syntax Files—z/OS

Allocate the VSAM Work File—z/OS

Extract Information from the Source Dictionary—z/OS

Export Syntax Files—z/OS

Import the Extract Tape--z/OS

Upload Syntax Files--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

Export Syntax Files--z/VSE

Import the Extract Tape—z/VSE

Upload Syntax Files—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

Export Syntax Files--z/VM

Import the Extract Tape--z/VM

Upload Syntax Files—z/VM

Delete Migrated Source from Source Dictionary - z/VM

Introduction

This appendix contains the z/OS and z/VSE JCL for the CA IDMS Dictionary Migrator.

File Assignments

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.

z/OS

z/VSE

z/VM

Allocate the Syntax Files—z/OS

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

Allocate the VSAM Work File—z/OS

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 -
                 )

Extract Information from the Source Dictionary—z/OS

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,..........

Export Syntax Files—z/OS

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,..........

Import the Extract Tape--z/OS

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=????????
            .
            .
            .

Upload Syntax Files--z/OS

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
 //*

Delete Migrated Source from Source Dictionary—z/OS

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

Allocate the VSAM Work File--z/VSE

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 -
                 )
  /*
  /&