How to remove an IDMS unlicensed product?

Document ID : KB000017975
Last Modified Date : 14/02/2018
Show Technical Document Details

Descriprtion:

Since IDMS 18.x, specifying what IDMS products you intend to use are determined during the Configuration process by means of Product Intent Module RHDCPINT. However when some IDMS products are no longer licensed, you are required to remove them. This article describes how to remove the IDMS product.

Solution:

Since IDMS 18.x, specifying what IDMS products you intend to use is determined during the Configuration process by means of Product Intent Module RHDCPINT. However when some IDMS products are no longer licensed, you are required to remove them.

How do you determine that you are using an unlicensed IDMS product? If there is no Product Intent entry defined in RHDCPINT for that product a "DC208005 Product <CA IDMS product name> not intended for use" message will be display. However if both the "CAS9180E - CPU xxxxxx REQUIRES A LMP KEY TO RUN PROD (XX)" message and are "DC208005 Product <CA IDMS product name> not intended for use" message are displayed at task execution then this is a bug that has been resolved by apars RO71626 (18.5) or RO71845 (18.0).

If the IDMS product is to be removed from use, remove the product from the RHDCPINT (Product Intent Module), reassemble the module, recycle Central Version (CV) or issue the following commands:

DCMT VARY NUC MOD RHDCPINT NC

DCMT VARY NUC RELOAD.

Then check using DCPROFIL to verify that the product is gone.

Sample Assemble/link JCL follows:


//*   ASSEMBLE RHDCPINT                           *                 
//ASMPINT  EXEC PGM=ASMA90,PARM='USING(WARN(11))'                   
//*    EXPECTED RETURN CODE:  00                                    
//SYSUT1   DD SPACE=(4096,(120,120),,,ROUND),UNIT=VIO,              
//            DCB=BUFNO=1                                           
//SYSPUNCH DD SYSOUT=B                                              
//SYSLIB   DD DISP=SHR,DSN=SYS1.MACLIB                              
//         DD DISP=SHR,DSN=SYS1.MODGEN                              
//         DD DISP=SHR,DSN=idms180.CAGJMAC                  
//SYSPRINT DD SYSOUT=*                                              
//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=idms180.CUSTOM.SRCLIB(RHDCPINT)         
//*-----------------------------------------------*                 
//*   LINK RHDCPINT                               *                 
//LINKPINT EXEC PGM=IEWL,PARM='LIST=STMT,NCAL',COND=(0,LT,ASMPINT)  
//*    EXPECTED RETURN CODE:  00                                    
//SYSPRINT DD SYSOUT=*                                              
//SYSUT1   DD SPACE=(1024,(120,120),,,ROUND),UNIT=VIO,              
//            DCB=BUFNO=1                                           
//SYSLMOD  DD DISP=SHR,DSN=idms180.CUSTOM.LOADLIB         
//OBJLIB   DD DISP=(OLD,DELETE),DSN=&&OBJLIB                        
//SYSLIN   DD DISP=SHR,                                             
//            DSN=idms180.CUSTOM.LNKLIB(RHDCPINT)         
/*

References:

RO71626 (18.5) NO PRODUCT INTENT AND NO LMP KEY, GET BOTH ERROR MESSAGE
RO71845 (18.0) NO PRODUCT INTENT AND NO LMP KEY, GET BOTH ERROR MESSAGE
CA IDMS Installation and Maintenance Guide:
Chapter 5: Starting Your Product, 'Unlicensed Products'