다음을 통해 공유

웹 기반 애플리케이션에 대한 레코드 집합 정의 문제

  • 아티클

TI에서 레코드 집합 은 메인프레임의 COBOL 소스 코드에 정의된 테이블 형식 데이터로 구성됩니다. 테이블 형식 데이터는 COBOL 데이터 영역의 OCCURS 절을 포함하는 그룹 항목에 의해 정의됩니다. COBOL 데이터 영역을 TI Designer 가져오는 경우 다음과 같은 COBOL-Automation 변환이 수행됩니다.

  • COBOL 데이터 영역은 새로 만든 메서드의 매개 변수와 모든 레코드 집합의 멤버를 정의합니다.

  • 테이블을 정의하는 그룹 항목(OCCURS 절 포함)은 메서드 레코드 집합의 형식 정의와 메서드 매개 변수로 표시됩니다.

  • 다른 그룹 항목은 메서드 매개 변수로 표시됩니다.

  • 요소 데이터 항목(테이블 필드 정의)은 레코드 집합의 멤버로 표시됩니다.

    다음 COBOL 데이터 영역에서는 CICS LINK 원격 환경을 사용하는 웹 기반 애플리케이션의 형식 라이브러리에 대해 설명합니다. 애플리케이션은 각 고객 이름과 입력으로 입력된 일치하는 PIN에 대해 최대 6개의 계정에 대한 정보를 반환합니다.

01         DFHCOMMAREA.  
*                    ACCTINFO IS (INPUT, OUTPUT)  
           O5        ACCTINFO OCCURS 6 TIMES.  
                     10 ACCOUNTNUMBER                       PIC X(6).  
                     10 ACCOUNTTYPE                         PIC X(20).  
                     10 CURRENTBALANCE                      PIC S9(13)V9(2) COMP-3.  
  
                     10 INTERESTBEARING                     PIC S9(4) COMP.  
                     10 INTERESTRATE                        COMP-1.  
                     10 MONTHLYSVCCHG                       PIC S9(13)V9(2) COMP-3.  
  
*                    NAME IS (INPUT, OUTPUT)  
                     05                                     NAMEPIC X(30).  
*                    PIN IS (INPUT, OUTPUT)  
                     05                                     PIN PIC X(10).

TI Designer 가져올 때 데이터 영역의 그룹 항목은 새로 만든 메서드의 매개 변수로 처리됩니다. 그러나 웹 기반 애플리케이션에 대한 RDS(원격 데이터 서비스) 요구 사항으로 인해 테이블을 정의하는 그룹 항목은 메서드 매개 변수가 아닌 메서드의 반환 값으로 정의되어야 합니다. 메서드를 올바르게 정의하려면 이 그룹 항목(이전 예제의 ACCTINFO)을 반환 값으로 수동으로 다시 정의해야 합니다.

COBOL 데이터 영역을 가져오기 전에 OCCURS 절에 지정된 행 수를 적어 둡니다. COBOL 데이터 영역을 가져온 후 다음 절차를 사용하여 웹 기반 애플리케이션에 대한 레코드 집합을 정의합니다.

웹 기반 애플리케이션에 대한 레코드 집합을 정의하려면

  1. TI Designer 시작합니다.

  2. 콘솔 트리에서 Recordsets 폴더를 두 번 클릭하여 TI Designer 레코드 집합의 형식 정의를 생성했는지 확인합니다. 형식 정의의 이름은 COBOL 소스 코드에서 테이블을 정의한 그룹 항목에서 가져옵니다.

  3. 메서드 폴더를 두 번 클릭하고 메서드의 이름을 클릭합니다. 레코드 집합 매개 변수가 세부 정보 창에 표시되는지 확인합니다. 매개 변수 이름은 레코드 집합의 형식 정의 이름과 일치해야 합니다.

  4. 편집 메뉴에서 잠금 해제를 클릭하여 메서드의 잠금을 해제합니다.

  5. 세부 정보 창에서 레코드 집합 매개 변수를 삭제합니다.

  6. 메서드를 마우스 오른쪽 단추로 클릭하고 속성을 클릭한 다음 자동화 정의 탭을 클릭합니다.

  7. 반환 형식 상자에서 레코드 집합의 형식 정의 이름을 클릭합니다.

  8. 레코드 집합 탭을 클릭합니다.

  9. 그룹 항목 최대값 상자에 COBOL 소스 코드에 지정된 행 수를 입력한 다음 확인을 클릭합니다.

    레코드 집합에 대한 자세한 내용은 MdAC(Microsoft Data Access Components)를 설치할 때 포함된 ADO(ActiveX Data Objects) 및 RDS(원격 데이터 서비스) 설명서를 참조하세요.