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

기술 자료 번역 기술 자료 번역
기술 자료: 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 번호를 맞출 수 있도록 설정해야 합니다.

속성

기술 자료: 183179 - 마지막 검토: 2004년 11월 24일 수요일 - 수정: 3.1
본 문서의 정보는 다음의 제품에 적용됩니다.
  • Microsoft COM Transaction Integrator for CICS and IMS 1.0?을(를) 다음과 함께 사용했을 때
    • Microsoft SNA Server 4.0
키워드:?
kbmt kbinfo KB183179 KbMtko
기계 번역된 문서
중요: 본 문서는 전문 번역가가 번역한 것이 아니라 Microsoft 기계 번역 소프트웨어로 번역한 것입니다. Microsoft는 번역가가 번역한 문서 및 기계 번역된 문서를 모두 제공하므로 Microsoft 기술 자료에 있는 모든 문서를 한글로 접할 수 있습니다. 그러나 기계 번역 문서가 항상 완벽한 것은 아닙니다. 따라서 기계 번역 문서에는 마치 외국인이 한국어로 말할 때 실수를 하는 것처럼 어휘, 구문 또는 문법에 오류가 있을 수 있습니다. Microsoft는 내용상의 오역 또는 Microsoft 고객이 이러한 오역을 사용함으로써 발생하는 부 정확성, 오류 또는 손해에 대해 책임을 지지 않습니다. Microsoft는 이러한 문제를 해결하기 위해 기계 번역 소프트웨어를 자주 업데이트하고 있습니다.

피드백 보내기

 

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