1.3.5　メッセージログの出力（CBLEELOG）

ユーザメッセージログの出力

PROCEDURE DIVISIONの指定

CALL 'CBLEELOG' USING 一意名1 一意名2 一意名3
 
DATA DIVISIONの指定
01 一意名1.
  02 データ名A  PIC X(8) VALUE 'PRINTU  '.
  02 データ名B  PIC X(5).
  02 FILLER     PIC X(3).
  02 データ名Y  PIC S9(9) COMP.
  02 データ名Z  PIC S9(9) COMP.
  02 データ名C  PIC X(12).
  02 データ名D  PIC X(3).
01 一意名2.
  02 データ名F  PIC 9(9) COMP.
  02 データ名G  PIC X(n).
01 一意名3.
  02 データ名H  PIC S9(9) COMP VALUE ZERO.

データ名Gに指定した文字列に，TP1/EEで行ヘッダ，メッセージID，要求元プログラムIDを付けて，メッセージログファイル，標準出力，syslogに出力します。メッセージログファイルの行ヘッダは，プロセスID，メッセージ通番，サービス名称，中央処理通番，年月日，時刻です。標準出力，syslogの行ヘッダは定義で設定します。syslog出力は，データ名Zに設定した出力レベルが定義に指定した出力レベルと同じか高い場合です。データ名Zに出力レベルを設定しなかった場合の出力レベルは，1です。

メッセージテキストに復改文字「\n」を含むメッセージログは，メッセージログファイル，syslogへの出力時，1行で出力されます。標準出力への出力時は，復改文字「\n」はそのまま出力されます。

障害が起こってUAPからメッセージログが出力できない場合でも，CBLEELOG('PRINTU ')がステータスコード「00000」で正常に終了することがあります。そのためメッセージログが抜ける場合がありますが，メッセージログの抜けはメッセージログに付けるメッセージログ通番で確認できます。

1つのスレッドから複数回CBLEELOG('PRINTU ')を呼び出した場合は，メッセージログファイルへの出力順序は保証されます。ただし，複数のスレッドから別々にCBLEELOG('PRINTU ')を呼び出した場合は，呼び出した順にメッセージログファイルに出力されない場合があります。

エラーを検出した場合，TP1/EEはエラーの原因を示すメッセージログにCBLEELOG('PRINTU ')に指定したメッセージを付けて，標準エラー出力に出力します。

メッセージログの出力要求を示す要求コードを「VALUE 'PRINTU△△'」と設定します。

メッセージログごとに付けられる識別子（メッセージID）を設定します。1〜11バイトの文字列を指定します。最後は空白文字で終わらせて設定します。

TP1/EEや他製品と重複した識別子を指定しないでください。

メッセージログを出力したUAPを識別する値（要求元プログラムID）を，ユーザ任意で設定します。英数字2文字で，最後は空白文字で終わらせて設定します。

メッセージログファイルにメッセージログとして出力する文字列の長さを設定します。最大800バイト設定できます。

メッセージログファイルにメッセージログとして出力する文字列を設定します。

0を設定します。

ステータスコードが，5桁の数字で返されます。

1. ログ出力量が多い場合は，CBLEELOG('PRINTU ')のリターンが遅くなります。例えば，障害発生時にメッセージ出力量が非常に多くなると，トランザクション処理時間が延びてしまいます。

   これは，スローダウンの要因になりますので，注意してください。

2. 環境変数LANGにOS設定値と異なる言語種別を指定し，CBLEELOG('PRINTU ')でsyslogに非ASCII文字を含むメッセージを出力する場合，syslogに複数の文字コードが混在するおそれがあります。この場合は次の方法で回避してください。

   ・出力メッセージをASCII文字だけにする。

   ・データ名Zに7を指定する。

   ・拡張SYSLOGを使用し，log_hsyslog_cmodeオペランドにSJISを指定する（出力メッセージがシフトJISかつOSの言語設定がUTF-8の場合だけ）。

メッセージの出力抑止

PROCEDURE DIVISIONの指定

CALL 'CBLEELOG' USING 一意名1
 
DATA DIVISIONの指定
01 一意名1.
  02 データ名A  PIC X(8) VALUE 'DCTMSG  '.
  02 データ名B  PIC X(5).
  02 FILLER     PIC X(3).
  02 データ名Z  PIC S9(9) COMP VALUE ZERO.
  02 データ名C  PIC X(10).

データ名Cで指定したメッセージIDのメッセージの出力を抑止します。

抑止対象としたメッセージは，メッセージログファイル，標準出力（標準エラー出力），syslogへの出力を行いません。

メッセージログの出力要求を示す要求コードを「VALUE 'DCTMSG△△'」と設定します。

0を設定します。

抑止対象のメッセージIDを設定します。「KFSBn1n2n3n4n5」の形式（9文字）で，最後は空白文字で終わらせて設定します。TP1/EEが出力するメッセージIDを設定します。

CBLEELOG('PRINTU ')で指定するメッセージは抑止対象にはなりません。また，システムで出力する一部のメッセージ，コマンドプロセスで出力するメッセージは抑止対象とはなりません。

ステータスコードが，5桁の数字で返されます。

1. メッセージの出力抑止状態は，システム再開始後引き継がれません。必要に応じてメッセージの抑止を再設定してください。

メッセージの出力抑止解除

PROCEDURE DIVISIONの指定

CALL 'CBLEELOG' USING 一意名1
 
DATA DIVISIONの指定
01 一意名1.
  02 データ名A  PIC X(8) VALUE 'ACTMSG  '.
  02 データ名B  PIC X(5).
  02 FILLER     PIC X(3).
  02 データ名Z  PIC S9(9) COMP VALUE ZERO.
  02 データ名C  PIC X(10).

データ名Cで指定したメッセージID，またはすべてのメッセージの出力抑止を解除します。

メッセージログの出力要求を示す要求コードを「VALUE 'ACTMSG△△'」と設定します。

0を設定します。

抑止解除対象のメッセージIDを設定します。設定方法は「(2)　CBLEELOG('DCTMSG ')」を参照してください。

すべてのメッセージの出力抑止を解除する場合，メッセージIDを指定しないでください（先頭を空白文字にします）。

ステータスコードが，5桁の数字で返されます。