PLICTF Subroutine

Purpose

Writes x with a length of y to the CTF trace file.

Syntax

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

Parameters

x is a character expression.

y is the length to be written to the CTF trace file.

If the y parameter is missing, y equals size (x).

Description

CTF is a diagnostic tool that traces running applications and creates trace files in one of two formats: text (the default) or binary. Use this subroutine to write strings to the trace file.

Examples

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;

Restrictions

None.