ICAL SENDRECV MYDDTOR1 001000 00050 00100
где: D MYDDTOR1 TYPE=IMSCON TMEMBER=HWS1 TPIPE=SYNCTP04 SYNTIMER=1000
где: *
* Пример вызова IMS
*
*********************************************************************/
* */
* (c) Авторское право Корпорации IBM 2008 */
* Авторские права защищены */
* Лицензионный материал - собственность IBM */
* */
* Заявление об ограничении ответственности. */
* */
* Следующий код (закрытый) предоставляется исключительно для помощи */
* в разработке приложений. Код предоставляется "КАК ЕСТЬ". IBM НЕ */
* ДАЕТ НИКАКИХ ГАРАНТИЙ, ЯВНЫХ ИЛИ ПОДРАЗУМЕВАЕМЫХ, ВКЛЮЧАЯ (НО */
* НЕ ОГРАНИЧИВАЯСЬ ИМИ) ПОДРАЗУМЕВАЕМЫЕ ГАРАНТИИ КОММЕРЧЕСКОЙ */
* ЦЕННОСТИ И ПРИГОДНОСТИ ДЛЯ ОПРЕДЕЛЕННОЙ ЦЕЛИ В ЧАСТИ ФУНКЦИЙ */
* ИЛИ ИСПОЛНЕНИЯ НАСТОЯЩЕГО КОДЕКСА. */
* IBM не несет ответственности за любой ущерб, вытекающий из */
* использования сгенерированного вами кода, даже если фирма была */
* предупреждена о возможности таких убытков. */
* */
* РАСПРОСТРАНЕНИЕ. */
* */
* Этот сгенерированный код можно свободно распространять, */
* копировать, изменять и включать в другое программное обеспечение, */
* при условии, что: */
* - он сопровождается вышеприведенным уведомлением об авторских */
* правах и ОТКАЗОМ от неповрежденности */
* - программное обеспечение не перепродается */
* */
*********************************************************************/
01 CALLOUT-REQUEST.
05 CALLOUT-REQUEST-STR PIC X(50).
01 CALLOUT-RESPONSE.
05 CALLOUT-RESPONSE-STR PIC X(50).
| Параметр | Значение |
|---|---|
| Имя платформы | Z/OS |
| Кодовая страница | IBM-037 |
| Идентификатор формата с плавающей точкой | IBM® Hexadecimal |
| Внешний десятичный знак | EBCDIC |
| Идентификатор endian | Big |
| Идентификатор удаленного целого endian | Big |
| Идентификатор quote | DOUBLE |
| Идентификатор trunc | STD |
| Идентификатор Nsymbol | DBCS |
| Параметр | Значение |
|---|---|
| Имя платформы | Z/OS |
| Кодовая страница | IBM-037 |
| Идентификатор формата с плавающей точкой | IBM Hexadecimal |
| Внешний десятичный знак | EBCDIC |
| Идентификатор endian | Big |
| Идентификатор удаленного целого endian | Big |
| Идентификатор quote | DOUBLE |
| Идентификатор trunc | STD |
| Идентификатор Nsymbol | 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;
}