call "CBL_CTF_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
 
    | 呼び出しプロトタイプ使用時 (「説明の読み方」を参照) | 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-vallen | cblt-x4-comp5 | pic x(4) comp-5 | 
| 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-len        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 length of prop-string to prop-len
call "CBL_CTF_EMITTER_PROPERTY_GET" using
                                    by value flags
                                    by reference emitter-name
                                    by reference "prop1 "
                                    by reference prop-len
                                    by reference prop-string
...
compute flags = 78-CTF-FLAG-PROP-INT-VALUE
call "CBL_CTF_EMITTER_PROPERTY_GET" using
                                    by value flags
                                    by reference emitter-name
                                    by reference "prop2 "
                                    by value 0
                                    by reference prop-integer
...