Topic
IC4NOTICE: developerWorks Community will be offline May 29-30, 2015 while we upgrade to the latest version of IBM Connections. For more information, read our upgrade FAQ.
No replies
aravindh86
aravindh86
1 Post
ACCEPTED ANSWER

Pinned topic Exposing a CICS program which gets input in a container as web service

‏2009-02-03T03:23:26Z |
I am attempting to expose a simple CICS program as a web service using Rational Developer for Z.
The program involves receiving data using channels and containers.

PROGRAM-ID. RDZPGM2.                                              30000 ENVIRONMENT DIVISION.                                            00050000 DATA DIVISION.                                                   00070000 WORKING-STORAGE SECTION.                                         00100000 01 CHANNELNAME   PIC X(16) VALUE 
'TESTCHNL'. 01 CONTNAME      PIC X(16) VALUE 
'EMPNO'. 01 EMPLOYEENAME  PIC X(20) VALUE 
'EMPNAM'. 01 EMPNUM        PIC 9(3). 01 EMPNAME       PIC X(20). 01 PSTATUS       PIC X(2). ***************************************************************** 00830000 PROCEDURE DIVISION.                                              00840000 MAIN-PARA. DISPLAY 
"IN Business Logic"   EXEC CICS GET CONTAINER(CONTNAME) CHANNEL(CHANNELNAME) INTO(EMPNUM) END-EXEC   DISPLAY 
" The received value is " EMPNUM   EXEC CICS RETURN END-EXEC . *****************************************************************


I need to know how I should use RDZ to create Webservice out of the above program that accepts input data via the container named “EMPNO” inside the Channel “TESTCHNL”.

I have tried to create the web service by following the steps below,

Find attached the screen shots of my attempt with RDZ . * * * * *

*

*

*

When I test the service using the web service explorer, I have got the input SOAP envelope as

<?xml version=
"1.0" encoding=
"UTF-8" ?> - <soapenv:Envelope xmlns:q0=
"http://www.RDZPGM2I.com/schemas/RDZPGM2IInterface" xmlns:soapenv=
"http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd=
"http://www.w3.org/2001/XMLSchema" xmlns:xsi=
"http://www.w3.org/2001/XMLSchema-instance"> - <soapenv:Body> - <q0:EMPNUM> <empnum>753</empnum> </q0:EMPNUM> </soapenv:Body> </soapenv:Envelope>


I have got the following error in the CEEMSG of the CICS Joblog.
italics
CEE3250C The system or user abend AEZV was issued.
From compile unit RDZPGM2 at entry point RDZPGM2 at compile unit offset +000005F2 at entry offset +000005F2 at address
172F6F72.
CEE3DMP V1 R9.0: Condition processing resulted in the unhandled condition.
italics
Further Search for the Abend shows

AEZV
Explanation:
CHANNELERR condition not handled.
This is one of a number of abends issued by the EXEC interface program. Because of their similar characteristics these abends are described as a group.
See the description of abend AEIA for further details.
Modules:
DFHEIP
Can anyone help about this?
Have anyone ever tried exposing a CICS program with Containers as a web service ??

Thanx in advance.