使用 PL / 我程式與 COM 交易整合者

重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤,就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。

按一下這裡查看此文章的英文版本:183179
本文已封存。本文係以「現狀」提供且不會再更新。
結論
PL / 我不支援的元件產生器。不過,您可以使用 COM 交易整合者 CICS 和 IMS (COMTI) 與 PL/我程式以 CICS 或 IMS 操作。如果要執行這項操作,撰寫程式碼定義記憶體相等的 COBOL 宣告執行的方式相同的資料宣告與程式。

比方說 CICS 程式可以執行至任一個 PL 的 EXEC CICS LINK / 我設計程式或 COBOL 程式如果在兩個程式中定義 DFHCOMMAREA 結構是否相等。COMTI 元件可以用同樣的使用一個 CICS LINK 遠端環境 (RE) 不論是程式正常。由外插法 CICS 和 IMS res 維持 True 相同的機制。

您只需要知道是如何達成相同的記憶體對應中 PL / 和 COBOL。本文提供兩種語言的資料型別比較。
其他相關資訊
請注意,程式開發人員會負責建立元件的 PL / 我交易的程式 (TP) 應該要熟悉這兩種語言。

資料對齊方式為重要的問題。PL / 我結構對齊預設 ;,例如在大型主機 fullword 界限上對齊結構內的 fullword 整數 (4 位元組)。這會造成一個不一致與類似的 COBOL 陳述式和 [PL / 我結構應可能被宣告為 UNALIGNED。這是特別重要的 DFHCOMMAREA 宣告。這個資料結構必須是未對齊。結構宣告上],因此,必須,指定未對齊的關鍵字。

處理將 COBOL"發生依據 ON"子句時,應該使用小心。下列範例顯示具有類似 PL 的 COBOL 建構的比較 / 我建構。

COBOL 範例

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

PL / 我範例

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

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)				
注意: 的適當的 COBOL 編譯器選項必須設定為允許 9,999 和 32,768 之間的數字適合於 PIC 9(4) COMP 數字。
COBOL PL/1 PL / i pl1 PLI

警告:本文為自動翻譯

內容

文章識別碼:183179 - 最後檢閱時間:12/05/2015 08:31:00 - 修訂: 3.1

Microsoft COM Transaction Integrator for CICS and IMS 1.0

  • kbnosurvey kbarchive kbmt kbinfo KB183179 KbMtzh
意見反應