COBOL 程序例子.docVIP

COBOL 程序例子 000100 IDENTIFICATION DIVISION. 000200 PROGRAM-ID. SAMPLES1. 000300 REMARKS. 000400****************************************************************** 000500* ALL RIGHTS RESERVED. COPYRIGHT (C) 2002, HITACHI, LTD. 000600* LICENSED MATERIAL OF HITACHI,LTD. 000700****************************************************************** 000800* このサンプルプログラムは、COBOLプログラムのODBCインタフェース 000900* 機能を使用してのプログラムコーディング例を示します。 001000 ENVIRONMENT DIVISION. 001100 DATA DIVISION. 001200 WORKING-STORAGE SECTION. 001300* データ部は、EXEC SQL BEGIN .... END-EXEC.と 001400* EXEC SQL END .... END-EXEC.で囲んだ埋め込みSQL宣言節中の 001500* データ名のみ手続部の SQL文で、使用可能です。 001600 EXEC SQL BEGIN DECLARE SECTION END-EXEC. 001700* [ODBC Administrator]を使用してサンプルという名称の 001800* データソースを作成しておいてください。 001900 01 ODBC-DSN PIC X(10) VALUE サンプル. 002000 01 ODBC-UID PIC X(10) VALUE sa. 002100 01 ODBC-PWD PIC X(10) VALUE SPACE. 002200* データソースの表の列に対応するデータ定義を[ODBCレコード定義生成] 002300* ツールを使用して作成しておいてください。 002400* 例えば、SAMPLESC.cblファイルに生成したなら次の様に 002500* COPY文を記述してコピー展開してください。 002600* COPY SAMPLESC. 002700* 例えば、SQL Serverで次のような表から生成したならば 002800* CREATE TABLE 住所録 ( 氏名 char(20),住所 varchar(255)) 002900*======================================================= 003000 01 住所録. 003100 02 氏名 PIC X(20). 003200 02 住所. 003300 03 ODBC-length PIC S9(9) USAGE BINARY. 003400 03 ODBC-char PIC X(255). 003500*======================================================= 003600* このようなデータ定義となる。 003700 EXEC SQL END DECLARE SECTION END-EXEC. 003800 77 STMT-PROC PIC X(20). 003900 77 CRS00-ERR PIC 9 VALUE ZERO. 004000 77 FETCH-FLG PIC 9 VALUE ZERO. 004100 PROCEDURE DIVISION. 004200****************************************************************** 004300* 制御系とする埋め込みSQL文は、例えば以下のように記述します。 004400**************