An ADS Application or Dialog abends with DC171017 APPLICATION ABORTED. MAPOUT ERROR ON USER MAP; #MREQ RC=3C.

Products

• IDMS
• IDMS - Database
• IDMS - ADS

Issue/Introduction

The RC=3C means invalid map load module. This could be the result of punching the map load module with IDMSDDDL from one dictionary load area and adding it to another dictionary load area without the source. This can sometimes lead to an out of sync condition with the dialog that is displaying it.

Environment

IDMS - all supported releases

Resolution

Rebuild the map load module using the JCL template below with the dictionary that contains the dialog and map source:

//STEP1    EXEC PGM=RHDCMPUT,REGION=0M                            
//STEPLIB  DD DSN=......LOADLIB...                            
//CDMSLIB  DD DSN=......LOADLIB...                            
//SYSJRNL  DD DUMMY                                               
//SYSLST   DD SYSOUT=*                                            
//SYSPCH   DD DSN=MAP.SOURCE,DISP=(,CATLG),                       
//            SPACE=(8000,(200,2)),                               
//            DCB=(RECFM=FB,BLKSIZE=80,LRECL=80),                 
//            UNIT=SYSDA                                          
//SYSUDUMP DD SYSOUT=*                                            
//SYSIDMS  DD *                                                   
DMCL=yourDCML DICTNAME=yourdict                                  
//SYSIPT   DD *                                                   
PROCESS=DECOMPILE,DATETIME=YES                                    
MAP=mapname,VERSION=1                                             
/*                                                                
//STEP2    EXEC PGM=RHDCMAP1,REGION=0M                            
//STEPLIB  DD DSN=......LOADLIB...                          
//CDMSLIB  DD DSN=......LOADLIB...                          
//SYSLST   DD SYSOUT=*                                            
//SYSPCH   DD SYSOUT=*                                            
//SYSIDMS  DD *                                                   
DMCL=yourDMCL DICTNAME=yourdict                         
//SYSIPT   DD *           
DELETE MAP mapname VERSION=1.                                    
//         DD DSN=MAP.SOURCE,DISP=SHR                             
//STEP3    EXEC PGM=RHDCMPUT,REGION=1000K                       
//STEPLIB  DD DSN=......LOADLIB...                        
//CDMSLIB  DD DSN=......LOADLIB...                          
//SYSLST   DD SYSOUT=*                                          
//SYSPCH   DD SYSOUT=*                                          
//*YSUDUMP DD SYSOUT=*                                          
//SYSIDMS  DD *                                                 
DMCL=yourDMCL DICTNAME=yourdict             
//SYSIPT   DD *                             
PROCESS=LOAD                                                   
MAP=mapname,VERSION=1                                          
/*