監査エミッターのプロパティ値を設定します。
注: 監査マネージャーは非推奨です。下位互換性のみを目的として提供されています。代わりに syslog イベントを使用することをお奨めします。詳細については、「
エンタープライズ サーバーの監査」を参照してください。
制約事項: This topic applies only when the Enterprise Server feature is enabled.
構文:
call "CBL_AUDIT_EMITTER_PROPERTY_SET" using by value flags
by reference emitter-name
by reference property-name
by reference property-value
returning status-code
パラメーター:
|
型定義 |
PIC |
flags |
cblt-x4-comp5 |
pic x(4) comp-5 |
emitter-name |
pic x(n) |
pic x(n) |
property-name |
pic x(n) |
pic x(n) |
property-value |
pic x(n) |
pic x(n) |
入力パラメーター:
- flags
-
ビット |
値 |
意味 |
0 |
0 |
文字列値。ビット 1 を使用して、文字列の終了文字を決定します。 |
|
1 |
整数値。ビット 1 は無視してください。 |
1 |
0 |
文字列値は空白文字で終了します。 |
|
1 |
文字列値は null で終了します。 |
2-27 |
|
予備 (値は常に 0) |
28 |
0 |
emitter-name は空白文字で終了します。 |
|
1 |
emitter-name は null で終了します。 |
29 |
0 |
property-name は空白文字で終了します。 |
|
1 |
property-name は null で終了します。 |
30-31 |
|
予備 (値は常に 0) |
- emitter-name
- 型定義:pic x(n)
PIC:pic x(n)
- property-name
- 型定義:pic x(n)
PIC:pic x(n)
- property-value
- 型定義:pic x(n)
PIC:pic x(n)
戻りコード:
78-AUD-RET-SUCCESS |
78-AUD-RET-NOT-ENOUGH-MEMORY |
78-AUD-RET-EMITTER-NOT-FOUND |
78-AUD-RET-INVALID-EMITTER-NAME |
78-AUD-RET-INVALID-PROPERTY-NAME |
例:
"AUDITFILE" エミッターに関連付けられた 2 つのプロパティ値 (null で終了する文字列値、および整数値) を設定します。
copy "mfaudit.cpy ".
01 emitter-name pic x(10) value "AUDITFILE".
01 flags pic x(4) comp-5.
01 prop-integer pic x(4) comp-5.
01 prop-string pic x(100).
...
compute flags = 78-AUD-FLAG-PROP-STRING-VALUE b-or
78-AUD-FLAG-PROP-NULL-TERM
move "xxx" & x"00" to prop-string
call "CBL_AUDIT_EMITTER_PROPERTY_SET" using
by value flags
by reference emitter-name
by reference "location "
by reference prop-string
...
compute prop-flags = 78-AUD-FLAG-PROP-INT-VALUE
move 10 to prop-integer
call "CBL_AUDIT_EMITTER_PROPERTY_GET" using
by value flags
by reference emitter-name
by reference "collectionsize "
by reference prop-integer
...
説明:
CBL_AUDIT_EMITTER_PROPERTY_SET は、名前が emitter-name のエミッターの名前付きプロパティの値を設定するために使用します。エミッターに同じ名前のプロパティが既に存在する場合、その値は新しい値に置き換えられます。