Hi 

 

 

I am getting the following abend  in the beginning of CEEETRY macro seems
like the call to CEEINIT

 

 

This is the abend

 

CEE3798I ATTEMPTING TO TAKE A DUMP FOR ABEND U4087 TO DATA SET: IBMUSER.D

03169.IBMUSER                                                            

IGD100I 0AB5 ALLOCATED TO DDNAME SYS00053 DATACLAS (        )            

IEA822I COMPLETE TRANSACTION DUMP WRITTEN TO IBMUSER.D198.T2203169.IBMUSE

CEE3797I LANGUAGE ENVIRONMENT HAS DYNAMICALLY CREATED A DUMP.            

CEE0374C CONDITION=CEE3201S TOKEN=00030C81 59C3C5C5 00000000             

         WHILE RUNNING PROGRAM EQA10OSM WHICH STARTS AT 0002E138         

         AT THE TIME OF INTERRUPT                                        

         PSW     078D1400 80000002                                       

         GPR 0-3 0000270F 1F7E1750 1F7D9170 1F7E1364                     

         GPR 4-7 1F7DFE24 0002E326 1F7E1778 1F7E135C                     

         GPR 8-B 00000000 00000000 1F808670 0002EE78                     

         GPR C-F 1F7D9188 1F7E1688 8002EC7C 80000000                     

         FLT 0-2 2610000000000000  1800000000000000                      

         FLT 4-6 40517CC1B727220B  40A2F9836E4E4415                      

CEE0374C CONDITION=CEE3201S TOKEN=00030C81 59C3C5C5 00000000             

         WHILE RUNNING PROGRAM EQA10OSM WHICH STARTS AT 0002E138         

         AT THE TIME OF INTERRUPT                                        

         PSW     078D0400 80000002                                       

 

 

 

This is the entry CEEENTRY macro

 

 

 

TESTPRGE CEEENTRY PPA=DLLPPA,MAIN=YES,AUTO=WORKSIZE

 

 

Running it under TEST it abends at the balr to CEEINIT

 

       STM   14,12,CEEDSAR14-C

       L     2,CEEINPL0002    

       L     15,CEEINT0002    

       DROP  15               

       BALR  14,15            

       LR    2,1              

       L     14,752(,12)      

       OI    8(14),X'80'      

       L     1,CEEDSANAB-CEEDS

       IILH  0,CEEY0002/65536 

       IILL  0,CEEY0002-(CEEY0

       ALR   0,1              

 

  

 


----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Reply via email to