ICAL SENDRECV MYDDTOR1 001000 00050 00100
em que: D MYDDTOR1 TYPE=IMSCON TMEMBER=HWS1 TPIPE=SYNCTP04
SYNTIMER=1000
em que: *
* Copybook de Amostra do Callout do IMS
*
*********************************************************************/
* */
* (c) Copyright IBM Corp. 2008 */
* Todos os direitos reservados */
* Materiais Licenciados - Propriedade da IBM */
* */
* RENÚNCIA DE RESPONSABILIDADE DE GARANTIAS. */
* */
* O código (incluso) a seguir é fornecido exclusivamente com o */
* propósito de ajudá-lo no desenvolvimento de seus aplicativos. */
* O código é fornecido "NO ESTADO EM QUE SE ENCONTRA. A IBM NÃO OFERECE NENHUMA
GARANTIA, SEJA EXPRESSA OU */
* IMPLÍCITA, INCLUINDO, MAS A ELAS NÃO SE LIMITANDO, AS GARANTIAS IMPLÍCITAS DE
*/
* COMERCIALIZAÇÃO E ADEQUAÇÃO A UM DETERMINADO PROPÓSITO REFERENTES */
* À FUNÇÃO OU AO DESEMPENHO DESTE CÓDIGO. */
* A IBM não poderá ser responsabilizada por nenhum dano derivado da utilização
*/
* do código gerado, mesmo que tenha sido advertida sobre a */
* possibilidade de ocorrência de tais danos. */
* */
* DISTRIBUIÇÃO. */
* */
* Este código gerado pode ser livremente distribuído, copiado, alterado */
* e incorporado a outro software, contanto que: */
* - Ele mantenha o aviso de Copyright e a RENÚNCIA DE RESPONSABILIDADE acima intactos */
* - O software não seja revendido */
* */
*********************************************************************/
01 CALLOUT-REQUEST.
05 CALLOUT-REQUEST-STR PIC X(50).
01 CALLOUT-RESPONSE.
05 CALLOUT-RESPONSE-STR PIC X(50).
| Parâmetro | Valor |
|---|---|
| Nome da Plataforma | Z/OS |
| Página de Códigos | IBM-037 |
| Nome do formato do ponto flutuante | IBM® Hexadecimal |
| Sinal decimal externo | EBCDIC |
| Nome endian | Big |
| Nome endian de número inteiro remoto | Big |
| Nome das aspas | DOUBLE |
| Nome trunc | STD |
| Nome nsymbol | DBCS |
| Parâmetro | Valor |
|---|---|
| Nome da Plataforma | Z/OS |
| Página de Códigos | IBM-037 |
| Nome do formato do ponto flutuante | IBM Hexadecimal |
| Sinal decimal externo | EBCDIC |
| Nome endian | Big |
| Nome endian de número inteiro remoto | Big |
| Nome das aspas | DOUBLE |
| Nome trunc | STD |
| Nome nsymbol | DBCS |
public sample.ims.data.CALLOUTRESPONSE invokeCall(
sample.ims.data.CALLOUTREQUEST cALLOUTREQUEST) {
// TODO Necessário implementar lógica de negócios aqui.
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;
}