DC081001 datetime stamp mismatch between map and dialog.

Products

• IDMS
• IDMS - Database
• IDMS - ADS

Issue/Introduction

Question:

Is there a way to resynchronize the date time stamp in alternate maps to avoid DC081001 map date time stamp between map and program/dialog do not agree?

 

Answer:

After changes are made to the main map, the corresponding alternative maps should be deleted and recreated from the newly modified main maps.

To recreate the alternative maps, decompile the original with DATETIME=YES.

Example of JCL.
//MPUT1    EXEC PGM=RHDCMPUT,REGION=0M
//STEPLIB  DD DSN=...                 
//CDMSLIB  DD DSN =...                
//SYSLST   DD SYSOUT=*                
//SYSPCH   DD SYSOUT=*                
//SYSUDUMP DD SYSOUT=*                
//SYSIDMS  DD *                       
  UPPER=OFF                           
  DMCL=DMCLNAME DICTNAME=SYSDICT      
//SYSIPT   DD *                       
  PROCESS=DECOMPILE,DATETIME=YES      
  MAP=MAPNAME                        
/*           
 

Take the SYSPCH output from this and make all the necessary changes including map name and the changes to the literals. Do a global change on the main/original map name to the alternate map name. After this is done reload the updated map source with RHDCMAP1 and RHDCMPUT.

Example of JCL.
//MPUT2    EXEC PGM=RHDCMAP1,REGION=0M       
//STEPLIB  DD DSN=...                 
//CDMSLIB  DD DSN=...                                              
//SYSLST   DD SYSOUT=*                       
//SYSPCH   DD SYSOUT=*                       
//SYSIDMS  DD *                              
 DMCL=DMCL1600 DICTNAME=SYSDICT              
 XA_SCRATCH=ON                               
 DMLTRACE=OFF                                
 LOCAL=OFF                                   
//SYSIPT   DD DSN=MAP.SOURCE,DISP=SHR                             
//MPUT2    EXEC PGM=RHDCMPUT,REGION=0M       
//STEPLIB  DD DSN=...                 
//CDMSLIB  DD DSN=...                                            
//SYSLST   DD SYSOUT=*                       
//SYSPCH   DD SYSOUT=*                       
//SYSIDMS  DD *                              
 DMCL=DMCLNAME DICTNAME=SYSDICT              
 XA_SCRATCH=ON                               
 LOCAL=OFF                                   
//SYSIPT   DD *                              
 PROCESS=LOAD                                
 MAP=MAPNAME,VERSION=1                        
/*                                                                             
 
Additional Information:

Mapping Facility Guide

Environment

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