Why am I getting and ABEND- IMS 0476?
search cancel

Why am I getting and ABEND- IMS 0476?

book

Article ID: 15146

calendar_today

Updated On:

Products

File Master Plus for IMS File Master Plus for DB2 for z/OS

Issue/Introduction

Getting an IMS 0476 abend running File Master Plus for IMS.  Why am I getting and ABEND- IMS 0476?

Resolution

       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. 1.