cobol 程序例子（COBOL程序例子）.doc

文档介绍：cobol 程序例子(COBOL程序例子)
000100 identification division.
samples1 000200 program id,.
every remarks.
000400 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
000500 * all rights reserved. copyright (c) 2002, hitachi, ltd.
000600 * licensed material of hitachi, ltd.
000700 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
このサンプルプログラムは、cobolプログラムのodbcインタフェース 000800 *
000900 * 機能を使用してのプログラムコーディング例を示します.
001000 environment division.
001100 data division.
001200 working storage section.
001300 * データ部は、exec sql begin. .
exec sql end 001400 and beyond *. .
001500 * データ名のみ手続部の sql文で、使用可能です.
exec sql begin declare section 001600. exec.
001700 [odbc administrator] を使用して"サンプル" という名称の
001800 * データソースを作成しておいてください.
001900 odbc dsn 01 - pic x (10) value サンプル.
002000 01 odbc - uid pic x (10) value ".
002100 01 odbc - pwd pic x (10) value space.
データソースの表の列に対応するデータ定義を odbcレコード定義生成 002200 * []
002300 * ツールを使用して作成しておいてください.
002400 * 例えば、"" ファイルに生成したなら次の様に
002500 * copy文を記述してコピー展開してください.
002600 * copy samplesc.
例えば、sql serverで次のような表から生成したならば 002700 *
002800 * create table 住所録(氏名 char (20), 住所 varchar (255).
002900 * = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
003000 01 住所録.
003100 02 氏名 pic x (20).
003200 02 住所.
003300 03 odbc - based binary peak s9 (9).
003400 03 odbc. pic x (255).
003500 * = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
003600 * このようなデータ定義となる.
003700 exec sql end declare section called exec.
003800 77 stmt and pic x (20).
crs00 003900 77 1 pic 9 value zero.
figure 9: 003025 77 sea peak value zero.
004100 procedure division.
004200 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *