PLICTF サブルーチン

目的

x を y の長さだけ CTF トレースファイルに書き込みます。

構文

CALL PLICTF(999, 1, -1, x, [ y]);

パラメーター

x は文字式です。

y は CTF トレースファイルに書き込む長さです。

y パラメーターが指定されていない場合、y は (x) の大きさと等しくなります。

説明

CTF は、実行されているアプリケーションをトレースし、トレースファイルをテキスト (デフォルト) またはバイナリのいずれかの形式で作成する診断ツールです。このサブルーチンを使用して、文字列をトレースファイルに書き込みます。

例

DCL MSG CHAR(100) INIT('My name is Daniels, Jack Daniels!'); 
CALL PLICTF(999, 1, -1, MSG);
CALL PLICTF(999, 1, -1, MSG,  18);
CALL PLICTF(999, 1, -1, "You ain't nothing but a hound dog");

foo: proc() options(main);

   /* Generate a 999 event, Info Level tracing (1), with 
      a message of "A trace for Bob", that is 15 bytes long
     Requires:   where xxx is replaced with “level”
                         Of debug/info/warning/error
        mftrace.level.mf.rts.pli                = xxxx
     The “flags” parameter (#3) is not one the customer
     Can change with the current releases – must always be -1
    */

   call PLICTF(999, 1, -1, "A trace for Bob", 15);

 end;

制約事項

なし。