Why am I getting and ABEND- IMS 0476?

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

Getting an IMS 0476 abend running File Master Plus for IMS

Question:

Why am I getting and ABEND- IMS 0476?

Environment:
ADFMIM00200-10.0-File Master Plus-for IMS IMS VERSION 13.1 We are using BMP only
Answer:

       PCB     TYPE=TP,LTERM=XDRDDCDT,ALTRESP=NO,SAMETRM=NO,MODIFY=NO, C 

               EXPRESS=NO                                               

       PCB     TYPE=DB,DBDNAME=LDRCDT1D,PROCOPT=AP,KEYLEN=29,          C 

               PCBNAME=PCB10,LIST=YES                                   

       SENSEG  NAME=RDRCDT10,PARENT=0                               

       SENSEG  NAME=RDRCDT20,PARENT=RDRCDT10                            

       SENSEG  NAME=RDRCDT22,PARENT=RDRCDT10                            

       SENSEG  NAME=RDRCDT31,PARENT=RDRCDT22                            

       SENSEG  NAME=RDRCDT24,PARENT=RDRCDT10                            

       SENSEG  NAME=RDRCDT34,PARENT=RDRCDT24                             

       SENSEG  NAME=RDRCDT25,PARENT=RDRCDT10                            

       SENSEG  NAME=RDRCDT26,PARENT=RDRCDT10                            

       SENSEG  NAME=RDRCDT28,PARENT=RDRCDT10                            

       PSBGEN  PSBNAME=DRDNDCDT,LANG=PL/I,CMPAT=YES                     

       END        

What could be the cause of the 0476 abend is perhaps LANG=PL/I in the PSBGEN call. The PCB address gets passed differently if LANG=PL/I. Try to remove that parameter or specify LANG=COBOL. 

One other remark is about the CMPAT=YES setting in that same PSBGEN call. 

 

That parameter is supposed to create a TP PCB under the covers for compatibility with online programs. Either change the CMPAT parameter or try to remove the TP PCB from the PSB. Best regards and good luck,