Extract Information from the Source Dictionary

Sample JCL › Extract Information from the Source Dictionary - z/VSE

Extract Information from the Source Dictionary - z/VSE

The JCL in TOOLJCL library member USMXTRCT.S (z/VSE) allocates the work files, allocates the syntax files, extracts information from the source dictionary, compares the extract to the object dictionary, reports on the comparison, and produces the syntax files.

 *    ----- Dictionary Migrator STEP ----- 'USMXTRCT' SAMPLE JCL -----
 *     **** CREATE A SYSIDMS PARAMETER FILE *****
 // UPSI  1
 // OPTION   LOG,PARTDUMP
 // DLBL     anyname,'work.file.SYSIDMS',0,SD
 // EXTENT   SYS041,volser,,,948,1
 // ASSGN    SYS041,DISK,VOL=volser,SHR
 // EXEC     DITTO
 $$DITTO CSQ FILEOUT=anyname
 * SYSIDMS parameters.
 * For Local Mode specify :
 *
 DMCL=dmcl-name,LOCAL=ON,JOURNAL=OFF
 FILENAME=SYSIPT,FILETYPE=D,BLKSIZE=80,DEVADDR=SYSIPT
 *
 * For CV runs specify :
 *
 DMCL=dmcl-name,LOCAL=OFF,JOURNAL=OFF
 FILENAME=SYSIPT,FILETYPE=D,BLKSIZE=80,DEVADDR=SYSIPT
 /*
 *
 // OPTION PARTDUMP
 *  **** z/VSE library where CA IDMS Dictionary Migrator resides
 // DLBL    DBMS,'your.corelib'
 // EXTENT  ,volser
 *
 *  **** z/VSE library where CA IDMS/DB executable phases reside
 // DLBL    DBMS,'idms.corelib'
 // EXTENT  ,volser
 *
 // LIBDEF  PHASE,SEARCH=(dbms.sublib,idms.sublib)
 *
 *  ******* PARAMETER INPUT FOR DICT. MIGRATOR AND IDMS UTILITIES ******
 *
 // ASSGN   SYS011,SYSRDR                         SYNTAX FILE
 // ASSGN   SYS010,SYSPCH                         HOLD SYSPCH ASSGN
 // DLBL    IJSYSPH,'work.file.SYSIPT',0,SD       IJSYSPH IS USED TO
 // EXTENT         SYSPCH,volser,,,00100,050          CREATE VTOC ENTRY
    ASSGN          SYSPCH,DISK,VOL=volser,SHR         FOR SYSIPT ASSGN
    CLOSE          SYSPCH,SYS010
 // DLBL    IJSYSIN,'work.file.SYSIPT',0,SD       SAME FILE-ID AND
 // EXTENT         SYSIPT,volser,,,00100,050          TRACKS AS IJSYSPH
    ASSGN          SYSIPT,DISK,VOL=volser,SHR     PERMANENT ASSIGNMENT
 // DLBL    SYSIPT,'work.file.SYSIPT',0,SD        SAME FILE-ID AND
 // EXTENT         SYS012,volser,,,00100,050          TRACKS AS IJSYSPH
 // ASSGN          SYS012,DISK,VOL=volser,SHR
 *

 *  **** OUTPUT FROM IDMS UTILITIES AND INPUT TO Dictionary Migrator ***
 *
 // ASSGN   SYSPCH,IGN
 // DLBL    SYSPCH,'work.file.SYSPCH',0,SD
 // EXTENT         SYS018,volser,,,00150,200
 // DLBL    IDMSPCH,'work.file.SYSPCH',0,SD       SAME FILE-ID AND
 // EXTENT         SYS018,volser,,,00150,200          TRACKS AS SYSPCH
 // ASSGN          SYS018,DISK,VOL=volser,SHR
 *
 *  ************************ REPORT FILE *******************************
 *
 // ASSGN   SYS013,SYSLST
 *
 *  ************** Dictionary Migrator WORK FILES **********************
 *
 // DLBL    EXTRACT,'work.file.EXTRACT',0,SD
 // EXTENT         SYS015,volser,,,00350,200
 // ASSGN          SYS015,DISK,VOL=volser,SHR
 // DLBL    VSAMEXT,'vsam.file.VSAMEXT',0,VSAM
 // EXTENT         SYS016,volser
 // ASSGN          SYS016,DISK,VOL=volser,SHR
 // DLBL    SELECT,'work.file.SELECT',0,SD
 // EXTENT         SYS014,volser,,,00550,003
 // ASSGN          SYS014,DISK,VOL=volser,SHR
 // DLBL    VALDRPT,'work.file.VALDRPT',0,SD
 // EXTENT         SYS017,volser,,,00553,007
 // ASSGN          SYS017,DISK,VOL=volser,SHR
 // DLBL    WORKFIL,'work.file.WORKFIL',0,SD
 // EXTENT         SYS034,volser,,,00560,100
 // ASSGN          SYS034,DISK,VOL=volser,SHR
 // DLBL    WORKFL2,'work.file.WORKFL2',0,SD
 // EXTENT         SYS039,volser,,,00660,100
 // ASSGN          SYS039,DISK,VOL=volser,SHR
 *
 *  ******* SYNTAX FILES FROM DICT MIGRATOR FOR IDMS UTILITIES *********
 *
 // DLBL    RHDCDEL,'SYNTAX.FILE.RHDCDEL',0,SD     MAP & PANEL DELETES
 // EXTENT         SYS019,volser,,,00760,005
 // ASSGN          SYS019,DISK,VOL=volser,SHR
 // DLBL    SCHMDEL,'SYNTAX.FILE.SCHMDEL',0,SD     SCHEMA DELETES
 // EXTENT         SYS020,volser,,,00765,005
 // ASSGN          SYS020,DISK,VOL=volser,SHR
 // DLBL    SUBSDEL,'SYNTAX.FILE.SUBSDEL',0,SD     SUBSCHEMA DELETES
 // EXTENT         SYS021,volser,,,00770,005
 // ASSGN          SYS021,DISK,VOL=volser,SHR
 // DLBL    DDDLDEL,'SYNTAX.FILE.DDDLDEL',0,SD     ENTITY DELETES
 // EXTENT         SYS022,volser,,,00775,010
 // ASSGN          SYS022,DISK,VOL=volser,SHR
 // DLBL    DDDLUPD,'SYNTAX.FILE.DDDLUPD',0,SD     ENTITY ADD/MODIFIES
 // EXTENT         SYS023,volser,,,00785,100
 // ASSGN          SYS023,DISK,VOL=volser,SHR
 // DLBL    BCFUPD,'SYNTAX.FILE.BCFUPD',0,SD       SQL UPDATES
 // EXTENT         SYS040,volser,,,00950,003
 // ASSGN          SYS040,DISK,VOL=volser,SHR
 // DLBL    TABLLOD,'SYNTAX.FILE.TABLLOD',0,SD     TABLE LOAD MODULES
 // EXTENT         SYS024,volser,,,00885,005
 // ASSGN          SYS024,DISK,VOL=volser,SHR
 // DLBL    DDDLLOD,'SYNTAX.FILE.DDDLLOD',0,SD     ENTITY LOAD MODULES
 // EXTENT         SYS025,volser,,,00890,005
 // ASSGN          SYS025,DISK,VOL=volser,SHR
 // DLBL    SCHMUPD,'SYNTAX.FILE.SCHMUPD',0,SD     ADD SCHEMAS
 // EXTENT         SYS026,volser,,,00895,005
 // ASSGN          SYS026,DISK,VOL=volser,SHR
 // DLBL    SUBSUPD,'SYNTAX.FILE.SUBSUPD',0,SD     ADD SUBSCHEMA
 // EXTENT         SYS028,volser,,,00905,005
 // ASSGN          SYS028,DISK,VOL=volser,SHR
 // DLBL    SUBSLOD,'SYNTAX.FILE.SUBSLOD',0,SD     REGENERATE SUBSCHEMAS
 // EXTENT         SYS029,volser,,,00910,005
 // ASSGN          SYS029,DISK,VOL=volser,SHR
 // DLBL    RHDCUPD,'SYNTAX.FILE.RHDCUPD',0,SD     ADD PANELS & MAPS
 // EXTENT         SYS030,volser,,,00915,005
 // ASSGN          SYS030,DISK,VOL=volser,SHR
 // DLBL    RHDCLOD,'SYNTAX.FILE.RHDCLOD',0,SD     RECOMPILE MAPS
 // EXTENT         SYS031,volser,,,00920,005
 // ASSGN          SYS031,DISK,VOL=volser,SHR
 // DLBL    ADSOBGN,'SYNTAX.FILE.ADSOBGN',0,SD     REGENERATE DIALOGS
 // EXTENT         SYS032,volser,,,00930,005
 // ASSGN          SYS032,DISK,VOL=volser,SHR
 // DLBL    DDDLPGM,'SYNTAX.FILE.DDDLPGM',0,SD     ADD PROGRAM
 // EXTENT         SYS033,volser,,,00925,005
 // ASSGN          SYS033,DISK,VOL=volser,SHR
 // DLBL    ADSBTAT,'SYNTAX.FILE.ADSBTAT',0,SD     REGENERATE ADSA
 // EXTENT         SYS037,volser,,,00942,003
 // ASSGN          SYS037,DISK,VOL=volser,SHR
 // DLBL    USERUPD,'SYNTAX.FILE.USERUPD',0,SD     PASSWORD MIGRATION
 // EXTENT         SYS038,volser,,,00945,003
 // ASSGN          SYS038,DISK,VOL=volser,SHR
 *
 // DLBL    SYSIDMS,'work.file.SYSIDMS'
 // EXTENT  SYS041,volser
 // ASSGN   SYS041,DISK,VOL=volser,SHR
 // EXEC    USMGRTR,SIZE=(USMGRTR,400K)
 *
 *  ********************* Dictionary Migrator SYNTAX *******************
 PROCESS,
     RUN= ???????,
 *
 *** IDENTIFY SOURCE DICTIONARY
     IDSOURCE=(USER-ID,PASSWORD),
     DICT=????????,
 *
 *** IDENTIFY OBJECT DICTIONARY
     IDOBJECT=(USER-ID,PASSWORD),
     OBJDICT=????????
            .
            .
            .
 EXTRACT,..........
            .
            .
            .
 /*
 /&
 // JOB RESET SYSIPT
    CLOSE SYSIPT,SYSRDR
 /&

your.corelib—The file id of the z/VSE library into which CA IDMS Dictionary Migrator was installed.
idms.corelib—The file id of the z/VSE library which contains the CA IDMS utility executable phases.
volser—The volume serial number or generic assignment of the disk volume on which the library, as specified in the previous statement, resides.
.sublib—The name of the sublibrary of the z/VSE library specified by the previous filename.
vsam.file—It is recommended that you retain the DLBL name VSAMEXT within the vsam file name. Replace vsam.file with a name suitable to your site.
work.file—It is recommended that you retain the corresponding DLBL name within each file-id. Replace work.file with names suitable to your site.
syntax.file—It is recommended that you retain the corresponding DLBL name within each file-id. Replace syntax.file with names suitable to your site.
anyname—Any suitable name for your SYSIDMS file. Note that the name chosen must be identical to the FILEOUT value in the DITTO copy step.

Export Syntax Files--z/VSE

The JCL in TOOLJCL library member USMEXPRT.S (z/VSE) allocates the work files, allocates the syntax files, extracts information from the source dictionary and puts it onto disk, and produces syntax files on disk.

 *    ----- Dictionary Migrator STEP ----- 'USMEXPRT' SAMPLE JCL -----
 *
 *     **** CREATE A SYSIDMS PARAMETER FILE *****
 // UPSI  1
 // OPTION   LOG,PARTDUMP
 // DLBL     anyname,'work.file.SYSIDMS',0,SD
 // EXTENT   SYS041,volser,,,948,1
 // ASSGN    SYS041,DISK,VOL=volser,SHR
 // EXEC     DITTO
 $$DITTO CSQ FILEOUT=anyname
 * SYSIDMS parameters.
 * For Local Mode specify :
 *
 DMCL=dmcl-name,LOCAL=ON,JOURNAL=OFF
 FILENAME=SYSIPT,FILETYPE=D,BLKSIZE=80,DEVADDR=SYSIPT
 *
 * For CV runs specify :
 *
 DMCL=dmcl-name,LOCAL=OFF,JOURNAL=OFF
 FILENAME=SYSIPT,FILETYPE=D,BLKSIZE=80,DEVADDR=SYSIPT
 /*
 // OPTION PARTDUMP
 *  **** z/VSE library where CA IDMS Dictionary Migrator resides
 // DLBL    DBMS,'your.corelib'
 // EXTENT  ,volser
 *  **** z/VSE library where CA IDMS/DB executable phases reside
 // DLBL    IDMS,'idms.corelib'
 // EXTENT  ,volser
 *
 // LIBDEF  PHASE,SEARCH=(dbms.sublib,idms.sublib)
 *
 *  ******* PARAMETER INPUT FOR DICT. MIGRATOR AND IDMS UTILITIES ******
 *
 // ASSGN   SYS011,SYSRDR                         SYNTAX FILE
 // ASSGN   SYS010,SYSPCH                         HOLD SYSPCH ASSGN
 // DLBL    IJSYSPH,'work.file.sysipt',0,SD       IJSYSPH IS USED TO
 // EXTENT         SYSPCH,volser,,,00100,050          CREATE VTOC ENTRY
    ASSGN          SYSPCH,DISK,VOL=volser,SHR         FOR SYSIPT ASSGN
    CLOSE          SYSPCH,SYS010
 // DLBL    IJSYSIN,'work.file.sysipt',0,SD       SAME FILE-ID AND
 // EXTENT         SYSIPT,volser,,,00100,050          TRACKS AS IJSYSPH
    ASSGN          SYSIPT,DISK,VOL=volser,SHR     PERMANENT ASSIGNMENT
 // DLBL    SYSIPT,'work.file.sysipt',0,SD        SAME FILE-ID AND
 // EXTENT         SYS012,volser,,,00100,050          TRACKS AS IJSYSPH
 // ASSGN          SYS012,DISK,VOL=volser,SHR
 *
 *  **** OUTPUT FROM IDMS UTILITIES AND INPUT TO Dictionary Migrator ***
 *
 // ASSGN   SYSPCH,IGN
 // DLBL    SYSPCH,'work.file.SYSPCH',0,SD
 // EXTENT         SYS018,volser,,,00150,200
 // DLBL    IDMSPCH,'work.file.SYSPCH',0,SD       SAME FILE-ID AND
 // EXTENT         SYS018,volser,,,00150,200          TRACKS AS SYSPCH
 // ASSGN          SYS018,DISK,VOL=volser,SHR
 *
 *  ************************ REPORT FILE *******************************
 *
 // ASSGN   SYS013,SYSLST
 *
 *  ************** Dictionary Migrator WORK FILES **********************
 *
 *  ******* EXPORT EXTRACT FILE ON TAPE FOR INPUT TO IMPORT STAGE ******
 *
 // DLBL    EXTRACT,'WORK.FILE.EXTRACT'
 // EXTENT         SYS015,volser,,,00350,200
 // ASSGN          SYS015,DISK,VOL=volser,SHR
 // DLBL    SELECT,'WORK.FILE.SELECT',0,SD
 // EXTENT         SYS014,volser,,,00550,003
 // ASSGN          SYS014,DISK,VOL=volser,SHR
 // DLBL    WORKFIL,'WORK.FILE.WORKFIL',0,SD
 // EXTENT         SYS034,volser,,,00560,100
 // ASSGN          SYS034,DISK,VOL=volser,SHR
 // DLBL    WORKFL2,'WORK.FILE.WORKFL2',0,SD
 // EXTENT         SYS039,volser,,,00660,100
 // ASSGN          SYS039,DISK,VOL=volser,SHR
 *
 *  ******* SYNTAX FILES FROM DICT MIGRATOR FOR IDMS UTILITIES *********
 *
 // DLBL    RHDCDEL,'syntax.file.RHDCDEL',0,SD     MAP & PANEL DELETES
 // EXTENT         SYS019,volser,,,00760,005
 // ASSGN          SYS019,DISK,VOL=volser,SHR
 // DLBL    SCHMDEL,'syntax.file.SCHMDEL',0,SD     SCHEMA DELETES
 // EXTENT         SYS020,volser,,,00765,005
 // ASSGN          SYS020,DISK,VOL=volser,SHR
 // DLBL    SUBSDEL,'syntax.file.SUBSDEL',0,SD     SUBSCHEMA DELETES
 // EXTENT         SYS021,volser,,,00770,005
 // ASSGN          SYS021,DISK,VOL=volser,SHR
 // DLBL    DDDLDEL,'syntax.file.DDDLDEL',0,SD     ENTITY DELETES
 // EXTENT         SYS022,volser,,,00775,010
 // ASSGN          SYS022,DISK,VOL=volser,SHR
 // DLBL    DDDLUPD,'syntax.file.DDDLUPD',0,SD     ENTITY ADD/MODIFIES
 // EXTENT         SYS023,volser,,,00785,100
 // ASSGN          SYS023,DISK,VOL=volser,SHR
 // DLBL    BCFUPD,'syntax.file.BCFUPD',0,SD       SQL UPDATES
 // EXTENT         SYS040,volser,,,00950,003
 // ASSGN          SYS040,DISK,VOL=volser,SHR
 // DLBL    TABLLOD,'syntax.file.TABLLOD',0,SD     TABLE LOAD MODULES
 // EXTENT         SYS024,volser,,,00885,005
 // ASSGN          SYS024,DISK,VOL=volser,SHR
 // DLBL    DDDLLOD,'syntax.file.DDDLLOD',0,SD     ENTITY LOAD MODULES
 // EXTENT         SYS025,volser,,,00890,005
 // ASSGN          SYS025,DISK,VOL=volser,SHR
 // DLBL    SCHMUPD,'syntax.file.SCHMUPD',0,SD     ADD SCHEMAS
 // EXTENT         SYS026,volser,,,00895,005
 // ASSGN          SYS026,DISK,VOL=volser,SHR
 // DLBL    SUBSUPD,'syntax.file.SUBSUPD',0,SD     ADD SUBSCHEMA
 // EXTENT         SYS028,volser,,,00905,005
 // ASSGN          SYS028,DISK,VOL=volser,SHR
 // DLBL    SUBSLOD,'syntax.file.SUBSLOD',0,SD     REGENERATE SUBSCHEMAS
 // EXTENT         SYS029,volser,,,00910,005
 // ASSGN          SYS029,DISK,VOL=volser,SHR
 // DLBL    RHDCUPD,'syntax.file.RHDCUPD',0,SD     ADD PANELS & MAPS
 // EXTENT         SYS030,volser,,,00915,005
 // ASSGN          SYS030,DISK,VOL=volser,SHR
 // DLBL    RHDCLOD,'syntax.file.RHDCLOD',0,SD     RECOMPILE MAPS
 // EXTENT         SYS031,volser,,,00920,005
 // ASSGN          SYS031,DISK,VOL=volser,SHR
 // DLBL    ADSOBGN,'syntax.file.ADSOBGN',0,SD     REGENERATE DIALOGS
 // EXTENT         SYS032,volser,,,00930,005
 // ASSGN          SYS032,DISK,VOL=volser,SHR
 // DLBL    DDDLPGM,'syntax.file.DDDLPGM',0,SD     ADD PROGRAM
 // EXTENT         SYS033,volser,,,00925,005
 // ASSGN          SYS033,DISK,VOL=volser,SHR
 // DLBL    ADSBTAT,'syntax.file.ADSBTAT',0,SD     REGENERATE ADSA
 // EXTENT         SYS037,volser,,,00942,003
 // ASSGN          SYS037,DISK,VOL=volser,SHR
 // DLBL    USERUPD,'syntax.file.USERUPD',0,SD     PASSWORD UPDATE
 // EXTENT         SYS038,volser,,,00945,003
 // ASSGN          SYS038,DISK,VOL=volser,SHR
 *
 // DLBL    SYSIDMS,'work.file.SYSIDMS'
 // EXTENT  SYS041,volser
 // ASSGN   SYS041,DISK,VOL=volser,SHR
 // EXEC    USMGRTR,SIZE=(USMGRTR,400K)
 *
 *  ********************* Dictionary Migrator SYNTAX *******************
 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,..........
 /*
 /&
 // JOB RESET SYSIPT
    CLOSE SYSIPT,SYSRDR
 /&

your.corelib—The file id of the z/VSE library into which CA IDMS Dictionary Migrator was installed.
idms.corelib—The file id of the z/VSE library which contains the CA IDMS utility executable phases.
volser—The volume serial number or generic assignment of the disk volume on which the library, as specified in the previous statement, resides.
.sublib—The name of the sublibrary of the z/VSE library specified by the previous filename.
work.file—It is recommended that you retain the corresponding DLBL name within each file-id. Replace work.file with names suitable to your site.
syntax.file—It is recommended that you retain the corresponding DLBL name within each file-id. Replace syntax.file with names suitable to your site.
anyname—Any suitable name for your SYSIDMS file. Note that the name chosen must be identical to the FILEOUT value in the DITTO copy step.

Import the Extract Tape—z/VSE

The JCL in TOOLJCL library member USMIMPRT.S (z/VSE) 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 in the chapter "Operations."

 *    ----- Dictionary Migrator STEP ----- 'USMIMPRT' SAMPLE JCL -----
 *
 *     **** CREATE A SYSIDMS PARAMETER FILE *****
 // UPSI  1
 // OPTION   LOG,PARTDUMP
 // DLBL     anyname,'work.file.SYSIDMS',0,SD
 // EXTENT   SYS041,volser,,,948,1
 // ASSGN    SYS041,DISK,VOL=volser,SHR
 // EXEC     DITTO
 $$DITTO CSQ FILEOUT=anyname
 * SYSIDMS parameters.
 * For Local Mode specify :
 *
 DMCL=dmcl-name,LOCAL=ON,JOURNAL=OFF
 FILENAME=SYSIPT,FILETYPE=D,BLKSIZE=80,DEVADDR=SYSIPT
 *
 * For CV runs specify :
 *
 DMCL=dmcl-name,LOCAL=OFF,JOURNAL=OFF
 FILENAME=SYSIPT,FILETYPE=D,BLKSIZE=80,DEVADDR=SYSIPT
 /*
 // OPTION PARTDUMP
 *  **** z/VSE library where CA IDMS Dictionary Migrator resides
 // DLBL    DBMS,'your.corelib'
 // EXTENT  ,volser
 *  **** z/VSE library where CA IDMS/DB executable phases reside
 // DLBL    IDMS,'your.corelib'
 // EXTENT  ,volser
 *
 // LIBDEF  PHASE,SEARCH=(dbms.sublib,idms.sublib)
 *
 *  ******* PARAMETER INPUT FOR DICT. MIGRATOR AND IDMS UTILITIES ******
 *
 // ASSGN   SYS011,SYSRDR                         SYNTAX FILE
 // ASSGN   SYS010,SYSPCH                         HOLD SYSPCH ASSGN
 // DLBL    IJSYSPH,'work.file.sysipt',0,SD       IJSYSPH IS USED TO
 // EXTENT         SYSPCH,volser,,,00100,050          CREATE VTOC ENTRY
    ASSGN          SYSPCH,DISK,VOL=volser,SHR         FOR SYSIPT ASSGN
    CLOSE          SYSPCH,SYS010
 // DLBL    IJSYSIN,'work.file.sysipt',0,SD       SAME FILE-ID AND
 // EXTENT         SYSIPT,volser,,,00100,050          TRACKS AS IJSYSPH
    ASSGN          SYSIPT,DISK,VOL=volser,SHR     PERMANENT ASSIGNMENT
 // DLBL    SYSIPT,'work.file.sysipt',0,SD        SAME FILE-ID AND
 // EXTENT         SYS012,volser,,,00100,050          TRACKS AS IJSYSPH
 // ASSGN          SYS012,DISK,VOL=volser,SHR
 *
 *  **** OUTPUT FROM IDMS UTILITIES AND INPUT TO Dictionary Migrator ***
 *
 // ASSGN   SYSPCH,IGN
 // DLBL    SYSPCH,'work.file.SYSPCH',0,SD
 // EXTENT         SYS018,volser,,,00150,200
 // DLBL    IDMSPCH,'work.file.SYSPCH',0,SD       SAME FILE-ID AND
 // EXTENT         SYS018,volser,,,00150,200          TRACKS AS SYSPCH
 // ASSGN          SYS018,DISK,VOL=volser,SHR
 *
 *  ************************ REPORT FILE *******************************
 *
 // ASSGN   SYS013,SYSLST
 *
 *  ************** Dictionary Migrator WORK FILES **********************
 *
 // DLBL    EXTRACT,'WORK.FILE.EXTRACT'
 // EXTENT         SYS015,volser,,,00350,200
 // ASSGN          SYS015,DISK,VOL=volser,SHR
 // DLBL    VSAMEXT,'WORK.FILE.VSAMEXT',0,VSAM
 // EXTENT         SYS016,volser
 // ASSGN          SYS016,DISK,VOL=volser,SHR
 // DLBL    SELECT,'WORK.FILE.SELECT',0,SD
 // EXTENT         SYS014,volser,,,00550,003
 // ASSGN          SYS014,DISK,VOL=volser,SHR
 // DLBL    VALDRPT,'WORK.FILE.VALDRPT',0,SD
 // EXTENT         SYS017,volser,,,00553,007
 // ASSGN          SYS017,DISK,VOL=volser,SHR
 // DLBL    WORKFIL,'WORK.FILE.WORKFIL',0,SD
 // EXTENT         SYS034,volser,,,00560,100
 // ASSGN          SYS034,DISK,VOL=volser,SHR
 // DLBL    WORKFL2,'WORK.FILE.WORKFL2',0,SD
 // EXTENT         SYS039,volser,,,00660,100
 // ASSGN          SYS039,DISK,VOL=volser,SHR
 *
 *  ******* SYNTAX FILES FROM DICT MIGRATOR FOR IDMS UTILITIES *********
 *
 // DLBL    RHDCDEL,'syntax.file.RHDCDEL',0,SD     MAP & PANEL DELETES
 // EXTENT         SYS019,volser,,,00760,005
 // ASSGN          SYS019,DISK,VOL=volser,SHR
 // DLBL    SCHMDEL,'syntax.file.SCHMDEL',0,SD     SCHEMA DELETES
 // EXTENT         SYS020,volser,,,00765,005
 // ASSGN          SYS020,DISK,VOL=volser,SHR
 // DLBL    SUBSDEL,'syntax.file.SUBSDEL',0,SD     SUBSCHEMA DELETES
 // EXTENT         SYS021,volser,,,00770,005
 // ASSGN          SYS021,DISK,VOL=volser,SHR
 // DLBL    DDDLDEL,'syntax.file.DDDLDEL',0,SD     ENTITY DELETES
 // EXTENT         SYS022,volser,,,00775,010
 // ASSGN          SYS022,DISK,VOL=volser,SHR
 // DLBL    DDDLUPD,'syntax.file.DDDLUPD',0,SD     ENTITY ADD/MODIFIES
 // EXTENT         SYS023,volser,,,00785,100
 // ASSGN          SYS023,DISK,VOL=volser,SHR
 // DLBL    BCFUPD,'syntax.file.BCFUPD',0,SD       SQL UPDATES
 // EXTENT         SYS040,volser,,,00950,003
 // ASSGN          SYS040,DISK,VOL=volser,SHR
 // DLBL    TABLLOD,'syntax.file.TABLLOD',0,SD     TABLE LOAD MODULES
 // EXTENT         SYS024,volser,,,00885,005
 // ASSGN          SYS024,DISK,VOL=volser,SHR
 // DLBL    DDDLLOD,'syntax.file.DDDLLOD',0,SD     ENTITY LOAD MODULES
 // EXTENT         SYS025,volser,,,00890,005
 // ASSGN          SYS025,DISK,VOL=volser,SHR
 // DLBL    SCHMUPD,'syntax.file.SCHMUPD',0,SD     ADD SCHEMAS
 // EXTENT         SYS026,volser,,,00895,005
 // ASSGN          SYS026,DISK,VOL=volser,SHR
 // DLBL    SUBSUPD,'syntax.file.SUBSUPD',0,SD     ADD SUBSCHEMA
 // EXTENT         SYS028,volser,,,00905,005
 // ASSGN          SYS028,DISK,VOL=volser,SHR
 // DLBL    SUBSLOD,'syntax.file.SUBSLOD',0,SD     REGENERATE SUBSCHEMAS
 // EXTENT         SYS029,volser,,,00910,005
 // ASSGN          SYS029,DISK,VOL=volser,SHR
 // DLBL    RHDCUPD,'syntax.file.RHDCUPD',0,SD     ADD PANELS & MAPS
 // EXTENT         SYS030,volser,,,00915,005
 // ASSGN          SYS030,DISK,VOL=volser,SHR
 // DLBL    RHDCLOD,'syntax.file.RHDCLOD',0,SD     RECOMPILE MAPS
 // EXTENT         SYS031,volser,,,00920,005
 // ASSGN          SYS031,DISK,VOL=volser,SHR
 // DLBL    ADSOBGN,'syntax.file.ADSOBGN',0,SD     REGENERATE DIALOGS
 // EXTENT         SYS032,volser,,,00930,005
 // ASSGN          SYS032,DISK,VOL=volser,SHR
 // DLBL    DDDLPGM,'syntax.file.DDDLPGM',0,SD     ADD PROGRAM
 // EXTENT         SYS033,volser,,,00925,005
 // ASSGN          SYS033,DISK,VOL=volser,SHR
 // DLBL    ADSBTAT,'syntax.file.ADSBTAT',0,SD     REGENERATE ADSA
 // EXTENT         SYS037,volser,,,00942,003
 // ASSGN          SYS037,DISK,VOL=volser,SHR
 // DLBL    USERUPD,'syntax.file.USERUPD',0,SD     PASSWORD UPDATE
 // EXTENT         SYS038,volser,,,00945,003
 // ASSGN          SYS038,DISK,VOL=volser,SHR
 *
 // DLBL    SYSIDMS,'work.file.SYSIDMS'
 // EXTENT  SYS041,volser
 // ASSGN   SYS041,DISK,VOL=volser,SHR
 // EXEC    USMGRTR,SIZE=(USMGRTR,400K)
 *  ********************* Dictionary Migrator SYNTAX *******************
 PROCESS,
     RUN=IMPORT,
 *
 *
 *     IDENTIFY OBJECT DICTIONARY
 *
     IDOBJECT=(USER-ID,PASSWORD),
     OBJDICT=????????
            .
            .
 /*
 /&
 // JOB RESET SYSIPT
    CLOSE SYSIPT,SYSRDR
 /&

your.corelib—The file id of the z/VSE library into which CA IDMS Dictionary Migrator was installed.
idms.corelib—The file id of the z/VSE library which contains the CA IDMS utility executable phases.
volser—The volume serial number or generic assignment of the disk volume on which the library, as specified in the previous statement, resides.
.sublib—The name of the sublibrary of the z/VSE library specified by the previous filename.
work.file—It is recommended that you retain the corresponding DLBL name within each file-id. Replace work. file with names suitable to your site.
syntax.file—It is recommended that you retain the corresponding DLBL name within each file-id. Replace syntax.fil e with names suitable to your site.
anyname—Any suitable name for your SYSIDMS file. Note that the name chosen must be identical to the FILEOUT value in the DITTO copy step.

Upload Syntax Files—z/VSE

The JCL in TOOLJCL library member USMLOAD1.S (z/VSE) is used to upload syntax files to the object dictionary usingthe 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 chapter "Operations."

Note that 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 ---
 *
 // JOB RHDCDEL
 * *-------------------------------------------------------------------*
 * *RHDCDEL - DELETE PANELS AND MAPS                                   *
 * *-------------------------------------------------------------------*
 *     **** CREATE A SYSIDMS PARAMETER FILE *****
 // UPSI  1
 // OPTION   LOG,PARTDUMP
 // DLBL     anyname,'work.file.SYSIDMS',0,SD
 // EXTENT   SYS041,volser,,,nnnn,1
 // ASSGN    SYS041,DISK,VOL=volser,SHR
 // EXEC     DITTO
 $$DITTO CSQ FILEOUT=anyname
 * SYSIDMS parameters.
 * For Local Mode specify :
 *
 DMCL=dmcl-name,LOCAL=ON,JOURNAL=OFF
 FILENAME=SYSIPT,FILETYPE=D,BLKSIZE=80,DEVADDR=SYSIPT
 *
 * For CV runs specify :
 *
 DMCL=dmcl-name,LOCAL=OFF,JOURNAL=OFF
 FILENAME=SYSIPT,FILETYPE=D,BLKSIZE=80,DEVADDR=SYSIPT
 /*
 // upsi 00000000
 *  **** z/VSE library where CA IDMS Dictionary Migrator resided
 // DLBL    DBMS,'your.corelib'
 // EXTENT  ,volser
 *
 *  **** z/VSE library where CA IDMS/DB executable phases reside
 // DLBL    IDMS,'idms.corelib'
 // EXTENT  ,volser
 *
 // LIBDEF  PHASE,SEARCH=(dbms.sublib,idms.sublib)
 *
 // DLBL   IJSYSIN,'syntax.file.RHDCDEL',0,SD
 // EXTENT SYSIPT,volser
    ASSGN  SYSIPT,DISK,VOL=volser,SHR
 // DLBL    SYSIDMS,'work.file.SYSIDMS'
 // EXTENT  SYS041,volser
 // ASSGN   SYS041,DISK,VOL=volser,SHR
 // EXEC   RHDCMAP1
 *
 /&
 // JOB RESET SYSIPT
   CLOSE  SYSIPT,SYSRDR
 /&
 // JOB SCHMDEL
 *-------------------------------------------------------------------*
 *SCHMDEL - DELETE SCHEMA, AND SUBSCHEMA SOURCE                      *
 *-------------------------------------------------------------------*
 // upsi 00000000
 *  **** z/VSE library where CA IDMS Dictionary Migrator resided
 // DLBL    DBMS,'your.corelib'
 // EXTENT  ,volser
 *
 *  **** z/VSE library where CA IDMS/DB executable phases reside
 // DLBL    IDMS,'idms.corelib'
 // EXTENT  ,volser
 *
 // LIBDEF  PHASE,SEARCH=(dbms.sublib,idms.sublib)
 *
 // DLBL   IJSYSIN,'syntax.file.SCHMDEL',0,SD
 // EXTENT SYSIPT,volser
    ASSGN  SYSIPT,DISK,VOL=volser,SHR
 // DLBL    SYSIDMS,'work.file.SYSIDMS'
 // EXTENT  SYS041,volser
 // ASSGN   SYS041,DISK,VOL=volser,SHR
 // EXEC   IDMSCHEM
 *
 /&
 // JOB RESET SYSIPT
   CLOSE  SYSIPT,SYSRDR
 /&
 // JOB SUBSDEL
 *-------------------------------------------------------------------*
 *SUBSDEL - DELETE SUBSCHEMA                                         *
 *N O T E:  THIS IS REQUIRED ONLY IF A SUBSCHEMA WAS MIGRATED        *
 *          WITHOUT ITS SCHEMA                                       *
 * *-------------------------------------------------------------------*
 // upsi 00000000
 *  **** z/VSE library where CA IDMS Dictionary Migrator resided
 // DLBL    DBMS,'your.corelib'
 // EXTENT  ,volser
 *
 *  **** z/VSE library where CA IDMS/DB executable phases reside
 // DLBL    IDMS,'idms.corelib'
 // EXTENT  ,volser
 *
 // LIBDEF  PHASE,SEARCH=(dbms.sublib,idms.sublib)
 *
 // DLBL   IJSYSIN,'syntax.file.SUBSDEL',0,SD
 // EXTENT SYSIPT,volser
    ASSGN  SYSIPT,DISK,VOL=volser,SHR
 // DLBL    SYSIDMS,'work.file.SYSIDMS'
 // EXTENT  SYS041,volser
 // ASSGN   SYS041,DISK,VOL=volser,SHR
 // EXEC   IDMSUBSC
 *
 /&
 // JOB RESET SYSIPT
   CLOSE  SYSIPT,SYSRDR
 /&
 // JOB DDDLDEL
 *-------------------------------------------------------------------*
 *DDDLDEL - DELETE OTHER ENTITIES                                    *
 *-------------------------------------------------------------------*
 // upsi 00000000
   **** z/VSE library where CA IDMS Dictionary Migrator resided
 // DLBL    DBMS,'your.corelib'
 // EXTENT  ,volser
 *
 *  **** z/VSE library where CA IDMS/DB executable phases reside
 // DLBL    IDMS,'idms.corelib'
 // EXTENT  ,volser
 *
 // LIBDEF  PHASE,SEARCH=(dbms.sublib,idms.sublib)
 *
 * // DLBL   IJSYSIN,'syntax.file.DDDLDEL',0,SD
 * // EXTENT SYSIPT,volser
 *    ASSGN  SYSIPT,DISK,VOL=volser,SHR
 // DLBL    SYSIDMS,'work.file.SYSIDMS'
 // EXTENT  SYS041,volser
 // ASSGN   SYS041,DISK,VOL=volser,SHR
 // EXEC   IDMSDDDL
 *
 /&
 // JOB RESET SYSIPT
    CLOSE  SYSIPT,SYSRDR
 /&
 // JOB DDDLUPD
 *-------------------------------------------------------------------*
 *DDDLUPD - ADD/MODIFY CLASS, ATTRIBUTE, SYSTEM, RECORD, ELEMENT,    *
 *          MESSAGE, MODULE, AND TABLE ENTITIES                      *
 *-------------------------------------------------------------------*
 // upsi 00000000
   **** z/VSE library where CA IDMS Dictionary Migrator resided
 // DLBL    DBMS,'your.corelib'
 // EXTENT  ,volser
 *
   **** z/VSE library where CA IDMS/DB executable phases reside
 // DLBL    IDMS,'idms.corelib'
 // EXTENT  ,volser
 *
 // LIBDEF  PHASE,SEARCH=(dbms.sublib,idms.sublib)
 *
 // DLBL   IJSYSIN,'syntax.file.DDDLUPD',0,SD
 // EXTENT SYSIPT,volser
    ASSGN  SYSIPT,DISK,VOL=volser,SHR
 // DLBL    SYSIDMS,'work.file.SYSIDMS'
 // EXTENT  SYS041,volser
 // ASSGN   SYS041,DISK,VOL=volser,SHR
 // EXEC   IDMSDDDL
 *
 /&
 // JOB RESET SYSIPT
   CLOSE  SYSIPT,SYSRDR
 /&
 /&
 // JOB TABLLOD
 *-------------------------------------------------------------------*
 *TABLLOD - GENERATE TABLE LOAD MODULES                              *
 *-------------------------------------------------------------------*
 // upsi 00000000
 *  **** z/VSE library where CA IDMS Dictionary Migrator resided
 // DLBL    DBMS,'your.corelib'
 // EXTENT  ,volser
 *
 *  **** z/VSE library where CA IDMS/DB executable phases reside
 // DLBL    IDMS,'idms.corelib'
 // EXTENT  ,volser
 *
 // LIBDEF  PHASE,SEARCH=(dbms.sublib,idms.sublib)
 *
 // DLBL   IJSYSIN,'syntax.file.TABLLOD',0,SD
 // EXTENT SYSIPT,volser
    ASSGN  SYSIPT,DISK,VOL=volser,SHR
 // DLBL    SYSIDMS,'work.file.SYSIDMS'
 // EXTENT  SYS041,volser
 // ASSGN   SYS041,DISK,VOL=volser,SHR
 // EXEC   IDMSDDDL
 *
 /&
 // JOB RESET SYSIPT
   CLOSE  SYSIPT,SYSRDR
 /&
 // JOB DDDLLOD
 *-------------------------------------------------------------------*
 *DDDLLOD - ADD/MODIFY LOAD MODULES FOR SUBSCHEMA, MAP, MAP EDIT     *
 *          TABLE, AND DIALOG                                        *
 *-------------------------------------------------------------------*
 // upsi 00000000
 *  **** z/VSE library where CA IDMS Dictionary Migrator resided
 // DLBL    DBMS,'your.corelib'
 // EXTENT  ,volser
 *
 *  **** z/VSE library where CA IDMS/DB executable phases reside
 // DLBL    IDMS,'idms.corelib'
 // EXTENT  ,volser
 *
 // LIBDEF  PHASE,SEARCH=(dbms.sublib,idms.sublib)
 *
 // DLBL   IJSYSIN,'syntax.file.DDDLLOD',0,SD
 // EXTENT SYSIPT,volser
    ASSGN  SYSIPT,DISK,VOL=volser,SHR
 // DLBL    SYSIDMS,'work.file.SYSIDMS'
 // EXTENT  SYS041,volser
 // ASSGN   SYS041,DISK,VOL=volser,SHR
 // EXEC   IDMSDDDL

 /&
 // JOB RESET SYSIPT
   CLOSE  SYSIPT,SYSRDR
 /&
 // JOB SCHMUPD
 *-------------------------------------------------------------------*
 *SCHMUPD - ADD SCHEMA SOURCE                                        *
 *-------------------------------------------------------------------*
 // upsi 00000000
 *  **** z/VSE library where CA IDMS Dictionary Migrator resided
 // DLBL    DBMS,'your.corelib'
 // EXTENT  ,volser
 *
 *  **** z/VSE library where CA IDMS/DB executable phases reside
 // DLBL    IDMS,'idms.corelib'
 // EXTENT  ,volser
 *
 // LIBDEF  PHASE,SEARCH=(dbms.sublib,idms.sublib)
 *
 // DLBL   IJSYSIN,'syntax.file.SCHMUPD',0,SD
 // EXTENT SYSIPT,volser
    ASSGN  SYSIPT,DISK,VOL=volser,SHR
 // DLBL    SYSIDMS,'work.file.SYSIDMS'
 // EXTENT  SYS041,volser
 // ASSGN   SYS041,DISK,VOL=volser,SHR
 // EXEC   IDMSCHEM
 *                                                                               /&
 // JOB RESET SYSIPT
   CLOSE  SYSIPT,SYSRDR
 /&
 // JOB SUBSUPD
 *-------------------------------------------------------------------*
 *SUBSUPD - ADD SUBSCHEMA SOURCE                                     *
 *-------------------------------------------------------------------*
 // upsi 00000000
 *  **** z/VSE library where CA IDMS Dictionary Migrator resided
 // DLBL    DBMS,'your.corelib'
 // EXTENT  ,volser
 *
 *  **** z/VSE library where CA IDMS/DB executable phases reside
 // DLBL    IDMS,'idms.corelib'
 // EXTENT  ,volser
 *
 // LIBDEF  PHASE,SEARCH=(dbms.sublib,idms.sublib)
 *
 // DLBL   IJSYSIN,'syntax.file.SUBSUPD',0,SD
 // EXTENT SYSIPT,volser
    ASSGN  SYSIPT,DISK,VOL=volser,SHR
 // DLBL    SYSIDMS,'work.file.SYSIDMS'
 // EXTENT  SYS041,volser
 // ASSGN   SYS041,DISK,VOL=volser,SHR
 // EXEC   IDMSUBSC
 *
 /&
 // JOB RESET SYSIPT
   CLOSE  SYSIPT,SYSRDR
 /&
 // JOB SUBSLOD
 *-------------------------------------------------------------------*
 *SUBSLOD - GENERATE SUBSCHEMA LOAD MODULE                           *
 *-------------------------------------------------------------------*
 // upsi 00000000
 *  **** z/VSE library where CA IDMS Dictionary Migrator resided
 // DLBL    DBMS,'your.corelib'
 // EXTENT  ,volser
 *
 *  **** z/VSE library where CA IDMS/DB executable phases reside
 // DLBL    IDMS,'idms.corelib'
 // EXTENT  ,volser
 *
 // LIBDEF  PHASE,SEARCH=(dbms.sublib,idms.sublib)
 *
 // DLBL   IJSYSIN,'syntax.file.SUBSLOD',0,SD
 // EXTENT SYSIPT,volser
    ASSGN  SYSIPT,DISK,VOL=volser,SHR
 // DLBL    SYSIDMS,'work.file.SYSIDMS'
 // EXTENT  SYS041,volser
 // ASSGN   SYS041,DISK,VOL=volser,SHR
 // EXEC   IDMSUBSC
 *
 /&
 // JOB RESET SYSIPT
   CLOSE  SYSIPT,SYSRDR
 /&
 // JOB RHDCUPD
 *-------------------------------------------------------------------*
 *RHDCUPD - ADD/MODIFY PANEL AND MAP SYNTAX                          *
 *-------------------------------------------------------------------*
 // upsi 00000000
 *  **** z/VSE library where CA IDMS Dictionary Migrator resided
 // DLBL    DBMS,'your.corelib'
 // EXTENT  ,volser
 *
 *  **** z/VSE library where CA IDMS/DB executable phases reside
 // DLBL    IDMS,'idms.corelib'
 // EXTENT  ,volser
 *
 // LIBDEF  PHASE,SEARCH=(dbms.sublib,idms.sublib)
 *
 // DLBL   IJSYSIN,'syntax.file.RHDCUPD',0,SD
 // EXTENT SYSIPT,volser
    ASSGN  SYSIPT,DISK,VOL=volser,SHR
 // DLBL    SYSIDMS,'work.file.SYSIDMS'
 // EXTENT  SYS041,volser
 // ASSGN   SYS041,DISK,VOL=volser,SHR
 // EXEC   RHDCMAP1
 *
 /&
 // JOB RESET SYSIPT
   CLOSE  SYSIPT,SYSRDR
 /&
 // JOB RHDCLOD
 *-------------------------------------------------------------------*
 *RHDCLOD - COMPILE MAP                                              *
 *-------------------------------------------------------------------*
 // upsi 00000000
 *  **** z/VSE library where CA IDMS Dictionary Migrator resided
 // DLBL    DBMS,'your.corelib'
 // EXTENT  ,volser
 *
 *  **** z/VSE library where CA IDMS/DB executable phases reside
 // DLBL    IDMS,'idms.corelib'
 // EXTENT  ,volser
 *
 // LIBDEF  PHASE,SEARCH=(dbms.sublib,idms.sublib)
 *
 // DLBL   IJSYSIN,'syntax.file.RHDCLOD',0,SD
 // EXTENT SYSIPT,volser
    ASSGN  SYSIPT,DISK,VOL=volser,SHR
 // DLBL    SYSIDMS,'work.file.SYSIDMS'
 // EXTENT  SYS041,volser
 // ASSGN   SYS041,DISK,VOL=volser,SHR
 // EXEC   RHDCMPUT
 *
 /&
 // JOB RESET SYSIPT
   CLOSE  SYSIPT,SYSRDR
 /&
 // JOB ADSOBGN
 *-------------------------------------------------------------------*
 *ADSOBGN - GENERATE ADS DIALOG                                      *
 *N O T E:  THIS STEP CAN ONLY BE EXECUTED IF DIALOG LOAD MODULES    *
 *          WERE MIGRATED.                                           *
 *-------------------------------------------------------------------*
 // upsi 00000000
 *  **** z/VSE library where CA IDMS Dictionary Migrator resided
 // DLBL    DBMS,'your.corelib'
 // EXTENT  ,volser
 *
 *  **** z/VSE library where CA IDMS/DB executable phases reside
 // DLBL    IDMS,'idms.corelib'
 // EXTENT  ,volser
 *
 // LIBDEF  PHASE,SEARCH=(dbms.sublib,idms.sublib)
 *
 // DLBL   IJSYSIN,'syntax.file.ADSOBGN',0,SD
 // EXTENT SYSIPT,volser
    ASSGN  SYSIPT,DISK,VOL=volser,SHR
 // DLBL    SYSIDMS,'work.file.SYSIDMS'
 // EXTENT  SYS041,volser
 // ASSGN   SYS041,DISK,VOL=volser,SHR
 // EXEC   ADSOBCOM
 *
 /&
 // JOB RESET SYSIPT
   CLOSE  SYSIPT,SYSRDR
 /&
 // JOB DDDLPGM
 *-------------------------------------------------------------------*
 *DDDLPGM - ADD/MODIFY PROGRAM SYNTAX                                *
 *-------------------------------------------------------------------*
 // upsi 00000000
 *  **** z/VSE library where CA IDMS Dictionary Migrator resided
 // DLBL    DBMS,'your.corelib'
 // EXTENT  ,volser
 *
 *  **** z/VSE library where CA IDMS/DB executable phases reside
 // DLBL    IDMS,'idms.corelib'
 // EXTENT  ,volser
 *
 // LIBDEF  PHASE,SEARCH=(dbms.sublib,idms.sublib)
 *
 // DLBL   IJSYSIN,'syntax.file.DDDLPGM',0,SD
 // EXTENT SYSIPT,volser
    ASSGN  SYSIPT,DISK,VOL=volser,SHR
 // DLBL    SYSIDMS,'work.file.SYSIDMS'
 // EXTENT  SYS041,volser
 // ASSGN   SYS041,DISK,VOL=volser,SHR
 // EXEC   IDMSDDDL
 *
 /&
 // JOB RESET SYSIPT
   CLOSE  SYSIPT,SYSRDR
 /&
 *-------------------------------------------------------------------*
 *ADSBTAT - UPDATE TASK APPLICATION TABLE.                           *
 *          IF THERE IS APPLICATION WHICH USES THE REVISED ADSA,     *
 *          EXECUTE THIS STEP.                                       *
 *-------------------------------------------------------------------*
 // upsi 00000000
 *  **** z/VSE library where CA IDMS Dictionary Migrator resided
 // DLBL    DBMS,'your.corelib'
 // EXTENT  ,volser
 *
 *  **** z/VSE library where CA IDMS/DB executable phases reside
 // DLBL    IDMS,'idms.corelib'
 // EXTENT  ,volser
 *
 // LIBDEF  PHASE,SEARCH=(dbms.sublib,idms.sublib)
 *
 // DLBL   IJSYSIN,'syntax.file.ADSBTAT',0,SD
 // EXTENT SYSIPT,volser
    ASSGN  SYSIPT,DISK,VOL=volser,SHR
 // DLBL    SYSIDMS,'work.file.SYSIDMS'
 // EXTENT  SYS041,volser
 // ASSGN   SYS041,DISK,VOL=volser,SHR
 // EXEC   ADSOBTAT
 *
 //*
 //*-------------------------------------------------------------------*
 //* BCFUPD - ADD SQL ENTITY DEFINITIONS                               *
 //*                                                                   *
 //*-------------------------------------------------------------------*
 // upsi 00000000
 // **** z/VSE library where CA IDMS/DB executable phases reside
 // DLBL    IDMS 'idms.corelib'
 // EXTENT  ,volser
 *
 // LIBDEF  PHASE,SEARCH=(idms.sublib)
 *
 // DLBL    IJSYSIN,'syntax.file.BCFUPD',0,SD
 // EXTENT  SYSIPT,volser
 // ASSGN   SYSIPT,DISK,VOL=volser,SHR
 // DLBL    SYSIDMS,'work.file.SYSIDMS'
 // EXTENT  SYS041,volser
 // ASSGN   SYS041,DISK,VOL=volser,SHR
 // EXEC    IDMSBCF
 /&
 // JOB RESET SYSIPT
   CLOSE  SYSIPT,SYSRDR
 /&
 // JOB USMULOD
 *-------------------------------------------------------------------*
 *USMULOD - MODIFY MIGRATED USER-PASSWORDS. DO NOT RUN THIS STEP     *
 *          IS DISCONNECT=USER WAS SPECIFIED.                        *
 *-------------------------------------------------------------------*
 // upsi 00000000
 *  **** z/VSE library where CA IDMS Dictionary Migrator resided
 // DLBL    DBMS,'your.corelib'
 // EXTENT  ,volser
 *
 *  **** z/VSE library where CA IDMS/DB executable phases reside
 // DLBL    IDMS,'idms.corelib'
 // EXTENT  ,volser
 *
 // LIBDEF  PHASE,SEARCH=(dbms.sublib,idms.sublib)
 *
 // ASSGN  SYS013,SYSLST
 *
 // DLBL   USERUPD,'syntax.file.USERUPD',0,SD
 // EXTENT SYS038,volser
    ASSGN  SYS038,DISK,VOL=volser,SHR
 // DLBL    SYSIDMS,'work.file.SYSIDMS'
 // EXTENT  SYS041,volser
 // ASSGN   SYS041,DISK,VOL=volser,SHR
 // EXEC   USMULOD,SIZE=USMULOD
 *
 /&

your.corelib—The file id of the z/VSE library into which CA IDMS Dictionary Migrator was installed.
idms.corelib—The file id of the z/VSE library which contains the CA IDMS utility executable phases.
volser—The volume serial number or generic assignment of the disk volume on which the library, as specified in the previous statement, resides.
upsi—Replace 'UPSI 00000000' with the central version UPSI setting appropriate to your site. If you wish to run in local mode, add the JCL appropriate to local mode processing.
.sublib—The name of the sublibrary of the z/VSE library specified by the previous filename.
vsam.file—It is recommended that you retain the DLBL name VSAMEXT within the VSAM file name. Replace vsam.file with a name suitable to your site.
syntax.file—The syntax files were created in a previous step or job. Use the file-id's for these files that were used when the files were created.
anyname—Any suitable name for your SYSIDMS file. Note that the name chosen must be identical to the FILEOUT value in the DITTO copy step.
nnnn—The beginning relative track number for SYSIDMS file (1 track required).

Delete Migrated Source from Source Dictionary—z/VSE

The JCL in TOOLJCL library member USMLOAD3.S (z/VSE) 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.

 *    --- DELETE ENTITIES FROM SOURCE DICT - 'USMLOAD3' SAMPLE JCL ---
 *
 // JOB RHDCDEL
 *-------------------------------------------------------------------*
 *RHDCDEL - DELETE PANELS AND MAPS                                   *
 *-------------------------------------------------------------------*
 *     **** CREATE A SYSIDMS PARAMETER FILE *****
 // UPSI  1
 // OPTION   LOG,PARTDUMP
 // DLBL     anyname,'work.file.SYSIDMS',0,SD
 // EXTENT   SYS041,volser,,,nnnn,1
 // ASSGN    SYS041,DISK,VOL=volser,SHR
 // EXEC     DITTO
 $$DITTO CSQ FILEOUT=anyname
 * SYSIDMS parameters.
 * For Local Mode specify :
 *
 DMCL=dmcl-name,LOCAL=ON,JOURNAL=OFF
 FILENAME=SYSIPT,FILETYPE=D,BLKSIZE=80,DEVADDR=SYSIPT
 *
 * For CV runs specify :
 *
 DMCL=dmcl-name,LOCAL=OFF,JOURNAL=OFF
 FILENAME=SYSIPT,FILETYPE=D,BLKSIZE=80,DEVADDR=SYSIPT
 /*
 // upsi 00000000
 *  **** z/VSE library where CA IDMS Dictionary Migrator resided
 // DLBL    DBMS,'your.corelib'
 // EXTENT  ,volser
 *
 *  **** z/VSE library where CA IDMS/DB executable phases reside
 // DLBL    IDMS,'idms.corelib'
 // EXTENT  ,volser
 *
 // LIBDEF  PHASE,SEARCH=(dbms.sublib,idms.sublib)
 *
 // DLBL   IJSYSIN,'syntax.file.RHDCDEL',0,SD
 // EXTENT SYSIPT,volser
    ASSGN  SYSIPT,DISK,VOL=volser,SHR
 // DLBL    SYSIDMS,'work.file.SYSIDMS'
 // EXTENT  SYS041,volser
 // ASSGN   SYS041,DISK,VOL=volser,SHR
 // EXEC   RHDCMAP1
 *
 /&
 // JOB RESET SYSIPT
   CLOSE  SYSIPT,SYSRDR
 /&
 // JOB SCHMDEL
 *-------------------------------------------------------------------*
 *SCHMDEL - DELETE SCHEMA, DMCL, AND SUBSCHEMA SOURCE                *
 *-------------------------------------------------------------------*
 // upsi 00000000
 *  **** z/VSE library where CA IDMS Dictionary Migrator resided
 // DLBL    DBMS,'your.corelib'
 // EXTENT  ,volser
 *
 *  **** z/VSE library where CA IDMS/DB executable phases reside
 // DLBL    IDMS,'idms.corelib'
 // EXTENT  ,volser
 *
 // LIBDEF  PHASE,SEARCH=(dbms.sublib,idms.sublib)
 *
 // DLBL   IJSYSIN,'syntax.file.SCHMDEL',0,SD
 // EXTENT SYSIPT,volser
    ASSGN  SYSIPT,DISK,VOL=volser,SHR
 // DLBL    SYSIDMS,'work.file.SYSIDMS'
 // EXTENT  SYS041,volser
 // ASSGN   SYS041,DISK,VOL=volser,SHR
 // EXEC   IDMSCHEM
 *
 /&
 // JOB RESET SYSIPT
   CLOSE  SYSIPT,SYSRDR
 /&
 // JOB SUBSDEL
 *-------------------------------------------------------------------*
 *SUBSDEL - DELETE SUBSCHEMA                                         *
 *N O T E:  THIS IS REQUIRED ONLY IF A SUBSCHEMA WAS MIGRATED        *
 *          WITHOUT ITS SCHEMA                                       *
 *-------------------------------------------------------------------*
 // upsi 00000000
 *  **** z/VSE library where CA IDMS Dictionary Migrator resided
 // DLBL    DBMS,'your.corelib'
 // EXTENT  ,volser
 *
 *  **** z/VSE library where CA IDMS/DB executable phases reside
 // DLBL    IDMS,'idms.corelib'
 // EXTENT  ,volser
 *
 // LIBDEF  PHASE,SEARCH=(dbms.sublib,idms.sublib)
 *
 // DLBL   IJSYSIN,'syntax.file.SUBSDEL',0,SD
 // EXTENT SYSIPT,volser
    ASSGN  SYSIPT,DISK,VOL=volser,SHR
 // DLBL    SYSIDMS,'work.file.SYSIDMS'
 // EXTENT  SYS041,volser
 // ASSGN   SYS041,DISK,VOL=volser,SHR
 // EXEC   IDMSUBSC
 *
 /&
 // JOB RESET SYSIPT
   CLOSE  SYSIPT,SYSRDR
 /&
 // JOB DDDLDEL
 *-------------------------------------------------------------------*
 *DDDLDEL - DELETE OTHER ENTITIES                                    *
 *-------------------------------------------------------------------*
 // upsi 00000000
 *  **** z/VSE library where CA IDMS Dictionary Migrator resided
 // DLBL    DBMS,'your.corelib'
 // EXTENT  ,volser
 *
 *  **** z/VSE library where CA IDMS/DB executable phases reside
 // DLBL    IDMS,'idms.corelib'
 // EXTENT  ,volser
 *
 // LIBDEF  PHASE,SEARCH=(dbms.sublib,idms.sublib)
 *
 // DLBL   IJSYSIN,'syntax.file.DDDLDEL',0,SD
 // EXTENT SYSIPT,volser
    ASSGN  SYSIPT,DISK,VOL=volser,SHR
 // DLBL    SYSIDMS,'work.file.SYSIDMS'
 // EXTENT  SYS041,volser
 // ASSGN   SYS041,DISK,VOL=volser,SHR
 // EXEC   IDMSDDDL
 *
 /&
 // JOB RESET SYSIPT
    CLOSE  SYSIPT,SYSRDR
 /&

your.corelib—The file id of the z/VSE library into which CA IDMS Dictionary Migrator was installed.
idms.corelib—The file id of the z/VSE library which contains the CA IDMS utility executable phases.
volser—The volume serial number or generic assignment of the disk volume on which the library, as specified in the previous statement, resides.
upsi—Replace 'UPSI 00000000' with the central version UPSI setting appropriate to your site. If you wish to run in local mode, add the JCL appropriate to local mode processing.
.sublib—The name of the sublibrary of the z/VSE library specified by the previous filename.
syntax.file—The syntax files were created in a previous step or job. Use the file-id's for these files that were used when the files were created.
anyname—Any suitable name for your SYSIDMS file.
Note: The name chosen must be identical to the FILEOUT value in the DITTO copy step.
nnnn—The beginning relative track number for SYSIDMS file (1 track required).

Allocate the VSAM Work File--z/VM

The USMVSAM EXEC allocates the VSAM work file.

Note: For more information, see the chapter "Operations."

 /*  */
 TRACE OFF; SIGNAL ON ERROR
 /*                                                                   */
    DELETE         -
                   (work.file.vsamext) -
                    CLUSTER
    DEFINE CLUSTER ( -
                   NAME(work.file.vsamext) -
                   TRACKS(prialloc secalloc) -
                   INDEXED -
                   VOLUMES(volser) -
                   RECSZ(228 228) -
                   KEYS(84 2) -
                   usetype -
                   )

work.file.vsamext—The data set name of the VSAM KSDS work file. It is recommended that the data set name include the work file name VSAMEXT.
volser—The volume serial of the disk that will contain the VSAM KSDS work file.
usetype—The appropriate usage type: REUSE or UNIQUE. If you specify UNIQUE, you must delete and define this cluster prior to each execution of CA IDMS Dictionary Migrator>
prialloc secalloc—The primary and secondary space allocations for the VSAM KSDS work file. A track allocation of 60 primary tracks and 30 secondary tracks (60 30) on a 3350 disk device should be adequate for this file. You may need to change these allocations for your DASD type and migration needs.

Extract Information from the Source Dictionary—z/VM

The USMXTRCT EXEC allocates the work files, allocates the syntax files, extracts information from the source dictionary, compares the extract to the object dictionary, reports on the comparison, and produces the syntax files.

 /*   */
 TRACE OFF; SIGNAL ON ERROR
 /*                                                                   */
 /* USMXTRCT                                                          */
 /*                                                                   */
 CA_LOADLIB_FN      = 'yourlib'
 IDMS_LOADLIB_FN    = 'idmslib'
 SORT_TXTLIB_FN     = 'sortlib'
 INPUT_PARM_FN      = 'USMXTRCT'
 INPUT_PARM_FT      = 'MIGPARM'
 INPUT_PARM_FM      = 'A'
 /*                                                                   */
 /* Link and access the Minidisks containing the required librarie(s) */
 /*                                                                   */
  'CP SPOOL PRINTER NOCONT CLOSE'
  'CP SPOOL PRINTER TO * NOHOLD CONT FORM OFF DIST OFF'
  'GLOBAL  LOADLIB ' CA_LOADLIB_FN IDMS_LOADLIB_FN
  'GLOBAL  TXTLIB ' SORT_TXTLIB_FN
 /*                                                                   */
 /* Create the input parameter file.                                  */
 /*                                                                   */
   CALL CREATE_INPUT_PARM_FILE
 /*                                                                   */
 /* Product specific files.                                           */
 /*                                                                   */
  'FILEDEF SYSPRT  PRINTER'
  'FILEDEF SYSLST  PRINTER'
  'FILEDEF SYSOUT  PRINTER'
  'FILEDEF AUDIT   PRINTER'
  'FILEDEF SELECT  DISK USMXTRCT SELECT  a'
  'FILEDEF SYSIPT  DISK USMXTRCT MIGIN   a'
  'FILEDEF VALDRPT DISK USMXTRCT VALDRPT a4'
  'FILEDEF WORKFIL DISK USMXTRCT WORKFIL a4'
  'FILEDEF WORKFL2 DISK USMXTRCT WORKFL2 a4'
  'FILE EXTRACT DISK USMFILE  EXTRACT a4 (RECFM FB LRECL 228 BLOCK 228'
  'FILEDEF RHDCDEL DISK USMFILE  RHDCDEL a'
  'FILEDEF SCHMDEL DISK USMFILE  SCHMDEL a'
  'FILEDEF SUBSDEL DISK USMFILE  SUBSDEL a'
  'FILEDEF DDDLDEL DISK USMFILE  DDDLDEL a'
  'FILEDEF DDDLUPD DISK USMFILE  DDDLUPD a'
  'FILEDEF BCFUPD DISK USMFILE   BCFUPD a'
  'FILEDEF TABLLOD DISK USMFILE  TABLLOD a'
  'FILEDEF DDDLLOD DISK USMFILE  DDDLLOD a'
  'FILEDEF SCHMUPD DISK USMFILE  SCHMUPD a'
  'FILEDEF SUBSUPD DISK USMFILE  SUBSUPD a'
  'FILEDEF SUBSLOD DISK USMFILE  SUBSLOD a'
  'FILEDEF RHDCUPD DISK USMFILE  RHDCUPD a'
  'FILEDEF RHDCLOD DISK USMFILE  RHDCLOD a'
  'FILEDEF ADSOBGN DISK USMFILE  ADSOBGN a'
  'FILEDEF DDDLPGM DISK USMFILE  DDDLPGM a'
  'FILEDEF ADSBTAT DISK USMFILE  ADSBTAT a'
  'FILEDEF USERUPD DISK USMFILE  USERUPD a'
  'FILEDEF MIGPARM DISK' INPUT_PARM_FN INPUT_PARM_FT INPUT_PARM_FM
 /*  Product specific VSAM files.                                     */
  'DLBL IJSYSCT vsam_fm DSN vsamcat'
  'DLBL IJSYSUC vsam_fm DSN vsamcat'
  'DLBL VSAMEXT vsam_fm DSN vsamext (VSAM'
 /*                                                                   */
 /*  You must create a file 'MIGR SYSIDMS a'  containing the SYSIDMS  */
 /*  parameters you use to specify your runtime environment.          */
 /*  If you wish to run in Local Mode specify the following values :   */
 /*  LOCAL=ON,JOURNAL=OFF,DMCL=dmcl-name                              */
 /*  If you wish to run CV an 80 byte blank record will suffice.      */
 /*                                                                   */
  'FILEDEF SYSIDMS  DISK MIGR SYSIDMS a'
 /*  Insert FILEDEF statements for SORT work space as required by     */
 /*  your SORT product.                                               */
 SIGNAL OFF ERROR
 SAY 'STARTING CA IDMS/Dictionary Migrator RUN'
  'EXECOS OSRUN USMGRTR'
  USMXTRCT_RC = RC
 IF USMXTRCT_RC > 4
  THEN DO
   CALL ERROR
  END
  'CP SPOOL PRINTER NOCONT'
  'CP CLOSE PRINTER NAME USMXTRCT LISTING'
  'CP SPOOL PRINTER OFF'
  SAY 'USMXTRCT FINISHED WITH A RETURN CODE OF' USMXTRCT_RC
  'GLOBAL LOADLIB'
  'GLOBAL TXTLIB'
  'FILEDEF * CLEAR'
  EXIT USMXTRCT_RC
 /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
 CREATE_INPUT_PARM_FILE:
 /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
  SIGNAL OFF ERROR
  'ERASE' INPUT_PARM_FN INPUT_PARM_FT INPUT_PARM_FM
  SIGNAL ON ERROR
 /*                                                                   */
  PUSH 'FFILE'
  PUSH
  PUSH 'EXTRACT,user extract statements'
  PUSH 'DICT=srcdict,IDOBJECT=(userid,passwd),OBJDICT=objdict'
  PUSH 'PROCESS,RUN=runtype,'
  PUSH 'INPUT'
  PUSH 'SET LRECL 80'
  PUSH 'SET RECFM F'
  'XEDIT' INPUT_PARM_FN INPUT_PARM_FT INPUT_PARM_FM ,
   '(NOPROFILE NOSCREEN NOMSG'
  RETURN
 /*                                                                   */
 /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
 ERROR:
 /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
  ERROR_RC = RC
  TRACE OFF; SIGNAL OFF ERROR
  SAY 'NON-ZERO RETURN CODE ENCOUNTERED IN EXEC AT LINE' SIGL
 'CP SPOOL PRINTER NOCONT'
 'CP CLOSE PRINTER NAME USMXTRCT LISTING'
 'CP SPOOL PRINTER OFF'
  'GLOBAL LOADLIB'
  'GLOBAL TXTLIB'
  'FILEDEF * CLEAR'
  EXIT ERROR_RC
 /*
                                                                     */

yourlib—The file name of the load library into which you downloaded CA IDMS Dictionary Migrator.
idmslib—The file name of the load library containing your CA IDMS SUBSCHEMA and DMCL modules.
sortlib—The file name of the text library containing your sort modules.
a—The file mode for the relevant file.
vsam_fm—The file mode of the accessed minidisk which contains your VSAM catalog(s) and file(s).
vsamcat—The data set name of your VSAM catalog.
vsamext—The data set name of the PAGUTIL VSAM file.

Export Syntax Files--z/VM

The USMEXPRT EXEC allocates the work files, allocates the syntax files, extracts information from the source dictionary and puts it onto disk, and produces syntax files on disk.

 /*  */
 TRACE OFF; SIGNAL ON ERROR
 /*                                                                   */
 /* USMEXPRT                                                          */
 CA_LOADLIB_FN      = 'yourlib'
 IDMS_LOADLIB_FN    = 'idmslib'
 SORT_TXTLIB_FN     = 'sortlib'
 INPUT_PARM_FN      = 'USMEXPRT'
 INPUT_PARM_FT      = 'MIGPARM'
 INPUT_PARM_FM      = 'A'
 /*                                                                   */
 /* Link and access the Minidisks containing the required librarie(s) */
  'CP SPOOL PRINTER NOCONT CLOSE'
  'CP SPOOL PRINTER TO * NOHOLD CONT FORM OFF DIST OFF'
  'GLOBAL  LOADLIB ' CA_LOADLIB_FN IDMS_LOADLIB_FN
  'GLOBAL  TXTLIB ' SORT_TXTLIB_FN
 /*                                                                   */
 /* Create the input parameter file.                                  */
 /*                                                                   */
   CALL CREATE_INPUT_PARM_FILE
 /*                                                                   */
 /* Product specific files.                                           */
  'FILEDEF SYSPRT  PRINTER'
  'FILEDEF SYSLST  PRINTER'
  'FILEDEF SYSOUT  PRINTER'
  'FILEDEF AUDIT   PRINTER'
  'FILEDEF SYSIPT  DISK USMEXPRT MIGIN   a'
  'FILEDEF SYSPCH  DISK USMEXPRT MIGPCH  a'
  'FILEDEF SELECT  DISK USMEXPRT SELECT  a'
  'FILEDEF VALDRPT DISK USMEXPRT VALDRPT a'
  'FILEDEF WORKFIL DISK USMEXPRT WORKFIL a'
  'FILEDEF WORKFL2 DISK USMEXPRT WORKFL2 a'
  'FILE EXTRACT DISK USMFILE  EXTRACT a4 (RECFM FB LRECL 228 BLOCK 228'
  'FILEDEF RHDCDEL DISK USMFILE  RHDCDEL a'
  'FILEDEF SCHMDEL DISK USMFILE  SCHMDEL a'
  'FILEDEF SUBSDEL DISK USMFILE  SUBSDEL a'
  'FILEDEF DDDLDEL DISK USMFILE  DDDLDEL a'
  'FILEDEF DDDLUPD DISK USMFILE  DDDLUPD a'
  'FILEDEF BCFUPD  DISK USMFILE  BCFUPD a'
  'FILEDEF TABLLOD DISK USMFILE  TABLLOD a'
  'FILEDEF DDDLLOD DISK USMFILE  DDDLLOD a'
  'FILEDEF SCHMUPD DISK USMFILE  SCHMUPD a'
  'FILEDEF SUBSUPD DISK USMFILE  SUBSUPD a'
  'FILEDEF SUBSLOD DISK USMFILE  SUBSLOD a'
  'FILEDEF RHDCUPD DISK USMFILE  RHDCUPD a'
  'FILEDEF RHDCLOD DISK USMFILE  RHDCLOD a'
  'FILEDEF ADSOBGN DISK USMFILE  ADSOBGN a'
  'FILEDEF DDDLPGM DISK USMFILE  DDDLPGM a'
  'FILEDEF ADSBTAT DISK USMFILE  ADSBTAT a'
  'FILEDEF USERUPD DISK USMFILE  USERUPD a'
  'FILEDEF MIGPARM DISK' INPUT_PARM_FN INPUT_PARM_FT INPUT_PARM_FM
 /*                                                                   */
 /*  You must create a file 'SYSIDMS INPUT a' containing the SYSIDMS  */
 /*  parameters you use to specify your runtime environment.          */
 /*  If you wish to run in Local Mode specify the following values :   */
 /*  LOCAL=ON,JOURNAL=OFF,DMCL=dmcl-name                              */
 /*  If you wish to run CV an 80 byte blank record will suffice.      */
  'FILEDEF SYSIDMS  DISK SYSIDMS INPUT a'
 /*  Insert FILEDEF statements for SORT work space as required by     */
 /*  your SORT product.                                               */
 /*                                                                   */
 SAY 'STARTING CA IDMS/Dictionary Migrator EXPORT RUN'
 SIGNAL OFF ERROR
  'EXECOS OSRUN USMGRTR'
  USMEXPRT_RC = RC
 IF USMEXPRT_RC > 4
  THEN DO
   CALL ERROR
  END
  'CP SPOOL PRINTER NOCONT'
  'CP CLOSE PRINTER NAME USMEXPRT LISTING'
  'CP SPOOL PRINTER OFF'
  SAY 'USMEXPRT FINISHED WITH A RETURN CODE OF' USMEXPRT_RC
  'GLOBAL LOADLIB'
  'GLOBAL TXTLIB'
  'FILEDEF * CLEAR'
  EXIT USMEXPRT_RC
 /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
 CREATE_INPUT_PARM_FILE:
 /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
  SIGNAL OFF ERROR
  'ERASE' INPUT_PARM_FN INPUT_PARM_FT INPUT_PARM_FM
  SIGNAL ON ERROR
 /*                                                                   */
  PUSH 'FFILE'
  PUSH
  PUSH 'EXTRACT,user extract statements'
  PUSH 'DICT=srcdict,IDOBJECT=(userid,passwd),OBJDICT=objdict'
  PUSH 'PROCESS,RUN=EXPORT,'
  PUSH 'INPUT'
  PUSH 'SET LRECL 80'
  PUSH 'SET RECFM F'
  'XEDIT' INPUT_PARM_FN INPUT_PARM_FT INPUT_PARM_FM ,
   '(NOPROFILE NOSCREEN NOMSG'
  RETURN
 /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
 ERROR:
 /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
  ERROR_RC = RC
  TRACE OFF; SIGNAL OFF ERROR
  SAY 'NON-ZERO RETURN CODE ENCOUNTERED IN EXEC AT LINE' SIGL
 'CP SPOOL PRINTER NOCONT'
 'CP CLOSE PRINTER NAME USMEXPRT LISTING'
 'CP SPOOL PRINTER OFF'
  'GLOBAL LOADLIB'
  'GLOBAL TXTLIB'
  'FILEDEF * CLEAR'
  EXIT ERROR_RC
 /*                                                                   */

yourlib—The file name of the load library into which you downloaded
CA IDMS Dictionary Migrator.
idmslib—The file name of the load library containing your CA IDMS SUBSCHEMA and DMCL modules.
sortlib—The file name of the text library containing your sort modules.
a—The file mode for the relevant file.

Import the Extract Tape--z/VM

The USMIMPRT EXEC 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 in the chapter "Operations."

 /*  */
 TRACE OFF; SIGNAL ON ERROR
 /*                                                                   */
 /* USMIMPRT                                                          */
 /*                                                                   */
 CA_LOADLIB_FN      = 'yourlib'
 IDMS_LOADLIB_FN    = 'idmslib'
 SORT_TXTLIB_FN     = 'sortlib'
 INPUT_PARM_FN      = 'USMIMPRT'
 INPUT_PARM_FT      = 'MIGPARM'
 INPUT_PARM_FM      = 'A'
 /*                                                                   */
 /* Link and access the Minidisks containing the required librarie(s) */
 /*                                                                   */
  'CP SPOOL PRINTER NOCONT CLOSE'
  'CP SPOOL PRINTER TO * NOHOLD CONT FORM OFF DIST OFF'
  'GLOBAL  LOADLIB ' CA_LOADLIB_FN IDMS_LOADLIB_FN
  'GLOBAL  TXTLIB ' SORT_TXTLIB_FN
 /*                                                                   */
 /* Create the input parameter file.                                  */
 /*                                                                   */
   CALL CREATE_INPUT_PARM_FILE
 /*                                                                   */
 /* Product specific files.                                           */
 /*                                                                   */
  'FILEDEF SYSPRT  PRINTER'
  'FILEDEF SYSLST  PRINTER'
  'FILEDEF SYSOUT  PRINTER'
  'FILEDEF AUDIT   PRINTER'
  'FILEDEF SELECT  DUMMY'
  'FILEDEF SYSIPT  DISK USMIMPRT MIGIN   a'
  'FILEDEF VALDRPT DISK USMIMPRT VALDRPT a'
  'FILEDEF WORKFIL DISK USMIMPRT WORKFIL a'
  'FILEDEF WORKFL2 DISK USMIMPRT WORKFL2 a'
  'FILEDEF EXTRACT DISK USMFILE  EXTRACT a'
  'FILEDEF RHDCDEL DISK USMFILE  RHDCDEL a'
  'FILEDEF SCHMDEL DISK USMFILE  SCHMDEL a'
  'FILEDEF SUBSDEL DISK USMFILE  SUBSDEL a'
  'FILEDEF DDDLDEL DISK USMFILE  DDDLDEL a'
  'FILEDEF DDDLUPD DISK USMFILE  DDDLUPD a'
  'FILEDEF BCFUPD  DISK USMFILE  BCFUPD a'
  'FILEDEF TABLLOD DISK USMFILE  TABLLOD a'
  'FILEDEF DDDLLOD DISK USMFILE  DDDLLOD a'
  'FILEDEF SCHMUPD DISK USMFILE  SCHMUPD a'
  'FILEDEF SUBSUPD DISK USMFILE  SUBSUPD a'
  'FILEDEF SUBSLOD DISK USMFILE  SUBSLOD a'
  'FILEDEF RHDCUPD DISK USMFILE  RHDCUPD a'
  'FILEDEF RHDCLOD DISK USMFILE  RHDCLOD a'
  'FILEDEF ADSOBGN DISK USMFILE  ADSOBGN a'
  'FILEDEF DDDLPGM DISK USMFILE  DDDLPGM a'
  'FILEDEF ADSBTAT DISK USMFILE  ADSBTAT a'
  'FILEDEF USERUPD DISK USMFILE  USERUPD a'
  'FILEDEF MIGPARM DISK' INPUT_PARM_FN INPUT_PARM_FT INPUT_PARM_FM
 /*                                                                   */
 /*  Product specific VSAM files.                                     */
 /*                                                                   */
  'DLBL IJSYSCT vsam_fm DSN vsamcat'
  'DLBL IJSYSUC vsam_fm DSN vsamcat'
  'DLBL VSAMEXT vsam_fm DSN vsamext (VSAM'
 /*                                                                   */
 /*  You must create a file 'SYSIDMS INPUT a' containing the SYSIDMS  */
 /*  parameters you use to specify your runtime environment.          */
 /*  If you wish to run in Local Mode specify the follwing values :   */
 /*  LOCAL=ON,JOURNAL=OFF,DMCL=dmcl-name                              */
 /*  If you wish to run CV an 80 byte blank record will suffice.      */
 /*                                                                   */
  'FILEDEF SYSIDMS  DISK SYSIDMS INPUT a'
 /*                                                                   */
 /*  Insert FILEDEF statements for SORT work space as required by     */
 /*  your SORT product.                                               */
 /*                                                                   */
 SAY 'STARTING CA IDMS/Dictionary Migrator IMPORT'
 SIGNAL OFF ERROR
  'EXECOS OSRUN USMGRTR'
  USMIMPRT_RC = RC
 IF USMIMPRT_RC > 4
  THEN DO
   CALL ERROR
  END
  'CP SPOOL PRINTER NOCONT'
  'CP CLOSE PRINTER NAME USMIMPRT LISTING'
  'CP SPOOL PRINTER OFF'
  SAY 'USMIMPRT FINISHED WITH A RETURN CODE OF' USMIMPRT_RC
  'GLOBAL LOADLIB'
  'GLOBAL TXTLIB'
  'FILEDEF * CLEAR'
  EXIT USMIMPRT_RC
 /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
 CREATE_INPUT_PARM_FILE:
 /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
  SIGNAL OFF ERROR
  'ERASE' INPUT_PARM_FN INPUT_PARM_FT INPUT_PARM_FM
  SIGNAL ON ERROR
 /*                                                                   */
  PUSH 'FFILE'
  PUSH
  PUSH 'OBJDICT=objdict'
  PUSH 'PROCESS,RUN=IMPORT,'
  PUSH 'INPUT'
  PUSH 'SET LRECL 80'
  PUSH 'SET RECFM F'
  'XEDIT' INPUT_PARM_FN INPUT_PARM_FT INPUT_PARM_FM ,
   '(NOPROFILE NOSCREEN NOMSG'
  RETURN
 /*                                                                   */
 /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
 ERROR:
 /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
  ERROR_RC = RC
  TRACE OFF; SIGNAL OFF ERROR
  SAY 'NON-ZERO RETURN CODE ENCOUNTERED IN EXEC AT LINE' SIGL
 'CP SPOOL PRINTER NOCONT'
 'CP CLOSE PRINTER NAME USMIMPRT LISTING'
 'CP SPOOL PRINTER OFF'
  'GLOBAL LOADLIB'
  'GLOBAL TXTLIB'
  'FILEDEF * CLEAR'
  EXIT ERROR_RC
 /*                                                                   */

yourlib—The file name of the load library into which you downloaded CA IDMS Dictionary Migrator.
idmslib—The file name of the load library containing your CA IDMS SUBSCHEMA and DMCL modules.
sortlib—The file name of the text library containing your sort modules.
a—The file mode for the relevant file.
vsam_fm—The file mode of the accessed minidisk which contains your VSAM catalog(s) and file(s).
vsamcat—The data set name of your VSAM catalog.
vsamext—The data set name of the PAGUTIL VSAM file.

Upload Syntax Files—z/VM

The USMLOAD1 EXEC 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.

More information:

For more information about uploading syntax files, see 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.

 /*  */
 TRACE OFF; SIGNAL ON ERROR
 /*                                                                   */
 /* USMLOAD1                                                          */
 /*                                                                   */
 CA_LOADLIB_FN      = 'yourlib'
 IDMS_LOADLIB_FN    = 'idmslib'
 /*                                                                   */
 /* Link and access the Minidisks containing the required librarie(s) */
 /*                                                                   */
  'CP SPOOL PRINTER NOCONT CLOSE'
  'CP SPOOL PRINTER TO * NOHOLD CONT FORM OFF DIST OFF'
  'GLOBAL  LOADLIB ' CA_LOADLIB_FN IDMS_LOADLIB_FN
 /*                                                                   */
 MAX_RC = 0
 /*                                                                   */
  CALL RHDCDEL
  IF RHDCDEL_RC > 0
     THEN SAY 'RHDCDEL STEP ENDED WITH RETURN CODE' RHDCDEL_RC
  IF RHDCDEL_RC > MAX_RC
     THEN MAX_RC = RHDCDEL_RC
 /*                                                                   */
  CALL SCHMDEL
  IF RHDCDEL_RC > 0
     THEN SAY 'SCHMDEL STEP ENDED WITH RETURN CODE' SCHMDEL_RC
  IF SCHMDEL_RC > MAX_RC
     THEN MAX_RC = SCHMDEL_RC
 /*                                                                   */
  CALL SUBSDEL
  IF SUBSDEL_RC > 0
     THEN SAY 'SUBSDEL STEP ENDED WITH RETURN CODE' SUBSDEL_RC
  IF SUBSDEL_RC > MAX_RC
     THEN MAX_RC = SUBSDEL_RC
 /*                                                                   */
  CALL DDDLDEL
  IF DDDLDEL_RC > 0
     THEN SAY 'DDDLDEL STEP ENDED WITH RETURN CODE' DDDLDEL_RC
  IF DDDLDEL_RC > MAX_RC
     THEN MAX_RC = DDDLDEL_RC
 /*                                                                   */
  CALL DDDLUPD
  IF DDDLUPD_RC > 0
     THEN SAY 'DDDLUPD STEP ENDED WITH RETURN CODE' DDDLUPD_RC
  IF DDDLUPD_RC > MAX_RC
     THEN MAX_RC = DDDLUPD_RC
 /*                                                                   */
  CALL TABLLOD
  IF TABLLOD_RC > 0
     THEN SAY 'TABLLOD STEP ENDED WITH RETURN CODE' TABLLOD_RC
  IF TABLLOD_RC > MAX_RC
     THEN MAX_RC = TABLLOD_RC
 /*                                                                   */
  CALL DDDLLOD
  IF DDDLLOD_RC > 0
     THEN SAY 'DDDLLOD STEP ENDED WITH RETURN CODE' DDDLLOD_RC
  IF DDDLLOD_RC > MAX_RC
     THEN MAX_RC = DDDLLOD_RC
 /*                                                                   */
  CALL SCHMUPD
  IF SCHMUPD_RC > 0
     THEN SAY 'SCHMUPD STEP ENDED WITH RETURN CODE' SCHMUPD_RC
  IF SCHMUPD_RC > MAX_RC
     THEN MAX_RC = SCHMUPD_RC
 /*                                                                   */
  CALL SUBSUPD
  IF SUBSUPD_RC > 0
     THEN SAY 'SUBSUPD STEP ENDED WITH RETURN CODE' SUBSUPD_RC
  IF SUBSUPD_RC > MAX_RC
     THEN MAX_RC = SUBSUPD_RC
 /*                                                                   */
  CALL SUBSLOD
  IF SUBSLOD_RC > 0
     THEN SAY 'SUBSLOD STEP ENDED WITH RETURN CODE' SUBSLOD_RC
  IF SUBSLOD_RC > MAX_RC
     THEN MAX_RC = SUBSLOD_RC
 /*                                                                   */
  CALL RHDCUPD
  IF RHDCUPD_RC > 0
     THEN SAY 'RHDCUPD STEP ENDED WITH RETURN CODE' RHDCUPD_RC
  IF RHDCUPD_RC > MAX_RC
     THEN MAX_RC = RHDCUPD_RC
 /*                                                                   */
  CALL RHDCLOD
  IF RHDCLOD_RC > 0
     THEN SAY 'RHDCLOD STEP ENDED WITH RETURN CODE' RHDCLOD_RC
  IF RHDCLOD_RC > MAX_RC
     THEN MAX_RC = RHDCLOD_RC
 /*                                                                   */
  CALL ADSOBGN
  IF ADSOBGN_RC > 0
     THEN SAY 'ADSOBGN STEP ENDED WITH RETURN CODE' ADSOBGN_RC
  IF ADSOBGN_RC > MAX_RC
     THEN MAX_RC = ADSOBGN_RC
 /*                                                                   */
  CALL DDDLPGM
  IF DDDLPGM_RC > 0
     THEN SAY 'DDDLPGM STEP ENDED WITH RETURN CODE' DDDLPGM_RC
  IF DDDLPGM_RC > MAX_RC
     THEN MAX_RC = DDDLPGM_RC
 /*                                                                   */
  CALL ADSBTAT
  IF ADSBTAT_RC > 0
     THEN SAY 'ADSBTAT STEP ENDED WITH RETURN CODE' ADSBTAT_RC
  IF ADSBTAT_RC > MAX_RC
     THEN MAX_RC = ADSBTAT_RC
 /*                                                                   */
  CALL BCFUPD
  IF BCFUPD_RC > 0
     THEN SAY 'BCFUPD STEP ENDED WITH RETURN CODE' BCFUPD_RC
  IF BCFUPD_RC > MAX_RC
     THEN MAX_RC = BCFUPD_RC
 /*                                                                   */
  CALL USERUPD
  IF USERUPD_RC > 0
     THEN SAY 'USERUPD STEP ENDED WITH RETURN CODE' USERUPD_RC
  IF USERUPD_RC > MAX_RC
     THEN MAX_RC = USERUPD_RC
 /*                                                                   */
  'GLOBAL LOADLIB'
  'FILEDEF * CLEAR'
  EXIT MAX_RC
 /* ----------------------------------------------------------------- */
 /* RHDCDEL - DELETE PANELS AND MAPS                                  */
 RHDCDEL:
 /* ----------------------------------------------------------------- */
  'CP SPOOL PRINTER NOCONT CLOSE'
  'CP SPOOL PRINTER TO * NOHOLD CONT FORM OFF DIST OFF'
  'FILEDEF SYSLST PRINTER'
  'FILEDEF SYSPCH DUMMY'
  'FILEDEF SYSIPT DISK FILE RHDCDEL a'
  'FILEDEF SYSIDMS DISK SYSIDMS INPUT a'
  SIGNAL OFF ERROR
  SAY 'STARTING DELETION OF MAPS AND PANELS'
  'EXECOS OSRUN RHDCMAP1'
  RHDCDEL_RC = RC
  SIGNAL ON ERROR
  'CP SPOOL PRINTER NOCONT'
  'CP CLOSE PRINTER NAME RHDCDEL LISTING'
  'CP SPOOL PRINTER OFF'
  'FILEDEF * CLEAR'
  RETURN
 /* ----------------------------------------------------------------- */
 /* SCHMDEL - DELETE SCHEMA AND SUBSCHEMA SOURCE                      */
 SCHMDEL:
 /* ----------------------------------------------------------------- */
  'CP SPOOL PRINTER NOCONT CLOSE'
  'CP SPOOL PRINTER TO * NOHOLD CONT FORM OFF DIST OFF'
  'FILEDEF SYSLST PRINTER'
  'FILEDEF SYSPCH DUMMY'
  'FILEDEF SYSIPT DISK FILE SCHMDEL a'
  'FILEDEF SYSIDMS DISK SYSIDMS INPUT a'
  SIGNAL OFF ERROR
  SAY 'STARTING DELETION OF SCHEMA AND SUBSCHEMA SOURCE'
  'EXECOS OSRUN IDMSCHEM'
  IDMSCHEM_RC = RC
  SIGNAL ON ERROR
  'CP SPOOL PRINTER NOCONT'
  'CP CLOSE PRINTER NAME IDMSCHEM LISTING'
  'CP SPOOL PRINTER OFF'
  'FILEDEF * CLEAR'
  RETURN
 /* ----------------------------------------------------------------- */
 /* SUBSDEL - DELETE SUBSCHEMA                                        */
 /* NOTE:     THIS IS ONLY REQUIRED IF A SUBSCHEMA WAS MIGRATED       */
 /*           WITHOUT ITS SCHEMA                                      */
 SUBSDEL:
 /* ----------------------------------------------------------------- */
  'CP SPOOL PRINTER NOCONT CLOSE'
  'CP SPOOL PRINTER TO * NOHOLD CONT FORM OFF DIST OFF'
  'FILEDEF SYSLST PRINTER'
  'FILEDEF SYSPCH DUMMY'
  'FILEDEF SYSIPT DISK FILE SUBSDEL a'
  'FILEDEF SYSIDMS DISK SYSIDMS INPUT a'
  SIGNAL OFF ERROR
  SAY 'STARTING DELETION OF SUBSCHEMA SOURCE'
  'EXECOS OSRUN IDMSUBSC'
  IDMSUBSC_RC = RC
  SIGNAL ON ERROR
  'CP SPOOL PRINTER NOCONT'
  'CP CLOSE PRINTER NAME IDMSUBSC LISTING'
  'CP SPOOL PRINTER OFF'
  'FILEDEF * CLEAR'
  RETURN
 /* ----------------------------------------------------------------- */
 /* DDDLDEL - DELETE OTHER ENTITIES                                   */
 /* NOTE:     DO NOT RUN THIS STEP FOR CHANGEONLY PROCESSING          */
 DDDLDEL:
 /* ----------------------------------------------------------------- */
  'CP SPOOL PRINTER NOCONT CLOSE'
  'CP SPOOL PRINTER TO * NOHOLD CONT FORM OFF DIST OFF'
  'FILEDEF SYSLST PRINTER'
  'FILEDEF SYSPCH DUMMY'
  'FILEDEF SYSIPT DISK FILE DDDLDEL a'
  'FILEDEF SYSIDMS DISK SYSIDMS INPUT a'
  SIGNAL OFF ERROR
  SAY 'STARTING DELETION OF DDDL ENTITIES'
  'EXECOS OSRUN IDMSDDDL'
  IDMSDDDL_RC = RC
  SIGNAL ON ERROR
  'CP SPOOL PRINTER NOCONT'
  'CP CLOSE PRINTER NAME IDMSDDDL LISTING'
  'CP SPOOL PRINTER OFF'
  'FILEDEF * CLEAR'
  RETURN
 /*                                                                   */
 /* ----------------------------------------------------------------- */
 /* DDDLUPD - ADD/MODIFY CLASS, ATTRIBUTE, SYSTEM, RECORD, ELEMENT,   */
 /*           MESSAGE, MODULE, AND TABLE ENTITIES                     */
 DDDLUPD:
 /* ----------------------------------------------------------------- */
  'CP SPOOL PRINTER NOCONT CLOSE'
  'CP SPOOL PRINTER TO * NOHOLD CONT FORM OFF DIST OFF'
  'FILEDEF SYSLST PRINTER'
  'FILEDEF SYSPCH DUMMY'
  'FILEDEF SYSIPT DISK FILE DDDLUPD A'
  'FILEDEF SYSIDMS DISK SYSIDMS INPUT a'
  SIGNAL OFF ERROR
  SAY 'STARTING ADD/MODIFY OF DDDL ENTITIES'
  'EXECOS OSRUN IDMSDDDL'
  DDDLUPD_RC = RC
  SIGNAL ON ERROR
  'CP SPOOL PRINTER NOCONT'
  'CP CLOSE PRINTER NAME DDDLUPD LISTING'
  'CP SPOOL PRINTER OFF'
  'FILEDEF * CLEAR'
  RETURN
 /* ----------------------------------------------------------------- */
 /* TABLLOD - GENERATE TABLE LOAD MODULES                             */
 TABLLOD:
 /* ----------------------------------------------------------------- */
  'CP SPOOL PRINTER NOCONT CLOSE'
  'CP SPOOL PRINTER TO * NOHOLD CONT FORM OFF DIST OFF'
  'FILEDEF SYSLST PRINTER'
  'FILEDEF SYSPCH DUMMY' 'FILEDEF SYSPCH DUMMY'
  'FILEDEF SYSIPT DISK FILE TABLLOD A'
  'FILEDEF SYSIDMS DISK SYSIDMS INPUT a'
  SIGNAL OFF ERROR
  SAY 'STARTING GENERATION OF TABLE LOAD MODULES'
  'EXECOS OSRUN IDMSDDDL'
  TABLLOD_RC = RC
  SIGNAL ON ERROR
  'CP SPOOL PRINTER NOCONT'
  'CP CLOSE PRINTER NAME TABLLOD LISTING'
  'CP SPOOL PRINTER OFF'
  'FILEDEF * CLEAR'
  RETURN
 /*                                                                   */
 /* ----------------------------------------------------------------- */
 /* DDDLLOD - ADD/MODIFY LOAD MODULES FOR SUBSCHEMA, MAP, MAP EDIT    */
 /*           TABLE AND DIALOG                                        */
 DDDLLOD:
 /* ----------------------------------------------------------------- */
  'CP SPOOL PRINTER NOCONT CLOSE'
  'CP SPOOL PRINTER TO * NOHOLD CONT FORM OFF DIST OFF'
  'FILEDEF SYSLST PRINTER'
  'FILEDEF SYSPCH DUMMY'
  'FILEDEF SYSIPT DISK FILE DDDLLOD A'
  'FILEDEF SYSIDMS DISK SYSIDMS INPUT a'
  SIGNAL OFF ERROR
  SAY 'STARTING ADD/MODIFY OF DDDL LOAD MODULES'
  'EXECOS OSRUN IDMSDDDL'
  DDDLLOD_RC = RC
  SIGNAL ON ERROR
  'CP SPOOL PRINTER NOCONT'
  'CP CLOSE PRINTER NAME DDDLLOD LISTING'
  'CP SPOOL PRINTER OFF'
  'FILEDEF * CLEAR'
  RETURN
 /*                                                                   */
 /* ----------------------------------------------------------------- */
 /* SCHMUPD - ADD SCHEMA SOURCE                                       */
 SCHMUPD:
 /* ----------------------------------------------------------------- */
  'CP SPOOL PRINTER NOCONT CLOSE'
  'CP SPOOL PRINTER TO * NOHOLD CONT FORM OFF DIST OFF'
  'FILEDEF SYSLST PRINTER'
  'FILEDEF SYSPCH DUMMY'
  'FILEDEF SYSIPT DISK FILE SCHMUPD A'
  'FILEDEF SYSIDMS DISK SYSIDMS INPUT a'
  SIGNAL OFF ERROR
  SAY 'STARTING ADD OF SCHEMA SOURCE'
  'EXECOS OSRUN IDMSCHEM'
  SCHMUPD_RC = RC
  SIGNAL ON ERROR
  'CP SPOOL PRINTER NOCONT'
  'CP CLOSE PRINTER NAME SCHMUPD LISTING'
  'CP SPOOL PRINTER OFF'
  'FILEDEF * CLEAR'
  RETURN
 /*                                                                   */
 /* ----------------------------------------------------------------- */
 /* RHDCLOD - COMPILE MAP                                             */
 RHDCLOD:
 /* ----------------------------------------------------------------- */
  'CP SPOOL PRINTER NOCONT CLOSE'
  'CP SPOOL PRINTER TO * NOHOLD CONT FORM OFF DIST OFF'
  'FILEDEF SYSLST PRINTER'
  'FILEDEF SYSPCH DUMMY'
  'FILEDEF SYSIPT DISK FILE RHDCLOD A'
  'FILEDEF SYSIDMS DISK SYSIDMS INPUT a'
  SIGNAL OFF ERROR
  SAY 'STARTING MAP COMPILE'
  'EXECOS OSRUN RHDCMPUT'
  RHDCLOD_RC = RC
  SIGNAL ON ERROR
  'CP SPOOL PRINTER NOCONT'
  'CP CLOSE PRINTER NAME RHDCLOD LISTING'
  'CP SPOOL PRINTER OFF'
  'FILEDEF * CLEAR'
  RETURN
 /* ----------------------------------------------------------------- */
 /* ADSOBGN - GENERATE ADS DIALOG                                     */
 /* NOTE:     THIS STEP CAN ONLY BE EXECUTED IF DIALOG MODULES        */
 /*           WERE MIGRATED                                           */
 ADSOBGN:
 /* ----------------------------------------------------------------- */
  'CP SPOOL PRINTER NOCONT CLOSE'
  'CP SPOOL PRINTER TO * NOHOLD CONT FORM OFF DIST OFF'
  'FILEDEF SYSLST PRINTER'
  'FILEDEF SYSPCH DUMMY'
  'FILEDEF SYSIPT DISK FILE ADSOBGN A'
  'FILEDEF SYSIDMS DISK SYSIDMS INPUT a'
  SIGNAL OFF ERROR
  SAY 'STARTING GENERATION OF ADS DIALOGS'
  'EXECOS OSRUN ADSOBCOM'
  ADSOBGN_RC = RC
  SIGNAL ON ERROR
  'CP SPOOL PRINTER NOCONT'
  'CP CLOSE PRINTER NAME ADSOBGN LISTING'
  'CP SPOOL PRINTER OFF'
  'FILEDEF * CLEAR'
  RETURN
 /* ----------------------------------------------------------------- */
 /* DDDLPGM - ADD/MODIFY PROGRAM SYNTAX                               */
 DDDLPGM:
 /* ----------------------------------------------------------------- */
  'CP SPOOL PRINTER NOCONT CLOSE'
  'CP SPOOL PRINTER TO * NOHOLD CONT FORM OFF DIST OFF'
  'FILEDEF SYSLST PRINTER'
  'FILEDEF SYSPCH DUMMY'
  'FILEDEF SYSIPT DISK FILE DDDLPGM A'
  'FILEDEF SYSIDMS DISK SYSIDMS INPUT a'
  SIGNAL OFF ERROR
  SAY 'STARTING ADD/MODIFY OF PROGRAM SYNTAX'
  'EXECOS OSRUN IDMSDDDL'
  DDDLPGM_RC = RC
  SIGNAL ON ERROR
  'CP SPOOL PRINTER NOCONT'
  'CP CLOSE PRINTER NAME DDDLPGM LISTING'
  'CP SPOOL PRINTER OFF'
  'FILEDEF * CLEAR'
  RETURN
 /*                                                                   */
 /* ----------------------------------------------------------------- */
 /* SUBSUPD - ADD SUBSCHEMA SOURCE                                    */
 SUBSUPD:
 /* ----------------------------------------------------------------- */
  'CP SPOOL PRINTER NOCONT CLOSE'
  'CP SPOOL PRINTER TO * NOHOLD CONT FORM OFF DIST OFF'
  'FILEDEF SYSLST PRINTER'
  'FILEDEF SYSPCH DUMMY'
  'FILEDEF SYSIPT DISK FILE SUBSUPD A'
  'FILEDEF SYSIDMS DISK SYSIDMS INPUT a'
  SIGNAL OFF ERROR
  SAY 'STARTING ADD OF SUBSCHEMA SOURCE'
  'EXECOS OSRUN IDMSUBSC'
  SUBSUPD_RC = RC
  SIGNAL ON ERROR
  'CP SPOOL PRINTER NOCONT'
  'CP CLOSE PRINTER NAME SUBSUPD LISTING'
  'CP SPOOL PRINTER OFF'
  'FILEDEF * CLEAR'
  RETURN
 /* ----------------------------------------------------------------- */
 /* SUBSLOD - GENERATE SUBSCHEMA LOAD MODULE                          */
 SUBSLOD:
 /* ----------------------------------------------------------------- */
  'CP SPOOL PRINTER NOCONT CLOSE'
  'CP SPOOL PRINTER TO * NOHOLD CONT FORM OFF DIST OFF'
  'FILEDEF SYSLST PRINTER'
  'FILEDEF SYSPCH DUMMY'
  'FILEDEF SYSIPT DISK FILE SUBSLOD A'
  'FILEDEF SYSIDMS DISK SYSIDMS INPUT a'
  SIGNAL OFF ERROR
  SAY 'STARTING GENERATION OF SUBSCHEMA LOAD MODULE'
  'EXECOS OSRUN IDMSUBSC'
  SUBSLOD_RC = RC
  SIGNAL ON ERROR
  'CP SPOOL PRINTER NOCONT'
  'CP CLOSE PRINTER NAME SUBSLOD LISTING'
  'CP SPOOL PRINTER OFF'
  'FILEDEF * CLEAR'
  RETURN
 /* ----------------------------------------------------------------- */
 /* RHDCUPD - ADD/MODIFY PANEL AND MAP SYNTAX                         */
 RHDCUPD:
 /* ----------------------------------------------------------------- */
  'CP SPOOL PRINTER NOCONT CLOSE'
  'CP SPOOL PRINTER TO * NOHOLD CONT FORM OFF DIST OFF'
  'FILEDEF SYSLST PRINTER'
  'FILEDEF SYSPCH DUMMY'
  'FILEDEF SYSIPT DISK FILE RHDCUPD A'
  'FILEDEF SYSIDMS DISK SYSIDMS INPUT a'
  SIGNAL OFF ERROR
  SAY 'STARTING ADD/MODIFY OF PANEL AND MAP SYNTAX'
  'EXECOS OSRUN RHDCMAP1'
  RHDCUPD_RC = RC
  SIGNAL ON ERROR
  'CP SPOOL PRINTER NOCONT'
  'CP CLOSE PRINTER NAME RHDCUPD LISTING'
  'CP SPOOL PRINTER OFF'
  'FILEDEF * CLEAR'
  RETURN
 /*                                                                   */
 /* ----------------------------------------------------------------- */
 /* ADSBTAT - UPDATE TASK APPLICATION TABLE                           */
 /* NOTE:     THIS STEP IS ONLY FOR APPLICATIONS WHICH USE THE        */
 /*           REVISED ADSA.                                       */
 ADSBTAT:
 /* ----------------------------------------------------------------- */
  'CP SPOOL PRINTER NOCONT CLOSE'
  'CP SPOOL PRINTER TO * NOHOLD CONT FORM OFF DIST OFF'
  'FILEDEF SYSLST PRINTER'
  'FILEDEF SYSPCH DUMMY'
  'FILEDEF SYSIPT DISK FILE ADSBTAT A'
  'FILEDEF SYSIDMS DISK SYSIDMS INPUT a'
  SIGNAL OFF ERROR
  SAY 'STARTING UPDATE OF TASK APPLICATION TABLE'
  'EXECOS OSRUN ADSOBTAT'
  ADSBTAT_RC = RC
  SIGNAL ON ERROR
  'CP SPOOL PRINTER NOCONT'
  'CP CLOSE PRINTER NAME ADSBTAT LISTING'
  'CP SPOOL PRINTER OFF'
  'FILEDEF * CLEAR'
  RETURN
 /* ----------------------------------------------------------------- */
 /* BCFUPD - ADD SQL ENTITY DEFINITIONS                               */
 /* ----------------------------------------------------------------- */
  'CP SPOOL PRINTER NOCONT CLOSE'
  'CP SPOOL PRINTER TO * NOHOLD CONT FORM OFF DIST OFF'
  'FILEDEF SYSLST PRINTER'
  'FILEDEF SYSPCH DUMMY'
  'FILEDEF SYSIPT DISK FILE BCFUPD A'
  'FILEDEF SYSIDMS DISK SYSIDMS INPUT a'
  SIGNAL OFF ERROR
  SAY 'STARTING UPLOAD OF SQL ENTITY DEFINITIONS'
  'EXECOS OSRUN IDMSBCF'
  BCFUPD_RC = RC
  SIGNAL ON ERROR
  SAY 'BCFUPD STEP ENDED WITH RETURN CODE' BCFUPD_RC
  'CP SPOOL PRINTER NOCONT'
  'CP CLOSE PRINTER NAME USMSQLOD LISTING'
  'CP SPOOL PRINTER OFF'
  'FILEDEF * CLEAR'
  RETURN
 /* ----------------------------------------------------------------- */
 /* USERUPD - UPDATE USER PASSWORDS                                   */
 /* NOTE:     THIS STEP IS ONLY FOR MIGRATIONS WHICH DO NOT USE       */
 /*           DISCONNECT=(USER).  THE PASSWORD FROM THE SOURCE        */
 /*           DICTIONARY IS PLACED INTO THE OBJECT DICTIONARY         */
 /*           IF THIS STEP IS NOT RUN, THE PASSWORD ASSIGNED TO ALL   */
 /*           MIGRATED USERS WILL BE "DBMSINT"                        */
 USERUPD:
 /* ----------------------------------------------------------------- */
  'CP SPOOL PRINTER NOCONT CLOSE'
  'CP SPOOL PRINTER TO * NOHOLD CONT FORM OFF DIST OFF'
  'FILEDEF SYSLST PRINTER'
  'FILEDEF SYSPCH DUMMY'
  'FILEDEF SYSIPT DISK FILE USERUPD A'
  'FILEDEF SYSIDMS DISK SYSIDMS INPUT a'
  SIGNAL OFF ERROR
  SAY 'STARTING UPDATE OF USER PASSWORDS'
  'EXECOS OSRUN USMULOD'
  USERUPD_RC = RC
  SIGNAL ON ERROR
  'CP SPOOL PRINTER NOCONT'
  'CP CLOSE PRINTER NAME USERUPD LISTING'
  'CP SPOOL PRINTER OFF'
  'FILEDEF * CLEAR'
  RETURN
 /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
 ERROR:
 /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
  ERROR_RC = RC
  TRACE OFF; SIGNAL OFF ERROR
 /*                                                                   */
  SAY 'NON-ZERO RETURN CODE ENCOUNTERED IN EXEC AT LINE' SIGL
 /*                                                                   */
 'CP SPOOL PRINTER NOCONT'
 'CP CLOSE PRINTER NAME USMLOAD LISTING'
 'CP SPOOL PRINTER OFF'
  'GLOBAL LOADLIB'
  'FILEDEF * CLEAR'
 /*                                                                   */
  EXIT ERROR_RC
 /*                                                                   */

yourlib—The file name of the load library into which you downloaded CA IDMS Dictionary Migrator.
idmslib—The file name of the load library containing your CA IDMS SUBSCHEMA and DMCL modules.
a—The file mode for the relevant file.

Delete Migrated Source from Source Dictionary - z/VM

The USMLOAD3 EXEC is an optional job that, when executed, deletes the migrated source from the source dictionary after migration.

 /*  */
 TRACE OFF; SIGNAL ON ERROR
 /*                                                                   */
 /* USMLOAD3                                                          */
 /*                                                                   */
 /*                                                                   */
 CA_LOADLIB_FN      = 'yourlib'
 IDMS_LOADLIB_FN    = 'idmslib'
 /*                                                                   */
 /* Link and access the Minidisks containing the required librarie(s) */
 /*                                                                   */
  'CP SPOOL PRINTER NOCONT CLOSE'
  'CP SPOOL PRINTER TO * NOHOLD CONT FORM OFF DIST OFF'
  'GLOBAL  LOADLIB ' CA_LOADLIB_FN IDMS_LOADLIB_FN
 /*                                                                   */
 MAX_RC = 0
 /*                                                                   */
  CALL RHDCDEL
  IF RHDCDEL_RC > 0
     THEN SAY 'RHDCDEL STEP ENDED WITH RETURN CODE' RHDCDEL_RC
  IF RHDCDEL_RC > MAX_RC
     THEN MAX_RC = RHDCDEL_RC
 /*                                                                   */
  CALL SCHMDEL
  IF SCHMDEL_RC > 0
     THEN SAY 'SCHMDEL STEP ENDED WITH RETURN CODE' SCHMDEL_RC
  IF SCHMDEL_RC > MAX_RC
     THEN MAX_RC = SCHMDEL_RC
 /*                                                                   */
  CALL SUBSDEL
  IF SUBSDEL_RC > 0
     THEN SAY 'SUBSDEL STEP ENDED WITH RETURN CODE' SUBSDEL_RC
  IF SUBSDEL_RC > MAX_RC
     THEN MAX_RC = SUBSDEL_RC
 /*                                                                   */
  CALL DDDLDEL
  IF DDDLDEL_RC > 0
     THEN SAY 'DDDLDEL STEP ENDED WITH RETURN CODE' DDDLDEL_RC
  IF DDDLDEL_RC > MAX_RC
     THEN MAX_RC = DDDLDEL_RC
 /*                                                                   */
  'GLOBAL LOADLIB'
  'FILEDEF * CLEAR'
  EXIT MAX_RC
 /*                                                                   */
 /* ----------------------------------------------------------------- */
 /* DELETE PANELS AND MAPS                                            */
 RHDCDEL:
 /* ----------------------------------------------------------------- */
  'CP SPOOL PRINTER NOCONT CLOSE'
  'CP SPOOL PRINTER TO * NOHOLD CONT FORM OFF DIST OFF'
  'FILEDEF SYSLST PRINTER'
  'FILEDEF SYSPCH DUMMY'
  'FILEDEF SYSIPT DISK FILE RHDCDEL a'
  'FILEDEF SYSIDMS DISK SYSIDMS INPUT a'
  SIGNAL OFF ERROR
  SAY 'STARTING DELETE OF PANELS AND MAPS'
  'EXECOS OSRUN RHDCMAP1'
  RHDCDEL_RC = RC
  SIGNAL ON ERROR
  'CP SPOOL PRINTER NOCONT'
  'CP CLOSE PRINTER NAME RHDCDEL LISTING'
  'CP SPOOL PRINTER OFF'
  'FILEDEF * CLEAR'
  RETURN
 /* ----------------------------------------------------------------- */
 /* DELETE SCHEMA AND SUBSCHEMA SOURCE                                */
 /* N O T E   IN RELEASE 10, USE IDMSCHEM TO DELETE SCHEMAS           */
 SCHMDEL:
 /* ----------------------------------------------------------------- */
  'CP SPOOL PRINTER NOCONT CLOSE'
  'CP SPOOL PRINTER TO * NOHOLD CONT FORM OFF DIST OFF'
  'FILEDEF SYSLST PRINTER'
  'FILEDEF SYSPCH DUMMY'
  'FILEDEF SYSIPT DISK FILE SCHMDEL a'
  'FILEDEF SYSIDMS DISK SYSIDMS PARMS a'
  SIGNAL OFF ERROR
  SAY 'STARTING DELETE OF SCHEMA AND SUBSCHEMA SOURCE'
  'EXECOS OSRUN IDMSDDDL'
  SCHMDEL_RC = RC
  SIGNAL ON ERROR
  'CP SPOOL PRINTER NOCONT'
  'CP CLOSE PRINTER NAME SCHMDEL LISTING'
  'CP SPOOL PRINTER OFF'
  'FILEDEF * CLEAR'
  RETURN
 /* ----------------------------------------------------------------- */
 /* DELETE SCHEMA AND SUBSCHEMA SOURCE                                */
 /* N O T E:  THIS IS REQUIRED ONLY IF A SUBSCHEMA WAS MIGRATED       */
 /*           WITHOUT ITS SCHEMA                                      */
 SUBSDEL:
 /* ----------------------------------------------------------------- */
  'CP SPOOL PRINTER NOCONT CLOSE'
  'CP SPOOL PRINTER TO * NOHOLD CONT FORM OFF DIST OFF'
  'FILEDEF SYSLST PRINTER'
  'FILEDEF SYSPCH DUMMY'
  'FILEDEF SYSIPT DISK FILE SUBSDEL a'
  'FILEDEF SYSIDMS DISK SYSIDMS PARMS a'
  SIGNAL OFF ERROR
  SAY 'STARTING DELETE OF SUBSCHEMA SOURCE'
  'EXECOS OSRUN IDMSUBSC'
  SUBSDEL_RC = RC
  SIGNAL OFF ERROR
  SAY 'STARTING DELETE OF SUBSCHEMA SOURCE'
  'EXECOS OSRUN IDMSUBSC'
  SUBSDEL_RC = RC
  SIGNAL ON ERROR
  'CP SPOOL PRINTER NOCONT'
  'CP CLOSE PRINTER NAME SUBSDEL LISTING'
  'CP SPOOL PRINTER OFF'
  'FILEDEF * CLEAR'
  RETURN
 /*                                                                   */
 /* ----------------------------------------------------------------- */
 /* DELETE RECORD, ELEMENT AND TABLE ENTITIES                         */
 DDDLDEL:
 /* ----------------------------------------------------------------- */
  'CP SPOOL PRINTER NOCONT CLOSE'
  'CP SPOOL PRINTER TO * NOHOLD CONT FORM OFF DIST OFF'
  'FILEDEF SYSLST PRINTER'
  'FILEDEF SYSPCH DUMMY'
  'FILEDEF SYSIPT DISK FILE DDDLDEL a'
  'FILEDEF SYSIDMS DISK SYSIDMS PARMS a'
  SIGNAL OFF ERROR
  SAY 'STARTING DELETE OF RECORD, ELEMENT AND TABLE ENTITIES'
  'EXECOS OSRUN IDMSDDDL'
  DDDLDEL_RC = RC
  SIGNAL ON ERROR
  'CP SPOOL PRINTER NOCONT'
  'CP CLOSE PRINTER NAME DDDLDEL LISTING'
  'CP SPOOL PRINTER OFF'
  'FILEDEF * CLEAR'
  RETURN
 /*                                                                   */
 /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
 ERROR:
 /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
  ERROR_RC = RC
  TRACE OFF; SIGNAL OFF ERROR
 /*                                                                   */
  SAY 'NON-ZERO RETURN CODE ENCOUNTERED IN EXEC AT LINE' SIGL
 /*                                                                   */
 'CP SPOOL PRINTER NOCONT'
 'CP CLOSE PRINTER NAME USMLOAD LISTING'
 'CP SPOOL PRINTER OFF'
  'GLOBAL LOADLIB'
  'FILEDEF * CLEAR'
 /*                                                                   */
  EXIT ERROR_RC
 /*
                                                                    */

yourlib—The file name of the load library into which you downloaded CA IDMS Dictionary Migrator.
idmslib—The file name of the load library containing your CA IDMS SUBSCHEMA and DMCL modules.
a—The file mode for the relevant file.