リレーショナルデータベース(XDM/RD)操作シミュレーション機能を使用する場合,-SQL,XDMオプションを指定してコンパイルします。また,SQL連絡領域SQLCAは,メインフレームのXDM/RDが提供しているSQL連絡領域をSQLCA.cblという名称でUNIX上に転送して使用します。このシステムでは,リレーショナルデータベース(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