This should be a clue.

PSW     078D1400 80000002                

Follow normal debugging techniques.


On Wed, 17 Jul 2019 22:10:20 -0400 Joseph Reichman <reichman...@gmail.com>
wrote:

:>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

--
Binyamin Dissen <bdis...@dissensoftware.com>
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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