COBOL

COBOL

COBOL

COBOL is responsible for the efficient, reliable, secure, and unseen day-to-day operations of the world's economy.


#Programminglanguages
 View Only

  • 1.  ABENDC01 when XML GENERATE is executed from CICS

    Posted 06/16/20 10:55 PM
    Edited by Yuan Jie Song 06/17/20 12:03 AM

    Disclaimer: This post is migrated from IBM Developer Answers that is no longer in use. Its original author is Deepak gopalakrishnan, posted on Aug 14, 2018.

    Hi, My program is taking a ABENDC01 when XML GENERATE is executed from CICS in the CSECT IWZCXGF, part of IGZCPAC. Same program is working alright in batch mode though. Could someone help me to get to the root cause of this?

    A CICS abend ASRA occurred in module IGZCPAC at offset X'11900'. A program-interruption code 0001 (Operation Exception) is associated with this abend and indicates that: An attempt was made to execute an instruction with an invalid operation code. 23 Call IGZCPAC n/a IGZCXML E+6C4 24 Abend ASRA IGZCPAC n/a IWZCXGF E+318 Load Module Name. . . . . . : SYS1.SCEERUN(IGZCPAC) - INITIAL LOAD PHASE (COBP At Address. . . . . . . . : 25A00000 Load Module Length. . . . : X'6B9E0' Entry Point Name. . . . . . : IGZCXML - XML verbs run-time interface routine At Address. . . . . . . . : 25A672A8 (Module IGZCPAC offset X'672A8') R14: A5A11902 (Module IGZCPAC + X'11902') R15: 00000000 (2048 bytes of storage addressable)

    Application program details:
    Program Language. . . . . : COBOL (Compiled using IBM Enterprise COBOL for
    z/OS and OS/390 V4 R2 M0 on 2018/08/07 at 12:20:02)

    Compiler Options Used . . :

    NOADV APOST ARITH(COMPAT) AWO NOBLOCK0 NOCICS CODEPAGE(1140) NOCURRENCY DATA(31) NODATEPROC NODBCS NODECK NODLL NODUMP NODYNAM NOEXPORTALL FASTSRT INTDATE(ANSI) LIB LIST MAP NOMDECK NONAME NONUMBER OBJ NOOFFSET OPTFILE NOOPTIMIZE OUTDD(SYSOUT) PGMNAME(COMPAT) RENT RES RMODE(ANY) NOSEQUENCE SIZE(MAX) SOURCE NOSQL SQLCCSID NOSSRANGE TERM TEST(NOHOOK SEPARATE EJPD) NOTHREAD TRUNC(OPT) NOVBREF NOWORD XREF ZWB 
    

    --------------------------------------------------------------------
    Question asked by Deepak gopalakrishnan on Aug 14, 2018
    --------------------------------------------------------------------
    
                                                
    
					
                                                    

        
                                                
				
    
                                                
    
                                                    
                                                
    
                                                
                                            
    
                                        
    

                                        
                                        

                                    
			
    

                                    
                                
    

                                
                                
    
                                
    
                            
		
    • 
                
                    
  • 
			                                
                                
                                
    
                                    
    
                                        
    
                                            
                                            2.  
                                            RE: ABENDC01 when XML GENERATE is executed from CICS
                                            
                                            
                                            
                                        
    
                                    
    
                                    
    
                                        
    
				
                                                
    
                                                    
    
					
        
        
        
        
        
        
        
            
        
    
				
    
                                                
    
                                            
			
    
                                    
    
                                
    
                                
                                

                                
    
                                    
    
                                        
                                    
    

                                    
    
				

                                        
    
                                            
    
                                                
    
                                                    
    
                                                        Posted 06/16/20 10:59 PM
    Edited by Yuan Jie Song 06/16/20 10:59 PM    
                                                        
                                                    
    
                                                
    
                                            
    
                                            
    
                                                

                                                
                                            
    
                                        
    

                                        
    
                                            
    
                                                
    Hi Deepak,
    

    We recently had a similar issue report to the CICS team.
    COBOL Support stated the problem is likely to be caused by the fact that the C run-time has not been initialized. The C run-time is needed when using XML. One way to make this happen would be to include CEESG003 with the main program.
    

    One of the following can be used as a circumvention:
    1. Place a small COBOL stub program between the calling assembler program and the COBOL one with the XML verb. Then have that stub do a dynamic call to the one with the XML verb.
    2. Change the assembler to be LE-enabled, and use the CEEFETCH macro to load the COBOL program.
    3. Linkedit CEESG003 from library SCEELKED with the main COBOL program
    

    Debbie McLaughlin CICS Level 2 Support

    -----------------------------------------------------------
    Answered by DebbieMcLaughlin on Aug 24, 2018
    -----------------------------------------------------------




    
                                                
    
					
                                                    

        
                                                
				
    
                                                
    
                                                    
                                                
    
                                                
                                            
    
                                        
    

                                        
                                        

                                    
			
    

                                    
                                
    

                                
                                
    
                                
    
                            
		
    • 
                
        

    






            

        

    




	



    

         
    
Related Content