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) |
| ビット | 値 | 意味 |
|---|---|---|
| 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) |
PIC：pic x(n)
PIC：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 のエミッターの名前付きプロパティの値を設定するために使用します。エミッターに同じ名前のプロパティが既に存在する場合、その値は新しい値に置き換えられます。