why does ATADDBN abend D003 when ADS TRACE is executed

Products

• IDMS
• IDMS - Database
• IDMS - ADS

Issue/Introduction

I recently installed ADS/Trace and now that I test it, I get an abend. 
Program ATADDBN abends with a program check 
D003 PROGRAM CHECK IN ATADDBN AT OFFSET A2 
Why?

Environment

Release: IDADSO00100-18.5-ADS-for CA-IDMS
Component:

Resolution

At offset A2 in ATADDBN, it has just stored a valued into itself. So this module is not truly reentrant. 

It must be defined in sysgen as NOPROTECT

Here is the PROGRAM definition as it should be defined to your system: 

ADD PROGRAM ATADDBN 
CONCURRENT 
DYNAMIC 
DUMP THRESHOLD IS 0 
ENABLED 
ERROR THRESHOLD IS 5 
ISA SIZE IS 0 
LANGUAGE IS ASSEMBLER 
MPMODE IS SYSTEM 
NOMAINLINE 
MULTIPLE ENCLAVE IS ON 
NEW COPY IS ENABLED 
OVERLAYABLE 
PROGRAM 
NOPROTECT 
REENTRANT 
NONRESIDENT 
REUSABLE 
SAVEAREA.