エミッタの指定プロパティ値を設定する。
構文:
                  call "CBL_CTF_EMITTER_PROPERTY_SET" using by value     flags
                                          by reference emitter-name
                                          by reference property-name
                                          by reference property-value
                                             returning 
パラメタ:
  
                                 | 
                                呼び出しプロトタイプ使用時 (
                                  説明の読み方) | 
                                PIC (32bitシステム) | 
                         
                                | 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 | 
                                
                                  説明の読み方 参照 | 
                         
入力パラメタ:
  
                                | flags | 
     制御フラグ
          | ビット | 
          値 | 
          内容 | 
                                          
          | 0 | 
          0 | 
          文字列値。ビット1で文字列終了を決定する。 | 
                                          
           | 
          1 | 
          整数値を返す。ビット1の値を無視。 | 
                                          
          | 1 | 
          0 | 
          文字列値はスペース終了。 | 
                                          
           | 
          1 | 
          文字列値はナル終了。 | 
                                          
          | 2-27 | 
           | 
          今後の使用のため保留。値は0。 | 
                                          
          | 28 | 
          0 | 
          emitter-nameはスペース終了 | 
                                          
           | 
          1 | 
          emitter-nameナル終了。 | 
                                          
          | 29 | 
          0 | 
          property-nameはスペース終了。 | 
                                          
           | 
          1 | 
          property-nameはナル終了。 | 
                                          
                                                | 30-31 | 
           | 
          今後の使用のため保留。値は0。 | 
                                            | 
                         
                                | emitter-name | 
    スペースもしくはナル終了(ビット28の設定による)、大文字/小文字の区別があるエミッタ名 | 
                         
                                | property-name | 
    スペースもしくはナル終了(ビット29の設定による)、大文字/小文字の区別があるプロパティ名 | 
                         
                                | property-value | 
     設定されるプロパティ値を含むバッファ。バッファは文字列として指定された値の pic x(n)フィールドとなるか、整数値として設定された値のpic
      x(4) comp-5フィールドになる。 | 
                         
                出力パラメタ:
  
                                | status-code | 
    以下のうちの1つ
                                         - 78-CTF-RET-EMITTER-NOT-FOUND
 
                                         - 78-CTF-RET-INVALID-EMITTER-NAME
 
                                         - 78-CTF-RET-INVALID-PROPERTY-NAME
 
                                         - 78-CTF-RET-NOT-ENOUGH-MEMORY
 
                                         - 78-CTF-RET-SUCCESS
 
                                    | 
                         
                説明:
同じ名称のプロパティが指定エミッタとして存在している場合、その値は新しい値に置き換わる。
例:
"myemitter"エミッタに関連付けられた2つのプロパティ値を設定する。1つはナル終了文字列、もう1つは整数値。
                  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
... 
		
関連項目