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