What is the simplest way to punch/pull all the ADSO components for a particular application to reload another CV/dictionary.

Article Id: 17882

Status: Published

Updated On: 21-03-2018 07:12

Legacy Id: TEC615373

Products:

CA IDMS , CA IDMS - Database , CA IDMS - ADS

Issue/Introduction:

Description:

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

Solution:

If you specifically know what application, dialog and map load modules you would like to migrate then you may use this JCL:

//PUNCHIT  EXEC PGM=IDMSDDDL,REGION=1000K                 
//STEPLIB  DD  DSN=.....                                  
//CDMSLIB  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=DMCNAME DICTNAME=SYSDIRL                                      
//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=.....                                             
//CDMSLIB  DD  DSN=.....                                             
//SYSCTL   DD  DSN=.....                                              
//SYSLST   DD  SYSOUT=*                                              
//SYSJRNL  DD  DUMMY                                                 
//SYSJRNL1 DD  DUMMY                                                 
//SYSJRNL2 DD  DUMMY                                                 
//SYSPCH   DD  DUMMY                                                 
//SYSIDMS  DD  *                                                     
DICTNAME=SYSDICT DMCL=DMCLNAME                         
//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.

Environment:

Release: IDADSO00100-18.5-ADS-for CA-IDMS
Component: