ICAL SENDRECV MYDDTOR1 001000 00050 00100
where: D MYDDTOR1 TYPE=IMSCON TMEMBER=HWS1 TPIPE=SYNCTP04 SYNTIMER=1000
where: *
* IMS Callout Sample copybook
*
*********************************************************************/
* */
* (c) Copyright IBM Corp. 2008 */
* All Rights Reserved */
* Licensed Materials - Property of IBM */
* */
* DISCLAIMER OF WARRANTIES. */
* */
* The following (enclosed) code is provided to you solely for the */
* purpose of assisting you in the development of your applications. */
* The code is provided "AS IS." IBM MAKES NO WARRANTIES, EXPRESS OR */
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF */
* MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE, REGARDING */
* THE FUNCTION OR PERFORMANCE OF THIS CODE. */
* IBM shall not be liable for any damages arising out of your use */
* of the generated code, even if they have been advised of the */
* possibility of such damages. */
* */
* DISTRIBUTION. */
* */
* This generated code can be freely distributed, copied, altered, */
* and incorporated into other software, provided that: */
* - It bears the above Copyright notice and DISCLAIMER intact */
* - The software is not for resale */
* */
*********************************************************************/
01 CALLOUT-REQUEST.
05 CALLOUT-REQUEST-STR PIC X(50).
01 CALLOUT-RESPONSE.
05 CALLOUT-RESPONSE-STR PIC X(50).
| Parameter | Value |
|---|---|
| Platform Name | Z/OS |
| Codepage | IBM-037 |
| Floating point format name | IBM® Hexadecimal |
| External decimal sign | EBCDIC |
| Endian name | Big |
| Remote integer endian name | Big |
| Quote name | DOUBLE |
| Trunc name | STD |
| Nsymbol name | DBCS |
| Parameter | Value |
|---|---|
| Platform Name | Z/OS |
| Codepage | IBM-037 |
| Floating point format name | IBM Hexadecimal |
| External decimal sign | EBCDIC |
| Endian name | Big |
| Remote integer endian name | Big |
| Quote name | DOUBLE |
| Trunc name | STD |
| Nsymbol name | DBCS |
public sample.ims.data.CALLOUTRESPONSE invokeCall(
sample.ims.data.CALLOUTREQUEST cALLOUTREQUEST) {
// TODO Need to implement business logic here.
System.out.println("Synchronous callout request from IMS to WebSphere MDB");
System.out.println(cALLOUTREQUEST.getCallout__request__str());
sample.ims.data.CALLOUTRESPONSE response = new CALLOUTRESPONSE();
System.out.println("Synchronous callout response from WebSphere MDB to IMS");
response.setCallout__response__str("HELLO FROM WAS MDB");
return response;
}