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