DC601015 EXCLUDE INVALID FOR PRIMARY NAME

Products

• IDMS

Issue/Introduction

 Is there any way to modify the primary synonym of a record to make the synonym not the primary to avoid E DC601015  EXCLUDE INVALID FOR PRIMARY NAME  trying to exclude the synonym from the record?

For example:

MOD REC CSYPDATE-RECORD v 2 EXCLUDE RECORD SYNONYM CSYPDATE-RECORD VERSION 1 
*+ E DC601015  EXCLUDE INVALID FOR PRIMARY NAME             

 

Environment

Release : 19.0

Component : ADS

Resolution

 

This requires DMLO otherwise it must be done programmatically:

The primary synonym flag is in #R079DS  DSECT at

00004F         SYN079   DS    CL1           SYNONYM TYPE
        000D7  PRIME079 EQU      C'P'       PRIMARY SYNONYM.

The dictionary record for this is RCDSYN-079. This is an example from DMLO:

09/09/22.......................RECORD : RCDSYN-079................
02 RSYN-NAME-079............................A  CSYPDATE-RECORD    
02 RSYN-VER-079.............................H  +00002             
02 BUILDER-079..............................A  D                  
02 PREFIX-IND-079...........................A                     
02 PREFIX-VAL-079...........................A                     
02 VIEW-079.................................A                     
02 LANG-FLAG-079............................B  00000000           
02 SYN-TYPE-079.............................A  P                  
02 FILLER#001...............................A    

 

 

This is the procedure with DMLO: 

=============           CA IDMS DML ONLINE RELEASE 19.0            =============
                                                                                
 USER ID     ==> BARRA01                               PASSWORD ==>             
                                                                                
 PROFILE NAME==>             READY MODE==>    (R=RETR/U=UPDT/P=PROF)            
                                                                                
                                                                                
 SUBSCHEMA   ==> IDMSNWKA    SCHEMA    ==> idmsntwk    VERSION  ==> 1           
                                                                                
                             DICTNAME  ==> SYSDIRL     DICTNODE ==>             
                                                                                
                             DBNAME    ==> appldict    DBNODE   ==>             
                                                                                
                             PRINT CLASS=> 01          INTERRUPT/EXIT ==> PA1   
                                                                                
                   LOGICAL DISPLAY WIDTH=> 080         LOWER CASE=> N           
                                                                                
 PF1  PF13 : HELP(DMLO)                                                         
 PF2  PF14 : HELP(SIGNON)                                                       
 PF4  PF16 : PROFILE LIST                                                       
                                                                                
                                                                                
  ACTION      AREA              MODE                
   U_    001 DDLDCLOD           SU READY OK        
   R_    002 DDLDCMSG           SR READY OK        
   U_    003 DDLDML             SU READY OK        
                                                   
                                                   
 
 DML/O R19.0 ====================================================
 RECORD=                 STATUS=0000  DBKEY=0000000255-0008 KEY0=
 DIS RCDSYN-079                                                  
 -OK-                                                            
 SUBSCHEMA=IDMSNWKA  SCHEMA=IDMSNTWK  VER=0001    COL 001-080  LI

 
 09/09/22.......................RECORD : RCDSYN-079.....................09:22:09
 02 RSYN-NAME-079............................A  CSYPDATE-RECORD                 
 02 RSYN-VER-079.............................H  +00001                          
 02 BUILDER-079..............................A                                  
 02 PREFIX-IND-079...........................A                                  
 02 PREFIX-VAL-079...........................A                                  
 02 VIEW-079.................................A                                  
 02 LANG-FLAG-079............................B  00000000                        
 02 SYN-TYPE-079.............................A                                  
 02 FILLER#001...............................A                                  
                                                                                
 OBTAIN CALC RCDSYN-079 

result:
09/09/22.......................RECORD : RCDSYN-079................
02 RSYN-NAME-079............................A  CSYPDATE-RECORD    
02 RSYN-VER-079.............................H  +00002             
02 BUILDER-079..............................A  D                  
02 PREFIX-IND-079...........................A                     
02 PREFIX-VAL-079...........................A                     
02 VIEW-079.................................A                     
02 LANG-FLAG-079............................B  00000000           
02 SYN-TYPE-079.............................A  P                  
02 FILLER#001...............................A    
 
overtype P with blank.      

then MODIFY RCDSYN-079