Pomocí PL / programy s COM Transaction Integrator

Překlady článku Překlady článku
ID článku: 183179 - Produkty, které se vztahují k tomuto článku.
Rozbalit všechny záložky | Minimalizovat všechny záložky

Na této stránce

Souhrn

PL / I není podporován Tvůrce Component. Nicméně použít COM Transaction Integrator pro CICS a IMS (COMTI) s PL / I programy pracující v CICS a IMS. Chcete-li tak učinit, kód programy s deklarací dat definovat paměti stejným způsobem jako ekvivalentní deklarace COBOL.

Například CICS program lze provést LINK CICS EXEC k buď PL / I program nebo program COBOL, pokud je ekvivalentní struktury, definování DFHCOMMAREA dva programy. Podobně může být použit součást COMTI rovnoměrně well buď CICS LINK vzdálené prostředí (RE) pomocí programu. Podle extrapolaci pro CICS a IMS REs podržte platí stejné mechanismy.

Je všechny potřebujete vědět, jak dosáhnout stejných mapování paměti v PL / I a COBOL. Tento článek představuje typ porovnání dat dvou jazyků.

Další informace

Všimněte si, že vývojář zodpovědný za vytváření komponent PL / I programy transakcí (TP) by měl být obeznámeni se oba jazyky.

Zarovnání dat je důležité problém. PL / I ve výchozím nastavení jsou ZAROVNÁNY struktur; například celé fullword (4 bajty) v rámci struktury ZAROVNÁN na hranici sálových fullword. To může způsobit rozpor s podobnými COBOL příkazů a PL / I strukturu pravděpodobně by měl být deklarován jako UNALIGNED. To je důležité zejména pro deklaraci DFHCOMMAREA. Tato struktura dat musí nezarovnaný. NEZAROVNANÝ klíčové slovo musí, tedy určit v deklaraci struktury.

Měli byste použít pozornost při obchodování s klauzulí "DOCHÁZÍ ZÁVISLOSTI ON" COBOL. Následující ukázky zobrazit porovnání stavby COBOL s podobnými PL / po stavby.

Ukázka COBOL

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

PL / I Vzorkovat

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

Seznamy mapování dat převod Language COMTI

      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)

				
Poznámka: Odpovídající možnost kompilátoru COBOL musí být nastavena povolit čísla mezi 9999 a 32,768 přizpůsobit číslo COMP 9(4) PIC.

Vlastnosti

ID článku: 183179 - Poslední aktualizace: 24. listopadu 2004 - Revize: 3.1
Informace v tomto článku jsou určeny pro produkt:
  • Microsoft COM Transaction Integrator for CICS and IMS 1.0 na těchto platformách
    • Microsoft SNA Server 4.0
Klíčová slova: 
kbmt kbinfo KB183179 KbMtcs
Strojově přeložený článek
Důležité: Tento článek byl přeložen pomocí software společnosti Microsoft na strojový překlad, ne profesionálním překladatelem. Společnost Microsoft nabízí jak články přeložené překladatelem, tak články přeložené pomocí software na strojový překlad, takže všechny články ve Znalostní databázi (Knowledge Base) jsou dostupné v češtině. Překlad pomocí software na strojový překlad ale není bohužel vždy dokonalý. Obsahuje chyby ve skloňování slov, skladbě vět, nebo gramatice, podobně jako když cizinci dělají chyby při mluvení v češtině. Společnost Microsoft není právně zodpovědná za nepřesnosti, chyby nebo škody vzniklé chybami v překladu, nebo při použití nepřesně přeložených instrukcí v článku zákazníkem. Společnost Microsoft aktualizuje software na strojový překlad, aby byl počet chyb omezen na minimum.
Projděte si také anglickou verzi článku:183179

Dejte nám zpětnou vazbu

 

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