Crie uma definição de mensagem a partir de uma estrutura de dados e construa uma mensagem usando outro nó do fluxo de mensagens.
É possível especificar o local na árvore de mensagens recebidas a partir da qual os dados são recuperados para formar o pedido que é enviado pelo nó CICSRequest. Especifique este local usando a propriedade Pedido do Local dos Dados no nó CICSRequest. Para obter mais informações, consulte Combinando uma Mensagem de Resultado com uma Mensagem Recebida.
Você só pode visualizar informações sobre amostras quando usa o centro de informações que está integrado ao WebSphere Message Broker Toolkit ou o centro de informações on-line. Você só poderá executar amostras quando usar o centro de informações que está integrado ao WebSphere Message Broker Toolkit.
O exemplo a seguir mostra uma mensagem que foi modelada no domínio de MRM, a qual pode ser recebida por um nó CICSRequest e enviada ao CICS.
Copybook COBOL
Este exemplo mostra a estrutura dos dados que o CICS está esperando. O copybook descreve o layout de binário dos dados que o programa CICS espera receber.
01 DFHAXCS-REQUEST.
10 AXCS-COMMAND PIC S9(9) COMP.
10 AXCS-FILE PIC X(8).
10 AXCS-RIFLD PIC X(6) VALUE SPACES.
10 AXCS-DATA.
15 AXCS-STAT PIC X(1) VALUE SPACES.
15 AXCS-RECID PIC X(6) VALUE SPACES.
15 AXCS-NAME PIC X(20) VALUE SPACES.
15 AXCS-ADDRESS PIC X(20) VALUE SPACES.
15 AXCS-PHONE PIC X(8) VALUE SPACES.
15 AXCS-DATE PIC X(8) VALUE SPACES.
15 AXCS-AMOUNT PIC X(8) VALUE SPACES.
15 AXCS-COMMENT PIC X(9) VALUE SPACES.
O copybook de exemplo pode ser usado para criar uma estrutura binária que requer 98 bytes de COMMAREA ou espaço de memória, conforme mostrado no exemplo a seguir:
Name | Tipo e Tamanho |
---|---|
AXCS-COMMAND | Número inteiro de 4 bytes (palavra inteira) |
AXCS-FILE | Cadeia de caracteres de 8 bytes |
AXCS-RIFLD | Cadeia de caracteres de 6 bytes |
AXCS-STAT | Cadeia de caracteres de 1 byte |
AXCS-RECID | Cadeia de caracteres de 6 bytes |
AXCS-NAME | Cadeia de caracteres de 20 bytes |
AXCS-ADDRESS | Cadeia de caracteres de 20 bytes |
AXCS-PHONE | Cadeia de caracteres de 8 bytes |
AXCS-DATE | Cadeia de caracteres de 8 bytes |
AXCS-AMOUNT | Cadeia de caracteres de 8 bytes |
AXCS-COMMENT | Cadeia de caracteres de 9 bytes |
Total | 98 bytes |
A estrutura do copybook COBOL deve ser importada como uma definição de mensagem, consulte Conjuntos de Mensagens: Importando de Copybooks COBOL para obter informações adicionais, e uma mensagem contendo uma estrutura desse tipo deve ser transmitida ao nó CICSRequest. Um segundo copybook pode ser necessário para mapear a COMMAREA de retorno.