COBOL2002 ユーザーズガイド
メインフレームでリレーショナルデータベースXDM/RD(Extensible Data Manager/Relational Database)を操作するプログラムの埋め込みSQL文を覚え書きとしてコンパイルし,テストデバッガのTDコマンドを使用してテストができます。
リレーショナルデータベース(XDM/RD)操作シミュレーション機能を使用する場合,-SQL,XDMオプションを指定してコンパイルします。また,SQL連絡領域SQLCAは,メインフレームのXDM/RDが提供しているSQL連絡領域をSQLCA.cblという名称でPC上に転送して使用します。このシステムでは,リレーショナルデータベース(XDM/RD)操作シミュレーション機能の実行時ライブラリ用ダミールーチンとして,CBLXDMRDを提供します。
実行可能ファイルではSQL文は実行に関係しないため,SQL文のテストはできません。SQL以外の文のテストをする場合は,テストデバッガのTDコマンド(ASSIGN DATAコマンドなど)を用いて次のようにテストします。
001000 WORKING-STORAGE SECTION. 001100 EXEC SQL BEGIN DECLARE SECTION END-EXEC. 001200 01 NAME-AREA PIC N(20). 001300 EXEC SQL END DECLARE SECTION END-EXEC. : 002000 PROCEDURE DIVISION. : 003000 EXEC SQL 003100 SELECT NAME INTO :NAME-AREA FROM SHAIN WHERE AGE = 30 003200 END-EXEC. 003300 IF NAME-AREA = N'山田 太郎' 003400 THEN : 004000 ELSE : 005000 END-IF.
SET BREAK STATEMENT(3000) COUNTER(CNT) DO IF CONDITION(CNT=1) ASSIGN DATA(NAME-AREA) VALUE(N'山田 太郎') ELSE ASSIGN DATA(NAME-AREA) VALUE(N'日立 花子') ENDIF GO ENDDO
All Rights Reserved. Copyright (C) 2013, 2016, Hitachi, Ltd.
All Rights Reserved. Copyright (C) 2002, 2011, Microsoft Corporation.