第5章 エラー時の対処
5.2 トレース出力機能
5.2.3 トレース情報の内容
5.2.3.2 トレース情報の出力例
COBOL命令に対応して複数行の情報が出力されます。以下にCOBOL命令毎のパターン例を示します。
表5.11 マルチセッションプログラミング時のトレース出力パターン例
COBOL命令 トレース情報(TraceLevel=3の場合) 説明
セッション開始 COB̲PRDB̲START
prdb̲start() ; ---(0) : Start.
prdb̲start() ; ---(0) : Normal End.
セッション終了 COB̲PRDB̲END
prdb̲end() ; ---(0) : Start.
prdb̲end() ; ---(0) : Normal End.
OPEN (INPUT) prdb̲isopen() ; ---(0) : Start.
sub̲thr̲isopen() ; ---(0) : Start.
openDBODBC() ; ---(0) : Server Version= xxxxxx openTBODBC() ; ---(0) : TableName=FILE02
openTBODBC() ; ---(0) : REC̲NUM̲UNSIGN̲SMALLINT, SMALLINT(5),5-0
openTBODBC() ; ---(0) : REC̲DATA̲CHAR,CHAR(1),8 sub̲thr̲isopen() ; TBLLOCK(7) : Normal End.
prdb̲isopen() ; TBLLOCK(7) : Normal End.
prdb̲isindexinfo() ; TBLLOCK(7) : Start.
sub̲isindexinfo() ; TBLLOCK(7) : Start.
sub̲isindexinfo() ; TBLLOCK(7) : Normal End.
prdb̲isindexinfo() ; TBLLOCK(7) : Normal End.
prdb̲isindexinfo() ; TBLLOCK(7) : Start.
sub̲isindexinfo() ; TBLLOCK(7) : Start.
sub̲isindexinfo() ; TBLLOCK(7) : Normal End.
prdb̲isindexinfo() ; TBLLOCK(7) : Normal End.
●
●
●
●
接続先データベースの バージョン情報が出力 さ れ ま す 。 (Server Version)
オープンしたファイル 名 が 出 力 さ れ ま す 。 (TableName=) 列 情 報 が 出 力 さ れ ま す。
本例ではテーブルロッ クを行ったことが分か ります。(TBLLOCK)
OPEN (OUTPUT) prdb̲isbuild() ; ---(0) : Start.
sub̲thr̲isbuild() ; ---(0) : Start.
openDBODBC() ; ---(0) : Server Version= xxxxxx openTBODBC() ; ---(0) : TableName=FILE02 openTBODBC() ; ---(0) : REC̲NUM̲UNSIGN̲SMALLINT,
SMALLINT(5),5-0 openTBODBC() ; ---(0) : REC̲DATA̲CHAR,CHAR(1),8 sub̲thr̲isbuild() ; TBLLOCK(7) : Normal End.
prdb̲isbuild() ; TBLLOCK(7) : Normal End.
prdb̲isindexinfo() ; TBLLOCK(7) : Start.
sub̲isindexinfo() ; TBLLOCK(7) : Start.
sub̲isindexinfo() ; TBLLOCK(7) : Normal End.
prdb̲isindexinfo() ; TBLLOCK(7) : Normal End.
prdb̲isindexinfo() ; TBLLOCK(7) : Start.
sub̲isindexinfo() ; TBLLOCK(7) : Start.
sub̲isindexinfo() ; TBLLOCK(7) : Normal End.
prdb̲isindexinfo() ; TBLLOCK(7) : Normal End.
●
●
●
●
接続先データベースの バージョン情報が出力 さ れ ま す 。 (Server Version)
オープンしたファイル 名 が 出 力 さ れ ま す 。 (TableName=) 列 情 報 が 出 力 さ れ ま す。
本例ではテーブルロッ クを行ったことが分か ります。(TBLLOCK)
OPEN (I-O) prdb̲isopen() ; ---(0) : Start.
sub̲thr̲isopen() ; ---(0) : Start.
openDBODBC() ; ---(0) : Server Version= xxxxx openTBODBC() ; ---(0) : TableName=FILE02 openTBODBC() ; ---(0) : REC̲NUM̲UNSIGN̲SMALLINT,
SMALLINT(5),5-0 openTBODBC() ; ---(0) : REC̲DATA̲CHAR,CHAR(1),8 sub̲thr̲isopen() ; TBLLOCK(7) : Normal End.
prdb̲isopen() ; TBLLOCK(7) : Normal End.
prdb̲isindexinfo() ; TBLLOCK(7) : Start.
sub̲isindexinfo() ; TBLLOCK(7) : Start.
sub̲isindexinfo() ; TBLLOCK(7) : Normal End.
prdb̲isindexinfo() ; TBLLOCK(7) : Normal End.
prdb̲isindexinfo() ; TBLLOCK(7) : Start.
sub̲isindexinfo() ; TBLLOCK(7) : Start.
sub̲isindexinfo() ; TBLLOCK(7) : Normal End.
prdb̲isindexinfo() ; TBLLOCK(7) : Normal End.
●
●
●
●
接続先データベースの バージョン情報が出力 さ れ ま す 。 (Server Version)
オープンしたファイル 名 が 出 力 さ れ ま す 。 (TableName=) 列 情 報 が 出 力 さ れ ま す。
本例ではテーブルロッ クを行ったことが分か ります。(TBLLOCK)
OPEN (EXTEND) prdb̲isopen() ; ---(0) : Start.
sub̲thr̲isopen() ; ---(0) : Start.
openDBODBC() ; ---(0) : Server Version= xxxxx openTBODBC() ; ---(0) : TableName=FILE01 openTBODBC() ; ---(0) : REC̲NUM̲UNSIGN̲SMALLINT,
SMALLINT(5),5-0 openTBODBC() ; ---(0) : REC̲DATA̲CHAR,CHAR(1),8 sub̲thr̲isopen() ; TBLLOCK(7) : Normal End.
prdb̲isopen() ; TBLLOCK(7) : Normal End.
prdb̲isindexinfo() ; TBLLOCK(7) : Start.
sub̲isindexinfo() ; TBLLOCK(7) : Start.
sub̲isindexinfo() ; TBLLOCK(7) : Normal End.
prdb̲isindexinfo() ; TBLLOCK(7) : Normal End.
prdb̲isindexinfo() ; TBLLOCK(7) : Start.
sub̲isindexinfo() ; TBLLOCK(7) : Start.
sub̲isindexinfo() ; TBLLOCK(7) : Normal End.
prdb̲isindexinfo() ; TBLLOCK(7) : Normal End.
●
●
●
●
接続先データベースの バージョン情報が出力 さ れ ま す 。 (Server Version)
オープンしたファイル 名 が 出 力 さ れ ま す 。 (TableName=) 列 情 報 が 出 力 さ れ ま す。
本例ではテーブルロッ クを行ったことが分か ります。(TBLLOCK)
CLOSE prdb̲isclose() ; TBLLOCK(7) : Start.
sub̲isclose() ; TBLLOCK(7) : Start.
closeDBODBC() ; TBLLOCK(7) : TableName=FILE02 sub̲isclose() ; ---(0) : Normal End.
prdb̲isclose() ; ---(0) : Normal End.
● クローズしたファイル 名 が 出 力 さ れ ま す 。 (TableName=)
START prdb̲isstart() ; TBLLOCK(7) : Start.
sub̲isstart() ; TBLLOCK(7) : Start.
̲RandomFind() ; TBLLOCK(7) : +0 +4 +8 +C +000000 01000000 ....
sub̲isstart() ; TBLLOCK(7) : Normal End.
prdb̲isstart() ; TBLLOCK(7) : Normal End.
● キー値のダンプ情報が 出力されます。
順 READ prdb̲isread() ; TBLLOCK(7) : Start.
sub̲isread() ; TBLLOCK(7) : Start.
getRecordODBC() ; TBLLOCK(7) : +0 +4 +8 +C
+000000 00016162 63202020 2020 ..abc sub̲isread() ; TBLLOCK(7) : Normal End.
prdb̲isread() ; TBLLOCK(7) : Normal End.
● データベースから読込 まれたデータダンプ情 報が出力されます。
乱 READ prdb̲isstart() ; TBLLOCK(7) : Start.
sub̲isstart() ; TBLLOCK(7) : Start.
̲RandomFind() ; TBLLOCK(7) : +0 +4 +8 +C
+000000 01000000 ....
sub̲isstart() ; TBLLOCK(7) : Normal End.
prdb̲isstart() ; TBLLOCK(7) : Normal End.
prdb̲isread() ; TBLLOCK(7) : Start.
sub̲isread() ; TBLLOCK(7) : Start.
getRecordODBC() ; TBLLOCK(7) : +0 +4 +8 +C
+000000 00017878 78202020 2020 ..xxx sub̲isread() ; TBLLOCK(7) : Normal End.
prdb̲isread() ; TBLLOCK(7) : Normal End.
●
●
キー値のダンプ情報が 出力されます。
データベースから読込 まれたデータダンプ情 報が出力されます。
順 DELETE prdb̲isdelcurr() ; TBLLOCK(7) : Start.
sub̲isdelcurr() ; TBLLOCK(7) : Start.
sub̲isdelcurr() ; TBLLOCK(7) : Normal End.
prdb̲isdelcurr() ; TBLLOCK(7) : Normal End.
乱 DELETE prdb̲isdelete() ; TBLLOCK(7) : Start.
sub̲isdelete() ; TBLLOCK(7) : Start.
̲RandomFind() ; TBLLOCK(7) : +0 +4 +8 +C
+000000 01000000 ....
sub̲isdelete() ; TBLLOCK(7) : Normal End.
prdb̲isdelete() ; TBLLOCK(7) : Normal End.
● キー値のダンプ情報が 出力されます。
WRITE prdb̲iswrite() ; TBLLOCK(7) : Start.
sub̲iswrite() ; TBLLOCK(7) : Start.
insertRecordODBC() ; TBLLOCK(7) : +0 +4 +8 +C
+000000 01000000 ....
insertRecordODBC() ; TBLLOCK(7) : +0 +4 +8 +C
+000000 61006200 63000000 00000000 00000000 a.b.c... ...
+000010 0000 ..
sub̲iswrite() ; TBLLOCK(7) : Normal End.
prdb̲iswrite() ; TBLLOCK(7) : Normal End.
●
●
キー値のダンプ情報が 出力されます。
データベースへ書込み を行ったデータダンプ 情報が出力されます。
順 REWRITE prdb̲isrewcurr() ; TBLLOCK(7) : Start.
sub̲isrewcurr() ; TBLLOCK(7) : Start.
updateRecordODBC() ; TBLLOCK(7) : +0 +4 +8 +C
+000000 01000000 ....
updateRecordODBC() ; TBLLOCK(7) : +0 +4 +8 +C
+000000 78007800 78000000 00000000 00000000 x.x.x... ...
+000010 0000 ..
sub̲isrewcurr() ; TBLLOCK(7) : Normal End.
prdb̲isrewcurr() ; TBLLOCK(7) : Normal End.
●
●
キー値のダンプ情報が 出力されます。
データベースへ書込み を行ったデータダンプ 情報が出力されます。
乱 REWRITE prdb̲isrewrite() ; TBLLOCK(7) : Start.
sub̲isrewrite() ; TBLLOCK(7) : Start.
̲RandomFind() ; TBLLOCK(7) : +0 +4 +8 +C
+000000 01000000 ....
updateRecordODBC() ; TBLLOCK(7) : +0 +4 +8 +C
+000000 01000000 ....
updateRecordODBC() ; TBLLOCK(7) : +0 +4 +8 +C
+000000 71007100 71000000 00000000 00000000 q.q.q... ...
+000010 0000 ..
sub̲isrewrite() ; TBLLOCK(7) : Normal End.
prdb̲isrewrite() ; TBLLOCK(7) : Normal End.
●
●
キー値のダンプ情報が 出力されます。
データベースへ書込み を行ったデータダンプ 情報が出力されます。
トランザクショ ン開始
prdb̲sub() ; TBLLOCK(7) : Start.
sub̲XMROTSTR() ; TBLLOCK(7) : Start.
sub̲XMROTSTR() ; TBLLOCK(7) : Normal End.
prdb̲sub() ; TBLLOCK(7) : Normal End.
―
トランザクショ ン確定
prdb̲sub() ; TBLLOCK(7) : Start.
sub̲XMROTEND() ; TBLLOCK(7) : Start.
sub̲XMROTEND() ; TBLLOCK(7) : Normal End.
prdb̲sub() ; TBLLOCK(7) : Normal End.
―
トランザクショ ン取消
prdb̲sub() ; TBLLOCK(7) : Start.
sub̲XMROTCNL() ; TBLLOCK(7) : Start.
sub̲XMROTCNL() ; TBLLOCK(7) : Normal End.
prdb̲sub() ; TBLLOCK(7) : Normal End.
―
テーブルロック 解除時のトラン ザクションの取 消
prdb̲sub() ; TBLLOCK(7) : Start.
sub̲XMROTRBK() ; TBLLOCK(7) : Start.
sub̲XMROTRBK() ; TBLLOCK(7) : Normal End.
prdb̲sub() ; TBLLOCK(7) : Normal End.
―
認証情報の登録 prdb̲sub() ; TBLLOCK(7) : Start.
sub̲XMROAUTH() ; TBLLOCK(7) : Start.
sub̲XMROAUTH() ; TBLLOCK(7) : Normal End.
prdb̲sub() ; TBLLOCK(7) : Normal End.
―
付録A 他製品のファイル資源
本章では、他製品（ファイルシステム、データベース系）のファイル資源及び代替方法について 説明します。
業務システムの機能・構成設計時に、移行前のデータベース資産としてよく使用される、論理フ ァイルの使用について、開発者が確認する場合にお読みください。