이 레슨에서는 USERID.FRIENDZ 데이터베이스 테이블의
데이터에 액세스하는 샘플 COBOL 애플리케이션 작성 방법에 대해 설명합니다.
COBOL 애플리케이션을 작성하려면 다음과 같이 USERID.FRIENDZ 테이블의
DCLGEN 복사 라이브러를 작성해야 합니다.
- z/OS 프로젝트 보기에서
MVS 서브프로젝트(이 학습서의 시작 부분에서 작성)를
선택하고 팝업 메뉴에서 새로 작성 > 파티션된 데이터 세트
할당을 선택하십시오.
- 새 데이터 세트 USERID.RDZDB2.JCL의 이름을 지정하고
완료를 클릭하십시오. 새 데이터 세트가
MVS 서브프로젝트 이름에
표시됩니다.
- 이 데이터 세트에 멤버를 추가하려면, 데이터 세트를 선택한 후
팝업 메뉴에서 새로 작성 > 멤버 작성을
선택하십시오.
- 멤버 이름을 RDZDCLS로 지정하고 완료를 클릭하십시오.
- USERID.RDZDB2.JCL을 할당한 동일한 방법을 사용하여
USERID.COBOL.COPYLIB라는 데이터 세트를 할당하십시오.
카테고리: SOURCE 및 유형:
COBOL을 선택하면 USERID.COBOL.COPYLIB의 적절한
데이터 세트 속성이 적용됩니다.
- 멤버 이름 RDZDCLS를 두 번 클릭하여
System z LPEX 편집기에서 여십시오.
- 다음 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
/*
- 이 JCL 세그먼트를 사용하려면 자신의 작업 카드에 추가하십시오. 작업 카드 바로 다음에 DB2®
데이터 세트를 가리키려면 JOBLIB 카드가 필요할 수 있습니다. JCL 세그먼트의 USERID를 상위 레벨
규정자로 바꾸어야 합니다. DB2SUBSYSTEMNAME를
DB2 서브시스템 이름으로 바꾸어야 합니다.
- JCL 스트림을 제출하려면 팝업 메뉴에서 제출을
클릭하십시오. Copy 멤버 USERID.COBOL.COPYLIB(RDZDCLS)가
작성되어야 합니다. 데이터 세트 USERID.COBOL.COPYLIB를 새로 고치고 나면
z/OS 프로젝트 보기에 Copy 멤버가 표시됩니다.
- 편집 세션에서 Copy 멤버를 열어서 선언에 익숙해지십시오.
- 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.
- DB2SUBSYSTEMNAME을 DB2 서브시스템 이름으로 바꾸고 USERID를
스키마 이름으로 바꾸십시오.