ALERT: Some images may not load properly within the Knowledge Base Article. If you see a broken image, please right-click and select 'Open image in a new tab'. We apologize for this inconvenience.
What is the simplest way to punch/pull all the ADSO components for a particular application to reload another CV/dictionary.
Article ID: 17882
Updated On:
Products
IDMS
IDMS - Database
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:
Component:
Feedback
Yes
No
Powered by
