Migrate ADS components from one CV/dictionary to another

Products

• IDMS
• IDMS - Database
• IDMS - ADS

Issue/Introduction

The most advanced methods to migrate components between CV/dictionaries involve Endevor/DB and Dictionary Migrator. These products monitor changes to the dictionary components and take the guess work out of the migration.

Environment

Release: All supported releases.

Resolution

If the application, dialog and map load modules that need to be migrated are known, this JCL can be used:

//PUNCHIT  EXEC PGM=IDMSDDDL,REGION=1000K                 
//STEPLIB  DD  DSN=.....                                  
//SYSCTL   DD  DSN=.....                                   
//SYSLST   DD  SYSOUT=*                                   
//SYSJRNL  DD  DUMMY                                      
//SYSJRNL1 DD  DUMMY                                      
//SYSJRNL2 DD  DUMMY                                      
//SYSPCH   DD  DISP=(NEW,PASS),DSN=&&TEMP,UNIT=SYSDA,     
//             SPACE=(TRK,(5,3),RLSE),  
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)                  
//SYSIDMS  DD  *                                                     
DMCL=dmclname DICTNAME=appldict                                      
//SYSIPT   DD  *                                                     
     PUNCH LOAD MOD dlgname WITH SYNTAX.                              
     PUNCH LOAD MOD aplname WITH SYNTAX.                            
     PUNCH LOAD MOD mapname WITH SYNTAX.                             
//ADDIT    EXEC PGM=IDMSDDDL,REGION=1000K                            
//STEPLIB  DD  DSN=.....                                             
//SYSCTL   DD  DSN=.....                                              
//SYSLST   DD  SYSOUT=*                                              
//SYSJRNL  DD  DUMMY                                                 
//SYSJRNL1 DD  DUMMY                                                 
//SYSJRNL2 DD  DUMMY                                                 
//SYSPCH   DD  DUMMY                                                 
//SYSIDMS  DD  *                                                     
DMCL=dmclname DICTNAME=appldict                         
//SYSIPT   DD  *                                                     
SET OPTIONS DEFAULT IS ON.                                           
//         DD DSN=&&TEMP,DISP=OLD     

The first step points to the source CV/dictionary and the second step points to the target CV/dictionary.