OPSMVS | OPS3187O IMS SYSTEM IMSX DFSICLP0 TAG ERROR AT X'000451F0'

Products

• OPS/MVS Event Management & Automation

Issue/Introduction

Users receiving this message need to utilize an IMS Type 2 exit for OPS/MVS to support the specified IMS.

Environment

Release : 14.0; 13.5

Component : OPS/MVS

Cause

OPSMVS - OPS3187O IMS SYSTEM IMSX DFSICLP0 TAG ERROR AT X'000451F0'

This message can be generated when attempting to call the type 1 DFSAOUE0:
The IMS type 2 exit, DFSAOE00, not calling the type 1, DFSAOUE0. DFSAOE00 must call DFSAOUE0.

Resolution

Before performing any changes, review the message id link under "Additional Information" - it provides a list of items needed to properly assess use of this code.

The OPS DFSAOE00 has comments in it to UNCOMMENT a few lines of code if you have a DFSAOUE0. Looking in OPS.CCLXASM(OPSAOE00), you will see comments to remove the asterisks (*) so that DFSAOE00 will call DFSAOUE0. After removal of the asterisks, the code should resemble the following:

*---------------------------------------------------------------------* /*@#03*/
*        THE FOLLOWING SECTION OF CODE IS INTENTIONALLY COMMENTED     * /*@#03*/
*        OUT.  USERS WHO HAVE A NEW OEM OR USER TYPE 1 EXIT TO BE     * /*@#03*/
*        INSTALLED SHOULD UNCOMMENT THE BLOCK OF SOURCE CODE          * /*@#03*/
*        BELOW.                                                       * /*@#03*/
*---+----1----+----2----+----3----+----4----+----5----+----6----+----7* /*@#03*/
         LR    R9,R1               PARMLIST                             /*@#03*/
         L     R9,SXPLFSPL-SXPL(,R9)  GET THE AOI EXIT PARM LIST        /*@#03*/
         USING DFSAOE0,R9                                               /*@#03*/
         CLI   AOE0SSTY,AOE0DBC    IS THIS A DBCTL ONLY ENVIRONMENT?    /*@#03*/
         BE    AO00RET             BRANCH IF YES                        /*@#03*/
         MVC   AOE0RPLY-DFSAOE0(L'AOE0RPLY,R9),=A(AOE0SEND)             /*@#03*/
AO00RET  DS    0H                                                       /*@#03*/

Then Assemble and link dummy type 2 IMS AOI exit in OPS.CNTL(OPSAOE00) that creates the DFSAOE00.

Additional Information

• OPS3187 message
  
  
• If you have a new OEM or USER TYPE 1 EXIT that needs to be called even when OPSMAIN is down, a small number of commented instructions below will need to be used in order for IMS to use your type 1 exit
  
  
• Ensure to uncomment these lines before assembling and link-editing this member into your IMS RESLIB
  
  
• When referencing CCLXASM, reference the high-level dataset and not individual member(s)
  
  
• Follow Assembler Coding Practices when (un)commenting programming lines
  
  
• If there's any additional questions on coding this exit, please don't hesitate to open a support ticket