/TRACE PGM command

Use the /TRACE PGM command to trace the DL/I portion of Data Communications (DC) for a specific program.

Subsections:

Environment
Syntax
Usage notes
Equivalent IMS type-2 commands

Environment

The following table lists the environments (DB/DC, DBCTL, and DCCTL) in which you can use the commands and keywords.

Table 1. Valid environments for the /TRACE PGM command and keywords
Command / Keywords	DB/DC	DBCTL	DCCTL
/TRACE	X	X	X
PGM	X	X	X
SET	X	X	X

Syntax


                                  .-------------.   
                    .-ON--.       V             |   
>>-+-/TRACE-+--SET--+-----+--PGM----programname-+--------------><
   '-/TRA---'       '-OFF-'

Usage notes

Each DL/I call to a TPPCB, issued by the user application program, is traced on entry to and exit from the DC call handler DFSDLA30. On entry to DFSDLA30 a type 6701-LA3A record is written, on exit from DFSDLA30 a type 6701-LA3B record is written.

Each record will contain the following items if applicable:

TPPCB
Up to 64 bytes of the I/O area
SMB
PST

If the batch message program (BMP) being traced is IBM® IMS™ Queue Control Facility for z/OS®, a 6701-MRQB record is logged by the IMS Queue Control Facility module DFSQMRQ0. The default program name for the IMS Queue Control Facility BMP is MRQPSB, and can be overridden on the MSGQUEUE system definition macro.

Items logged in the 6701-MRQB record, if applicable, are:

TPPCB
AIB
I/O AREA
PST
QTPDST
QSAPWKAD
QMBA
PSTDCA
REG14-12

When CPI Communications driven transaction programs issue the DL/I APSB call specifying a PSB that contains alternate PCBs, only the PGM keyword is applicable.

Equivalent IMS type-2 commands

The following table shows variations of the /TRACE PGM command and the IMS type-2 commands that perform similar functions.

Table 2. Type-2 equivalents for the /TRACE PGM command
Task	/TRACE PGM command	Similar IMS type-2 command
Starts the tracing of a program.	/TRACE SET ON PGM `pgmname`	UPDATE PGM NAME(`pgmname`) START(TRACE)
Stops the tracing of a program.	/TRACE SET OFF PGM `pgmname`	UPDATE PGM NAME(`pgmname`) STOP(TRACE)