A lição 3 conduz você durante a criação de um método
Java™.
Nesta lição, você
- Cria um método Java
- Cria o mapeamento de dados de entrada e de saída entre COBOL e
Java
- Na visualização Fragmentos, selecione J2C. Dê um clique
duplo em Incluir método no Java bean J2C.
- Na página Métodos Java, clique em
Incluir
- No campo Nome, digite runPhoneBook.
- Nesta etapa, importe o arquivo Ex01.cbl (COBOL) que é necessário para a criação de
seu aplicativo. O arquivo Ex01.cbl está localizado em
<installdir>\IBM/IBMIMShared/plugins/com.ibm.j2c.cheatsheet.content\Samples/MS/phonebook,
em que <installdir> é o diretório onde este produto está instalado.
O arquivo COBOL contém o programa de aplicativo que é executado no servidor
IMS. Ele tem a definição da estrutura a ser passada
para o servidor IMS através da área de comunicações. Essa estrutura representa os registros do cliente sendo retornados do programa de
aplicativo IMS. Antes de poder trabalhar com um
arquivo, você deve importá-lo do sistema de arquivos no ambiente de trabalho.
Além do campo Tipo de Entrada, clique em
Novo.
- Na página Importação de Dados, assegure-se de que o campo Escolher
Mapeamento seja COBOL_TO_JAVA.
Clique em Navegar ao lado do arquivo COBOL
- Localize o arquivo Ex01.cbl no sistema de arquivos e clique em
Abrir.
IDENTIFICATION DIVISION.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
DATA DIVISION.
*
* IMS Connector for Java, COBOL Transaction Message Source
*
*********************************************************************/
* */
* (c) Copyright IBM Corp. 2003 */
* 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 */
* */
*********************************************************************/
*
LINKAGE SECTION.
01 INPUT-MSG.
02 IN-LL PICTURE S9(3) COMP.
02 IN-ZZ PICTURE S9(3) COMP.
02 IN-TRCD PICTURE X(10).
02 IN-CMD PICTURE X(8).
02 IN-NAME1 PICTURE X(10).
02 IN-NAME2 PICTURE X(10).
02 IN-EXTN PICTURE X(10).
02 IN-ZIP PICTURE X(7).
01 OUTPUT-MSG.
02 OUT-LL PICTURE S9(3) COMP VALUE +0.
02 OUT-ZZ PICTURE S9(3) COMP VALUE +0.
02 OUT-MSG PICTURE X(40) VALUE SPACES.
02 OUT-CMD PICTURE X(8) VALUE SPACES.
02 OUT-NAME1 PICTURE X(10) VALUE SPACES.
02 OUT-NAME2 PICTURE X(10) VALUE SPACES.
02 OUT-EXTN PICTURE X(10) VALUE SPACES.
02 OUT-ZIP PICTURE X(7) VALUE SPACES.
02 OUT-SEGNO PICTURE X(4) VALUE SPACES.
PROCEDURE DIVISION.
- Clique em
Avançar.
- Na página Importador COBOL, clique em Mostrar Avançado.
- Selecione as opções a seguir:
Tabela 1. Configurações de Parâmetro do Importador COBOL| 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 |
- Clique em Consultar para carregar os dados.
- Uma lista de estruturas de dados do arquivo Ex01.cbl é mostrada. Selecione
INPUT-MSG no campo Estruturas de Dados.
- Clique em
Avançar.
- Na página Salvando Propriedades, selecione os seguintes valores para tipo de
entrada:
- Selecione Padrão para Estilo de
Geração.
- Clique em Navegar ao lado de Nome do
Projeto e escolha o projeto da web IMSPhoneBook.
- No campo Nome do Pacote, digite
sample.ims.data.
- No campo Nome de Classe, aceite o padrão
INPUTMSG. Clique em Concluir.
- Na página Método Java, clique em
Novo próximo do campo Tipo de Saída.
- Na página Importação de Dados, assegure-se de que o campo Escolher
Mapeamento seja COBOL_TO_JAVA.
- Localize o arquivo Ex01.cbl no sistema de arquivos e clique
em Abrir.
- Clique em
Avançar.
- Na página Importador COBOL, clique em Mostrar Avançado.
- Selecione as opções a seguir:
Tabela 2. Configurações de Parâmetro do Importador COBOL| 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 |
- Clique em Consultar para carregar os dados.
- Uma lista de estruturas de dados do arquivo Ex01.cbl é mostrada. Selecione
OUTPUT-MSG no campo Estruturas de Dados.
- Clique em
Avançar.
- Na página Salvando Propriedades,
- Selecione Padrão para Estilo de
Geração.
- Clique em Navegar ao lado de Nome do
Projeto e escolha o projeto da web IMSPhoneBook.
- No campo Nome do Pacote, digite
sample.ims.data.
- No campo Nome de Classe, aceite o padrão
OUTPUTMSG. Clique em Concluir.
- Deixe a opção Salvar Sessão como Script Ant desmarcada.
- Na página Método Java, clique em
Concluir.
- Na página Detalhes de Ligação, assegure-se de que
interactionVerb seja SYNC_SEND_RECEIVE(1)
para indicar que a interação com o IMS envolve um
envio seguido de uma interação de recebimento.
- Clique em Concluir.