call "CBL_AUDIT_EMITTER_PROPERTY_GET" using by value flags by reference emitter-name by reference property-name by reference property-vallen by reference property-value returning status-code
property-vallen | property-value バッファーに返される文字列値の長さ。長さに終了文字は含まれません。 property-value が null の場合、または指定されたバッファー長が短すぎて値を返せない場合、property-vallen は必要なバッファー長に設定されます。 値が整数として返される場合は設定されません。 |
property-value | プロパティ値が返されるバッファー。これは、文字列として返される値の pic x(n) フィールド、または整数として返される値の pic x(4) comp-5 フィールドのいずれかです。 property-value を null に指定すると、指定されたプロパティ値を保持するために必要なバッファー長が API から返されるように要求できます。 |
"AUDITFILE" エミッターに関連付けられた 2 つのプロパティ値 (空白文字で終了する文字列値、および整数値) を取得します。
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-len pic x(4) comp-5. 01 prop-string pic x(100). ... compute flags = 78-AUD-FLAG-PROP-STRING-VALUE move length of prop-string to prop-len call "CBL_AUDIT_EMITTER_PROPERTY_GET" using by value flags by reference emitter-name by reference "location " by reference prop-len by reference prop-string ... compute flags = 78-AUD-FLAG-PROP-INT-VALUE call "CBL_AUDIT_EMITTER_PROPERTY_GET" using by value flags by reference emitter-name by reference "collectionsize " by value 0 by reference prop-integer ...
説明:
CBL_AUDIT_EMITTER_PROPERTY_GET は、名前が emitter-name のエミッターの名前付きプロパティの値を取得するために使用します。この関数は、通常、エミッターがどのように構成されているかを確認するために初期化中にエミッターによって使用されます。