監査ファイルを開きます。
注: 監査マネージャーは非推奨です。下位互換性のみを目的として提供されています。代わりに syslog イベントを使用することをお奨めします。詳細については、「
エンタープライズ サーバーの監査」を参照してください。
制約事項: This topic applies only when the Enterprise Server feature is enabled.
構文:
call "CBL_AUDIT_FILE_OPEN" using by value flags
by reference auditfile-handle
by reference auditfile-name
returning status-code
パラメーター:
|
型定義 |
PIC |
flags |
cblt-x4-comp5 |
pic x(4) comp-5 |
auditfile-handle |
cblt-pointer |
pointer |
auditfile-name |
pic x(n) |
pic x(n) |
入力パラメーター:
- flags
-
ビット |
値 |
意味 |
0 |
0 |
指定された監査ファイルを開きます。 |
|
1 |
指定されたファイルがメンバーとして属する監査ファイルのコレクションを開きます。 |
1 |
0 |
auditfile-name は空白文字で終了します。 |
|
1 |
auditfile-name は null で終了します。 |
2-31 |
|
予備 (値は常に 0) |
出力パラメーター:
auditfile-handle CBL_AUDIT_FILE_READ および CBL_AUDIT_FILE_CLOSE API に指定される監査ハンドル。
戻りコード:
78-AUD-RET-SUCCESS |
78-AUD-RET-NOT-ENOUGH-MEMORY |
78-AUD-RET-FILE-NOT-EXIST |
78-AUD-RET-FILE-NOT-AVAILABLE |
78-AUD-RET-FILE-INVALID-FORMAT |
78-AUD-RET-FILE-INVALID-NAME |
例:
copy "mfaudit.cpy ".
01 auditfile-handle pic x(4) comp-5.
01 auditfile-name pic x(32)
value "mfaudit.nwb-cpjdell.aud_1" & x"00".
01 flags pic x(4) comp-5.
...
compute flags = 78-AUDITFILE-FLAG-OPEN-COLLECTION b-or
78-AUDITFILE-FLAG-OPEN-NAME-NULL-TERM
call "CBL_AUDIT_FILE_OPEN" using by value flags
by reference auditfile-handle
by reference auditfile-name
...
説明:
CBL_AUDIT_FILE_OPEN() は、監査ファイルまたは監査ファイルのコレクションを開くために使用します。ダンプ可能なファイルのみがこの API によって開かれます (つまり、「ダンプ済み」または「アクティブ」としてマークされているコレクション内のファイルは開かれません)。