   =========================================================================
                           M I C R O   F O C U S

                     S E R V E R   E X P R E S S  5.0
   =========================================================================
                              WHENEVER のデモ
                              ===============

   目次
   ====

       はじめに
       ソースファイル
       要件
       操作方法


   はじめに
   ========

   WHENEVER は、エラー処理のための WHENEVER の使用を示し、DB2 指令、MSGAREA
   を使って、SQLERRMC に渡される 70 バイト以上のエラーメッセージテキストを取
   り込むための COBOL 変数を定義する方法を示します。


   ソースファイル
   ==============

   WHENEVER.CBL（メインプログラム）
   SQLCA.CPY

   要件
   ====


   WHENEVERは、DB2 Universal Database V5 ソフトウェア製品の各種バージョンに同
   梱されている DB2 SAMPLE データベースを操作します。ユーザは、DB2 Universal 
   Database に対する BIND/ADD 権限と STAFF テーブルに対する SELECT 権限を持っ
   ている必要があります。

   他のユーザが作った SAMPLE データベースのコピーを使う場合は、SAMPLE データ
   ベース作成に使うスキーマ名を指定するために、STAFF テーブルの ALIAS を作成
   するか、サンプルプログラム内の参照全体を修飾する必要があります。そうでない
   場合は、コンパイル時に -204 SQL エラーが発生します。


   操作方法
   ========

   WHENEVER は、WHENEVER SQLERROR GO TO 句を使って、エラーを処理し、WHENEVER 
   NOT FOUND PERFORM 句を使って列が見つからない状態（no row found）をテストし
   ます。不正な DISCONNECT 文を実行して、エラー手続きが出す SQL エラーを起こ
   します。エラー手続きは、SQLERRMC と SQL-ERR-MSG の両方を表示します。これら
   のうち、SQL-ERR-MSG は、宣言されていれば、SQLCA の SQLERRMC の 70 バイト以
   上のメッセージテキストを取り込むために使われます。SELECT INTO が実行される
   と、NO FIND（何も見つからない）条件を起こして、列が見つからない（"Row not
   found"）メッセージを表示させます。


   =========================================================================
   Micro Focus is a registered trademark, and Server Express is a trademark,
   of Micro Focus International Limited. All other trademarks are the 
   property of their respective owners.
   =========================================================================
   Copyright (C) 1999 Micro Focus International Limited. 
   All rights reserved.

