Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

How to resolve ASRA abend in CICS Web service module?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
DS
Warnings : 1

New User


Joined: 09 Jun 2005
Posts: 24
Location: Bangalore

PostPosted: Fri May 22, 2009 4:40 am    Post subject: How to resolve ASRA abend in CICS Web service module?
Reply with quote

Hi,

I am getting ASRA abend while trying CONVERT ASCII data to EBCIDIC.
Code:

 _ 001089 CONVERT-ASCII-TO-EBCDIC  SECTION.                       
 _ 001090     DISPLAY 'CONVERT-ASCII-TO-EBCDIC:'.                 
 A    ==>     MOVE FUNCTION                                       
     ==>                                                           
     ==> ABEND/DUMP CODE: ASRA                                     
     ==>                                                           
     ==>      Press PF1 for a detailed description.               
     ==>                                                           
 _ 001092             DISPLAY-OF                                   
 _ 001093               ( FUNCTION NATIONAL-OF                     
 _ 001094                    (LS-INBOUND-AREA  ASCII-CCSID),       
   001095*DS                 (LS-INBOUND-AREA(1:LS-INBOUND-LENGTH)
   001096*DS                                  ASCII-CCSID),       
 _ 001097                   EBCDIC-CCSID                           
 _ 001098               )   

Actual code at that point
Code:

_ 001089 CONVERT-ASCII-TO-EBCDIC  SECTION.                       
_ 001090     DISPLAY 'CONVERT-ASCII-TO-EBCDIC:'.                 
A    ==>     MOVE FUNCTION                                       
_ 001092             DISPLAY-OF                                   
_ 001093               ( FUNCTION NATIONAL-OF                     
_ 001094                    (LS-INBOUND-AREA  ASCII-CCSID),       
  001095*DS                 (LS-INBOUND-AREA(1:LS-INBOUND-LENGTH)
  001096*DS                                  ASCII-CCSID),       
_ 001097                   EBCDIC-CCSID                           
_ 001098               )                                         
_ 001099          TO PASS-BODY.                                   
  001100                                                         
_ 001101 CONVERT-ASCII-TO-EBCDIC-EXIT.                           
_ 001102     EXIT.


I am trying to READ XML format IN-BOUND REQUEST from SoapUI cleint and processing in CICS TS v2.3 prorgam and sending RESPONSE using WEB SEND back to SoapUI cleint.

- Does any one have idea about testing methods from CLIENT to CICS TS v2.3 without having real GUI cleints?
- How to test these kind of setup?

Appreciate your ideas.

Thanks & Regards,
DS.
Back to top
View user's profile Send private message

DS
Warnings : 1

New User


Joined: 09 Jun 2005
Posts: 24
Location: Bangalore

PostPosted: Fri May 22, 2009 4:43 am    Post subject: Reply to: How to resolve ASRA abend in CICS Web service modu
Reply with quote

Hi,

Just wanted to add one more point about SoapUI cleint. I am using SoapUI cleint from www.soapui.org

Thanks & Regards,
DS.
[/u]
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7932
Location: Bellevue, IA

PostPosted: Fri May 22, 2009 5:17 am    Post subject:
Reply with quote

You need to verify that the data fields in the statement giving the abend all have valid values. I suggest starting, not in a program, but by using CECI to issue the commands from a terminal to connect, transfer data, and verify what you receive from the SOAPUI client.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri May 22, 2009 5:33 am    Post subject:
Reply with quote

Hello,

What does pressing PF1 show?

How is this LS-INBOUND-LENGTH defined and does it contain a numeric value?
Back to top
View user's profile Send private message
DS
Warnings : 1

New User


Joined: 09 Jun 2005
Posts: 24
Location: Bangalore

PostPosted: Fri May 22, 2009 11:10 am    Post subject: Reply to: How to resolve ASRA abend in CICS Web service modu
Reply with quote

Hello Moderator,

Yes. It is declared and here below PROCEDURE DIVISION statements
Code:

     05  LS-INBOUND-LENGTH PIC S9(8) COMP VALUE +0.
.....
.....                       
     EXEC CICS         
         WEB RECEIVE     
         SET(LS-INBOUND-PTR) 
         LENGTH(LS-INBOUND-LENGTH) 
         RESP(WS-RESPONSE)   
     END-EXEC.         

Appreciate seniors suggestion. I will try to use CECI to see each step. Next to have this precisely I have used reference modification with LS-INBOUND-LENGTH for ASCII - EBCIDIC conversion.

Is there any other way to convert ASCII - EBCIDIC? other than using DISPLAY-OF & FUNCTIONAL-OF. Environment is on CICS v2.3.

Thanks much for your time.

Thanks & Regards,
DS.
Back to top
View user's profile Send private message
DS
Warnings : 1

New User


Joined: 09 Jun 2005
Posts: 24
Location: Bangalore

PostPosted: Fri May 22, 2009 11:30 am    Post subject: Reply to: How to resolve ASRA abend in CICS Web service modu
Reply with quote

Hello Moderator,

PF1 option is saying that we may use CORE=CURR option to resolve this. But here other similar programs are working. Just for idea here I am giving LINKAGE also.
Code:

 LINKAGE SECTION.           
                                                 
 01  LS-INBOUND-AREA PIC X(409600).   
 01  PASS-BODY       PIC X(409600).   

Appreciate your help.

Thanks & Regards,
DS.
Back to top
View user's profile Send private message
DS
Warnings : 1

New User


Joined: 09 Jun 2005
Posts: 24
Location: Bangalore

PostPosted: Fri Jul 24, 2009 3:56 am    Post subject:
Reply with quote

Folks,

Its resolved. The reason in Content HTTP header length is too large. Earlier it was some 300+ bytes which are not necessary. Now reduced to 100. Its working now. I am able to convert data from ASCII - EBCDIC successfully and see the SOAP message data in CICS program.

CHTTP-LENGTH is a parameter in WEB READ command. WEB READ is prior to WEB RECEIVE command. Intrinsic FUNCTION NATIONAL-OF & DISPLAY-OF are working fine as expected. All the time passed correct data as per data type. I'm sorry did not update earlier. Thanks again for all your time.

Thanks & Regards,
DS.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri Jul 24, 2009 7:15 am    Post subject: Reply to: How to resolve ASRA abend in CICS Web service modu
Reply with quote

Good to hear it is working. Thank you for the update.

It will surely help someone else when they encounter this icon_smile.gif

d
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts CICS transaction slow response time vasanthz All Other Mainframe Topics 2 Thu Jan 19, 2017 1:31 am
No new posts Any Recommended Timesharing service c... johnmull All Other Mainframe Topics 0 Mon Jan 02, 2017 11:39 am
No new posts INDEPENDENT CICS TS 4.1 MRO REGION UP... Kyle Carroll CICS 0 Wed Dec 14, 2016 6:55 pm
No new posts CICS START AND CANCEL blayek CICS 1 Wed Dec 07, 2016 3:27 am
No new posts How does a called pgm know if its cal... Graeme Westerman COBOL Programming 4 Tue Nov 29, 2016 9:25 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us