call "CBL_CTF_TRACE_NOTIFY" using by value install-function by reference notif-install returning status-code
01 cblt-trc-notif-install typedef. 03 cblte-tni-version cblt-x4-comp5. *> pic x(4) comp-5. 03 cblte-tni-handle cblt-x4-comp5. *> pic x(4) comp-5. 03 cblte-tni-callback cblt-ppointer. *> procedure pointer
「mycomp」コンポーネントのイベントをトレースするためのトレーサー ハンドルを取得し、しきい値レベルおよびプロパティの変更の通知を処理するコールバックを登録します。
copy "cbltypes.cpy". copy "mfctf.cpy". 01 component-id pic x(7) value "mycomp". 01 install-params cblt-trc-notif-install. linkage section. 01 lk-tracer-handle pic x(4) comp-5. 01 lk-notif-type pic x(4) comp-5. 01 lk-notif-param pic x. 01 lk-notif-param-level redefines lk-notif-param pic x(4) comp-5. 01 lk-notif-param-property redefines lk-notif-param cblt-trc-notif-prop-change .... *> *> Acquire tracer handle *> call "CBL_CTF_TRACER_GET" using by value 0 by reference component-id by reference tracer-handle ... *> *> Install callback function *> move low-values to install-params move tracer-handle to cblte-tni-handle of install-params set cblte-tni-callback of install-params to entry "my-callback" call "CBL_CTF_TRACER_NOTIFY" using by value 0 by reference install-params ... goback. *> *> The callback function to handle trace level and property *> changes *> entry "my-callback" using by value lk-tracer-handle by value lk-notif-type by value lk-notif-param. evaluate lk-notif-type when 78-TRC-NOTIF-TYPE-LEVEL-CHANGE .... when 78-TRC-NOTIF-TYPE-PROP-CHANGE .... end-evaluate move 0 to return-code goback.
説明:
トレーサー構成コールバック関数をコンポーネントで登録することで、しきい値レベルの変更やプロパティ値の変更など、関連するトレーサーの構成に変更が発生したときにコンポーネントに通知することができます。
コールバック関数のインターフェイスは次のとおりです。
tracer-handle および notification-type は pic x(4) comp-5 項目で、notification-param は pic x(n) です。いずれも入力専用のパラメーターです。コールバック関数が完了すると戻りコードが 0 に設定されます。
バージョン タイプ (cblte-tnpc-version):0 = 構造体のバージョン