call "CBL_CTF_EMITTER_PROPERTY_SET" using by value flags by reference emitter-name by reference property-name by reference property-value returning
呼び出しプロトタイプ使用時 (「説明の読み方」を参照) | 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) |
status-code | 「説明の読み方」を参照 |
「myemitter」エミッターに関連付けられた 2 つのプロパティの値 (null で終了する文字列値と整数値) を設定します。
copy "cbltypes.cpy". copy "mfctf.cpy". 01 emitter-name pic x(10) value "myemitter". 01 flags pic x(4) comp-5. 01 prop-integer pic x(4) comp-5. 01 prop-string pic x(100). ... compute flags = 78-CTF-FLAG-PROP-STRING-VALUE b-or 78-CTF-FLAG-PROP-NULL-TERM move "xxx" & x"00" to prop-string call "CBL_CTF_EMITTER_PROPERTY_SET" using by value flags by reference emitter-name by reference "prop1 " by reference prop-string ... compute prop-flags = 78-CTF-FLAG-PROP-INT-VALUE move 100 to prop-integer call "CBL_CTF_EMITTER_PROPERTY_GET" using by value flags by reference emitter-name by reference "prop2 " by reference prop-integer ...
説明:
指定したエミッターに同じ名前のプロパティがすでに存在する場合は、その値が新しい値に置き換えられます。