사용하여 PL/COM 트랜잭션 통합업체 프로그램

중요: 본 문서는 전문 번역가가 번역한 것이 아니라 Microsoft 기계 번역 소프트웨어로 번역한 것입니다. Microsoft는 번역가가 번역한 문서 및 기계 번역된 문서를 모두 제공하므로 Microsoft 기술 자료에 있는 모든 문서를 한글로 접할 수 있습니다. 그러나 기계 번역 문서가 항상 완벽한 것은 아닙니다. 따라서 기계 번역 문서에는 마치 외국인이 한국어로 말할 때 실수를 하는 것처럼 어휘, 구문 또는 문법에 오류가 있을 수 있습니다. Microsoft는 내용상의 오역 또는 Microsoft 고객이 이러한 오역을 사용함으로써 발생하는 부 정확성, 오류 또는 손해에 대해 책임을 지지 않습니다. Microsoft는 이러한 문제를 해결하기 위해 기계 번역 소프트웨어를 자주 업데이트하고 있습니다.

183179
이 문서가 보관되었습니다. "그대로" 제공되었으며, 업데이트가 되지 않을 것입니다.
요약
PL/구성 요소 작성기에 의해 지원되지 않습니다. 그럼에도 불구하고/CICS 또는 IMS 운영 프로그램 PL 함께 (COMTI) IMS 및 CICS COM 트랜잭션 통합업체 사용하여 수 있습니다. 이렇게 하려면 해당하는 COBOL 선언은 동일한 방법으로 메모리 정의하는 데이터 선언 프로그램과 코드.

CICS 프로그램을 EXEC CICS LINK 어느 PL 위해 수행할 수 있습니다 예를 들어,/I 프로그램 또는 DFHCOMMAREA 두 프로그램에서 정의하는 구조가 동일한 경우 COBOL 프로그램의. 마찬가지로, COMTI 구성 요소를 사용할 수 있는 CICS LINK 원격 환경 (RE) 사용 두 프로그램에 똑같이 잘. 동일한 메커니즘을 REs IMS 및 CICS 추세에 의해 true 채.

PL 같은 메모리 매핑이 얻는 방법을 알아야 할 모든 것은/I 및 COBOL. 이 문서에서는 두 언어의 데이터 형식 비교를 제공합니다.
추가 정보
참고 담당하는 PL에 대한 구성 요소를 만들기 위한 개발자/I 트랜잭션 프로그램 (TP) 두 언어를 모두 알고 있어야 합니다.

데이터 맞춤 중요한 문제입니다. PL/I 구조를 기본적으로 맞춤, 예를 들어, fullword 정수 (4 바이트)는 구조 내에서 메인프레임 fullword 경계에 맞춰집니다. 이 비슷한 COBOL 문과 해당 PL 불일치가 발생할 수 있습니다/I 구조를 아마도 UNALIGNED로 선언해야 합니다. DFHCOMMAREA 선언을 특히 중요합니다. 이 데이터 구조가 정렬되지 않을 수 있어야 합니다. 따라서 구조체 선언에서 정렬되지 않은 키워드를 지정해야 합니다.

COBOL 따라 ON 발생합니다"절과 함께 다룰 때 주의해야 합니다. 다음 샘플에서는 비슷한 PL 함께 COBOL 생성 비교 표시/I 생성.

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 컴파일러 옵션입니다 32,768 9,999 사이의 숫자를 PIC 9(4) COMP 번호를 맞출 수 있도록 설정해야 합니다.
COBOL PL/1 PL/i pl1 PLI

속성

문서 ID: 183179 - 마지막 검토: 12/05/2015 08:30:58 - 수정: 3.1

Microsoft COM Transaction Integrator for CICS and IMS 1.0

  • kbnosurvey kbarchive kbmt kbinfo KB183179 KbMtko
피드백