How to remove an IDMS unlicensed product?

Products

• IDMS
• IDMS - Database

Issue/Introduction

Since IDMS r18.x, specifying the IDMS products to be used is determined during the configuration process by means of Product Intent Module RHDCPINT. However when some IDMS products are no longer licensed, they must be removed. This article describes how to remove the IDMS product from RHDCPINT.

Environment

Release: All supported releases.

Resolution

How to determine if an unlicensed product is being used? If there is no Product Intent entry defined in RHDCPINT for that product a, "DC208005 Product <IDMS product name> not intended for use" message will be displayed.

If the IDMS product is to be removed from use, remove the product from the RHDCPINT (Product Intent Module), reassemble the module, and then 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=idms190.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=idms190.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=idms190.CUSTOM.LOADLIB
//OBJLIB   DD DISP=(OLD,DELETE),DSN=&&OBJLIB
//SYSLIN   DD DISP=SHR,
//            DSN=idms190.CUSTOM.LNKLIB(RHDCPINT)
/*

Additional Information

Unlicensed Products