UNDEFINED TASK CODE: DMEADSC USER userid with DME not configured.

Products

• IDMS

Issue/Introduction

UNDEFINED TASK CODE: DMEADSC  USER userid for sites not using DME.

 

Environment

Release : 19.0

Component : CA IDMS Dictionary Module Editor

Resolution

 

 You could rename program USET$$$ in the CAGJLOAD or rename or DISABLE program USET$$$ in the sysgen.

 

Also verify that DME is not enabled in RHDCPINT.

Use DCPROFIL and scroll down to * Product Intent Status *. If it is enabled, disable it.

      <...+....1....+....2....+....3....+....4....+....5....+....6....+....7..
...... ================================ T O P =================================
000001          TITLE 'RHDCPINT - Product Intent Table'                        
000002 *        #DEFPINT APPC           CA ADS APPC                            
000003 *        #DEFPINT CMS            CA IDMS CMS OPTION                     
000004          #DEFPINT IDMSDB         CA IDMS/DB                             
000005 *        #DEFPINT SERVER         CA IDMS SERVER                         
000006 *        #DEFPINT IDMSDC         CA IDMS/DC                             
000007 *        #DEFPINT PERFMON        CA IDMS PERFORMANCE MONITOR            
000008 *        #DEFPINT PRESPACK       CA IDMS PRESSPACK                      
000009 *        #DEFPINT VSAM/T         CA IDMS VSAM TRANSPARENCY              
000010 *        #DEFPINT DL1/T          CA IDMS DL1 TRANSPARENCY               
000011 *        #DEFPINT DBOMP/T        CA IDMS DBOMP TRANSPARENCY             
000012          #DEFPINT UCF            CA IDMS UCF                            
000013 *        #DEFPINT DICTLODR       CA IDMS DICTIONARY LOADER              
000014          #DEFPINT ADS            CA ADS                                 
000015 *        #DEFPINT ADSB           CA ADS BATCH                           
000016 *        #DEFPINT EDPAUDIT       CA EDP AUDITOR                         
000017 *        #DEFPINT ICMS           CA ICMS                                
000018 *        #DEFPINT DDS            CA IDMS DDS                            
000019 *        #DEFPINT OLQ            CA OLQ FOR CA IDMS                     
000020          #DEFPINT SQL            CA IDMS SQL                            
000021 *        #DEFPINT TOTAL/T        CA IDMS TOTAL TRANSPARENCY             
000022 *        #DEFPINT IDMSCULP       CA CULPRIT FOR CA IDMS                 
000023          #DEFPINT ADSALIVE       CA ADS ALIVE                           
000024 *        #DEFPINT ADSTRACE       CA ADS TRACE                           
000025 *        #DEFPINT DBANALYZ       CA IDMS/DB ANALYZER                    
000026 *        #DEFPINT DBAUDIT        CA IDMS/DB AUDIT                       
000027 *        #DEFPINT DBREORG        CA IDMS/DB REORG                       
000028 *        #DEFPINT DICTMIGR       CA IDMS DICTIONARY MIGRATOR            
000029          #DEFPINT DME            CA IDMS DICTIONARY MODULE EDITOR       
000030 *        #DEFPINT DQF            CA IDMS DICTIONARY QUERY FACILITY      
000031          #DEFPINT DMLO           CA IDMS DML ONLINE          

Just put an asterisk in column 1 to make it a comment.

The is the JCL to re-assemble and link it:

//*-----------------------------------------------*                     
//*   ASSEMBLE RHDCPINT                           *                     
//*-----------------------------------------------*                     
//ASM#PINT EXEC PGM=ASMA90,PARM='OBJECT,NODECK,USING(WARN(11))'         
//SYSUT1   DD SPACE=(4096,(120,120),,,ROUND),                           
//            UNIT=VIO,                                                 
//            DCB=BUFNO=1                                               
//SYSLIB   DD DISP=SHR,                                                 
//            DSN=SYS1.MACLIB                                           
//         DD DISP=SHR,                                                 
//            DSN=HLQ.CONFIG.IDMSR190.RT.CAGJMAC                    
//SYSPRINT DD DISP=SHR,                                                 
//            DSN=HLQ.CONFIG.IDMSR190.L.SPRNT121(ASM#PINT)          
//SYSLIN   DD DSN=&&OBJLIB(RHDCPINT),                                   
//            SPACE=(3040,(40,40,5),,,ROUND),DISP=(NEW,PASS),           
//            UNIT=VIO,DCB=(BLKSIZE=3040,LRECL=80,RECFM=FB,BUFNO=1)     
//SYSIN    DD DISP=SHR,                                                 
//            DSN=HLQ.CONFIG.IDMSR190.CUSTOM.SRCLIB(RHDCPINT)       
/*                                                                      
//LINKPINT EXEC PGM=IEWL,PARM='LIST=STMT,NCAL',COND=(0,LT,ASM#PINT)     
//*    EXPECTED RETURN CODE:  00                                        
//SYSPRINT DD SYSOUT=*                                                  
//SYSUT1   DD SPACE=(1024,(120,120),,,ROUND),UNIT=VIO,                  
//            DCB=BUFNO=1                                               
//SYSLMOD  DD DISP=SHR,DSN=HLQ.CONFIG.IDMSR190.CUSTOM.LOADLIB       
//OBJLIB   DD DISP=(OLD,DELETE),DSN=&&OBJLIB                            
//SYSLIN   DD DISP=SHR,                                                 
//            DSN=HLQ.CONFIG.IDMSR190.CUSTOM.LNKLIB(RHDCPINT)       
/*        

You should have your source and JCL. Recycle IDMS once this is done.

Additional Information