Rational Developer for System z


샘플 COBOL 애플리케이션 작성

이 레슨에서는 USERID.FRIENDZ 데이터베이스 테이블의 데이터에 액세스하는 샘플 COBOL 애플리케이션 작성 방법에 대해 설명합니다.
이 레슨에서는 사용자가 MVS™ 서브프로젝트에 데이터 세트를 할당하는 방법을 알고 있다고 가정합니다.
COBOL 애플리케이션을 작성하려면 다음과 같이 USERID.FRIENDZ 테이블의 DCLGEN 복사 라이브러를 작성해야 합니다.
  1. z/OS 프로젝트 보기에서 MVS 서브프로젝트(이 학습서의 시작 부분에서 작성)를 선택하고 팝업 메뉴에서 새로 작성 > 파티션된 데이터 세트 할당을 선택하십시오.
  2. 새 데이터 세트 USERID.RDZDB2.JCL의 이름을 지정하고 완료를 클릭하십시오. 새 데이터 세트가 MVS 서브프로젝트 이름에 표시됩니다.
  3. 이 데이터 세트에 멤버를 추가하려면, 데이터 세트를 선택한 후 팝업 메뉴에서 새로 작성 > 멤버 작성을 선택하십시오.
  4. 멤버 이름을 RDZDCLS로 지정하고 완료를 클릭하십시오.
  5. USERID.RDZDB2.JCL을 할당한 동일한 방법을 사용하여 USERID.COBOL.COPYLIB라는 데이터 세트를 할당하십시오. 카테고리: SOURCE 유형: COBOL을 선택하면 USERID.COBOL.COPYLIB의 적절한 데이터 세트 속성이 적용됩니다.
  6. 멤버 이름 RDZDCLS를 두 번 클릭하여 System z LPEX 편집기에서 여십시오.
  7. 다음 JCL 세그먼트를 편집 세션에 붙여넣으십시오.
    //***********************************
    //DCLGEN EXEC PGM=IKJEFT01
    //SYSPRINT DD SYSOUT=*
    //SYSTSPRT DD SYSOUT=*
    //SYSTSIN  DD *
    DSN SYSTEM(DB2SUBSYSTEMNAME)
    DCLGEN TABLE (USERID.FRIENDZ) LIBRARY ('USERID.COBOL.COPYLIB(RDZDCLS)') -
    LANGUAGE (COBOL) STRUCTURE (FRIENDZRECORD) APOST
    /* 
  8. 이 JCL 세그먼트를 사용하려면 자신의 작업 카드에 추가하십시오. 작업 카드 바로 다음에 DB2® 데이터 세트를 가리키려면 JOBLIB 카드가 필요할 수 있습니다. JCL 세그먼트의 USERID를 상위 레벨 규정자로 바꾸어야 합니다. DB2SUBSYSTEMNAME를 DB2 서브시스템 이름으로 바꾸어야 합니다.
  9. JCL 스트림을 제출하려면 팝업 메뉴에서 제출을 클릭하십시오. Copy 멤버 USERID.COBOL.COPYLIB(RDZDCLS)가 작성되어야 합니다. 데이터 세트 USERID.COBOL.COPYLIB를 새로 고치고 나면 z/OS 프로젝트 보기에 Copy 멤버가 표시됩니다.
  10. 편집 세션에서 Copy 멤버를 열어서 선언에 익숙해지십시오.
  11. USERID.RDZDB2.COBOL이라는 파티션된 데이터 세트에 RDZDB2 멤버를 할당하고 다음 COBOL 프로그램을 멤버에 복사하여 붙여넣거나 다시 입력하십시오. 이 프로그램은 FRIENDZ 테이블에서 값을 가져옵니다.
           IDENTIFICATION DIVISION.
           PROGRAM-ID. RDZDB2.
           ENVIRONMENT DIVISION.
           DATA DIVISION.
           WORKING-STORAGE SECTION.
           01  TEMP         PIC X(6).
           01  TEMP2         PIC X(6).
              EXEC SQL INCLUDE SQLDA END-EXEC.
              EXEC SQL INCLUDE SQLCA END-EXEC.
              COPY RDZDCLS.
           LINKAGE SECTION.
           
           
           PROCEDURE DIVISION.
          *     EXEC SQL CONNECT TO DB2SUBSYSTEMNAME END-EXEC.
               MOVE 'TYRONE   ' TO FNAME.
               EXEC SQL
                 SELECT FNAME, LNAME, PHONE, EMAIL
                 INTO  :FNAME,
                       :LNAME,
                       :PHONE,
                       :EMAIL
                 FROM USERID.FRIENDZ
                 WHERE FNAME = :FNAME
               END-EXEC.
               DISPLAY "FIRSTNAME:".
               DISPLAY FNAME.
               DISPLAY "LASTNAME:".
               DISPLAY LNAME.
               DISPLAY "PHONE:".
               DISPLAY PHONE.
               DISPLAY "EMAIL:".
               DISPLAY EMAIL.
               GOBACK.
  12. DB2SUBSYSTEMNAME을 DB2 서브시스템 이름으로 바꾸고 USERID를 스키마 이름으로 바꾸십시오.

이용 약관 | 피드백



이 Information Center는 Eclipse 기술로 구현됩니다. (http://www.eclipse.org 웹사이트 참조)