DS
Warnings : 1
New User
Joined: 09 Jun 2005
Posts: 15
Location: Bangalore
|
|
|
|
Hi,
Can any one tell me how these EXEC CICS WEB commands works. I followed IBM guide lines, but that didn't work as expected. What are the parameters that require to pass. I am using www.SoapUI.org client to send HTTP request.
| Code: |
WS-SECTION.
05 WS-HTTP-METHOD-LENGTH PIC S9(8) COMP VALUE +10.
05 CTHEADER-NAME PIC X(12) VALUE 'Content-Type'.
05 CTHEADER-NAME-LENGTH PIC S9(8) COMP VALUE +12.
05 CTHEADER-VALUE PIC X(409) VALUE SPACES.
05 CTHEADER-VALUE-LENGTH PIC S9(8) COMP VALUE +409.
.....
.....
EXEC CICS
WEB READ
HTTPHEADER(CTHEADER-NAME)
NAMELENGTH(CTHEADER-NAME-LENGTH)
VALUE(CTHEADER-VALUE)
VALUELENGTH(CTHEADER-VALUE-LENGTH)
RESP(WS-RESPONSE)
END-EXEC.
EXEC CICS
WEB RECEIVE
SET(LS-INBOUND-PTR)
LENGTH(LS-INBOUND-LENGTH)
RESP(WS-RESPONSE)
END-EXEC.
|
Note: For debugging the I am using CEDX,XXYY --> To turn on debugging on 'XXYY' transaction.
to turn off debugging CEDX,XXYY,OFF --> Please correct me if I am wrong.
Hint: CEDX is used for Non-Terminal CICS web modules debugging.
My interest is to read SOAP message from SOAP UI client.
Some of CEDX abend trace logs
------------------------------------
| Code: |
EIBCPOSN = 5
EIBCALEN = 0
EIBAID = X'7D'
EIBFN = X'3806' WEB
EIBRCODE = X'000000100000'
EIBDS = '........'
+ EIBREQID = '........'
..........
..........
STATUS: AN ABEND HAS OCCURRED
+ EIBSYNRB = X'00'
EIBNODAT = X'00'
EIBRESP = 16 INVREQ
EIBRESP2 = 1
EIBRLDBK = X'00'
.....
.....
OFFSET:X'4D8196'
ABEND : ASRA
|
I searched in internet also in forum but didn't get any where. Please tell me if any sample code kind / examples for these commands usage. Apreciate your help.
Thanks & Regards,
DS. |
|
