View previous topic :: View next topic
|
Author |
Message |
DS Warnings : 1 New User
Joined: 09 Jun 2005 Posts: 25 Location: Bangalore
|
|
|
|
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 |
|
|
DS Warnings : 1 New User
Joined: 09 Jun 2005 Posts: 25 Location: Bangalore
|
|
|
|
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 |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8696 Location: Dubuque, Iowa, USA
|
|
|
|
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 |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
What does pressing PF1 show?
How is this LS-INBOUND-LENGTH defined and does it contain a numeric value? |
|
Back to top |
|
|
DS Warnings : 1 New User
Joined: 09 Jun 2005 Posts: 25 Location: Bangalore
|
|
|
|
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 |
|
|
DS Warnings : 1 New User
Joined: 09 Jun 2005 Posts: 25 Location: Bangalore
|
|
|
|
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 |
|
|
DS Warnings : 1 New User
Joined: 09 Jun 2005 Posts: 25 Location: Bangalore
|
|
|
|
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 |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Good to hear it is working. Thank you for the update.
It will surely help someone else when they encounter this
d |
|
Back to top |
|
|
|