Usando PL / programas com Transaction Integrator

Traduções deste artigo Traduções deste artigo
ID do artigo: 183179 - Exibir os produtos aos quais esse artigo se aplica.
Expandir tudo | Recolher tudo

Neste artigo

Sumário

PL /, construtor de componente não oferece suporte. No entanto, você pode usar COM Transaction Integrator para CICS e IMS (COMTI) com PL / programas de operando em CICS ou IMS. Para fazer isso, o código de programas com declarações de dados que definem a memória da mesma maneira que as declarações de COBOL equivalentes.

Por exemplo, um programa do CICS pode executar um LINK do CICS EXEC para qualquer PL /, programa ou um programa COBOL se equivale a estrutura define DFHCOMMAREA em dois programas. Da mesma forma, um componente COMTI pode ser usado igualmente bem com qualquer programa que usa um CICS LINK remoto ambiente (RE). Mesmos mecanismos mantenha verdadeiras por extrapolação para CICS e IMS REs.

Tudo o que você precisa saber é como obter o mesmo mapeamento de memória em PL / I e COBOL. Este artigo apresenta as comparações de tipo de dados para os dois idiomas.

Mais Informações

Observe que o desenvolvedor responsável para a criação de componentes para PL / programas de transação (TP) devem estar familiarizados com ambos os idiomas.

Alinhamento dos dados é uma questão importante. PL / eu estruturas são ALINHADAS por padrão; por exemplo, um inteiro de fullword (4 bytes) em uma estrutura é ALINHADO em um limite de fullword mainframe. Isso pode causar uma discrepância com instruções de COBOL semelhantes e o PL / eu estrutura provavelmente deve ser declarado como UNALIGNED. Isso é particularmente importante para a declaração DFHCOMMAREA. Essa estrutura de dados deve ser unaligned. Você deve, portanto, especificar a palavra-chave UNALIGNED na declaração de estrutura.

Você deve tomar cuidado ao lidar com a cláusula de "OCORRE conforme ON" COBOL. Os exemplos a seguir mostram uma comparação de uma construção de COBOL com um semelhante PL / eu construção.

Exemplo de COBOL

   01   STRUCT1.
   02   X   PIC S9(4) COMP.
   02   Y OCCURS 1 TO 100 TIMES DEPENDING ON X PIC X(10).
				

PL / atualizar

   DCL   1   STRUCT1,
         2   X   FIXED BIN(15),
         2   Y (1:100 REFER(X)) CHAR(10);
				

COMTI dados conversão idioma mapeamento listas

      VB type          COBOL type                      PL/I type
      -------     --------------------              ---------------

      Integer        PIC S9(n) COMP                   FIXED BIN(15)
                     (n <= 4)
                     (see NOTE)

                     PIC S9(n) COMP-3                 FIXED DEC(n)
                     (n <= 4)                         (n <= 4)

                     PIC S9(n)                        PIC '9(n-1)T'
                     (n <= 4)                         (n <= 4)

                     PIC S9(n) LEADING                PIC 'T9(n-1)'
                     (n <= 4)                         (n <= 4)

                     PIC S9(n) SIGN SEPARATE           PIC '9(n)S'
                     (n <= 4)                          (n <= 4)

                     PIC S9(n)                         PIC 'S9(n)'
                     SIGN SEPARATE LEADING             (n <= 4)

                     (n <= 4)

      Long           PIC S9(n) COMP (n <= 9)           FIXED BIN(31)

                     PIC S9(n) COMP-3                  FIXED DEC(n)
                     (n <= 9)                          (n <= 9)

                     PIC S9(n)                         PIC '9(n-1)T'
                     (n <= 9)                          (n <= 9)

                     PIC S9(n) LEADING                 PIC 'T9(n-1)'
                     (n <= 9)                          (n <= 9)

                     PIC S9(n) SIGN SEPARATE           PIC '9(n)S'
                     (n <= 9)                          (n <= 9)

                     PIC S9(n)                         PIC 'S9(n)'
                     SIGN SEPARATE LEADING             (n <= 9)
                     (n <= 9)

      Single         COMP-1                            FLOAT BIN(21)

                     PIC S9(m)V9(n) COMP-3             FIXED DEC(m+n,n)

                     PIC S9(m)V9(n) COMP               FIXED BIN(15,n)
                     (m+n <= 4) (See NOTE)

                     PIC S9(m)V9(n) COMP               FIXED BIN(31,n)
                     (m+n <= 9)

                     PIC S9(m)V9(n)                    PIC '9(m)V9(n-1)T'

                     PIC S9(m)V9(n) LEADING            PIC 'T9(m-1)V9(n)'

                     PIC S9(m)V9(n)                    PIC '9(m)V9(n)S'
                     SIGN SEPARATE

                     PIC S9(m)V9(n)                    PIC 'S9(m)V9(n)'
                     SIGN SEPARATE LEADING

      Double         COMP-2                            FLOAT BIN(53)

                     PIC S9(m)V9(n) COMP-3             FIXED DEC(m+n,n)

                     PIC S9(m)V9(n) COMP               FIXED BIN(15,n)
                     (m+n <= 4) (Footnote.)

                     PIC S9(m)V9(n) COMP               FIXED BIN(31,n)
                     (m+n <= 9)

                     PIC S9(m)V9(n)                    PIC '9(m)V9(n-1)T'

                     PIC S9(m)V9(n) LEADING            PIC 'T9(m-1)V9(n)'

                     PIC S9(m)V9(n)                    PIC '9(m)V9(n)S'
                     SIGN SEPARATE

                     PIC S9(m)V9(n)                    PIC 'S9(m)V9(n)'
                     SIGN SEPARATE LEADING

      Currency       PIC S9(13)V99 COMP-3              FIXED DEC(15,2)

                     PIC S9(m)V9(n) COMP-3             FIXED DEC(m+n,n)
                     (n <= 4)                          (m+n < 16)

                     PIC S9(m)V9(n) COMP               FIXED BIN(15,n)
                     (m+n <= 4 and n <= 4)
                     (See NOTE)

                     PIC S9(m)V9(n) COMP               FIXED BIN(31,n)
                     (m+n <= 9, n <= 4)

                     PIC S9(m)V9(n)                    PIC '9(m)V9(n-1)T'
                     (n <= 4)

                     PIC S9(m)V9(n) LEADING            PIC 'T9(m-1)V9(n)'
                     (n <= 4)

                     PIC S9(m)V9(n)                    PIC '9(m)V9(n)S'
                     SIGN SEPARATE
                     (n <= 4)

                     PIC S9(m)V9(n)                    PIC 'S9(m)V9(n)'
                     SIGN SEPARATE LEADING
                     (n <= 4)

      Decimal        PIC S9(m)V9(n) COMP-3             FIXED DEC(m+n,n)
                                                       (m+n < 16)

                     PIC S9(m)V9(n) COMP               FIXED BIN(15,n)
                     (m+n <= 5)
                     (See NOTE)

                     PIC S9(m)V9(n) COMP               FIXED BIN(31,n)
                     (m+n <= 9)

                     PIC S9(m)V9(n) COMP               Not Supported
                     (m+n <= 18)

                     PIC S9(m)V9(n)                    PIC '9(m)V9(n-1)T'

                     PIC S9(m)V9(n) LEADING            PIC 'T9(m-1)V9(n)'

                     PIC S9(m)V9(n)                    PIC '9(m)V9(n)S'
                     SIGN SEPARATE

                     PIC S9(m)V9(n)                    PIC 'S9(m)V9(n)'
                     SIGN SEPARATE LEADING

      Date           PIC S9(7) COMP-3                  FIXED DEC(7)
                     date in YYYYDDD format
                     PIC S9(7) COMP-3                  FIXED DEC(7)
                     time in HHMMSST format

                     PIC S9(7) COMP-3                  FIXED DEC(7)
                     date in YYYYDDD format
                     PIC S9(7) COMP-3                  FIXED DEC(7)
                     time in HHMMSST format

      String         PIC X(n)                          CHAR(n)
                     padded with spaces to n bytes

                     PIC X(n)                          CHAR(n)
                     padded with LOW-VALUE to n bytes

      Boolean        PIC S9(4) COMP                    FIXED BIN(15)
                     (1 = true, 0 = false)

                     PIC S9(9) COMP                    FIXED BIN(31)
                     (1 = true, 0 = false)

                     PIC  S9(n) COMP-3                 FIXED DEC(n)
                     (1 = true, 0 = false)

      Byte           PIC X                             CHAR(1)
                     (no translation performed)

                     PIC 999 COMP                      FIXED BIN(15)
                     (value between 0 and 255)

                     PIC 999 COMP-3                    FIXED DEC(3)
                     (value between 0 and 255)

				
Observação: Uma opção de compilador COBOL apropriada deve ser definida para permitir números entre 9.999 e 32.768 caber em um número COMP PIC 9(4).

Propriedades

ID do artigo: 183179 - Última revisão: quarta-feira, 24 de novembro de 2004 - Revisão: 3.1
A informação contida neste artigo aplica-se a:
  • Microsoft COM Transaction Integrator for CICS and IMS 1.0 nas seguintes plataformas
    • Microsoft SNA Server 4.0
Palavras-chave: 
kbmt kbinfo KB183179 KbMtpt
Tradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 183179

Submeter comentários

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com