Lists transactions for which tracing is enabled.
COPY SYGWCOB.
01 IHANDLE PIC S9(9) USAGE COMP SYNC.
01 RETCODE PIC S9(9) USAGE COMP SYNC.
01 TRACE-TABLE-LIST OCCURS 8 TIMES
PIC X(8).
CALL 'TDLSTSPT' USING IHANDLE,RETCODE, TRACE-TABLE-LIST.
(I) A transaction-wide structure that contains information used to set up the Gateway-Library environment. This must be the same IHANDLE specified in the program’s initial TDINIT call. It corresponds to the context structure in Open Client Client-Library.
(O) Variable where the result of function execution is returned. Its value is one of the codes listed in Table 3-23.
(O) An array listing the contents of the trace table. Each element of this array, TRANSID-n, returns the transaction ID of a transaction for which specific tracing is currently enabled.
Under CICS: This is the TRANSID from the CICS Program Control Table (PCT).
Under IMS TM: This is the transaction name defined when the system is generated.
Under MVS: This is the APPC transaction name of the MVS transaction.
The RETCODE argument can contain any of the return values listed in Table 3-23.
Return value |
Meaning |
|---|---|
TDS-OK (0) |
Function completed successfully. |
TDS-INVALID-IHANDLE (-19) |
Invalid IHANDLE specification. Error in specifying a value for the IHANDLE argument. |
TDS-INVALID-PARAMETER (-4) |
Invalid parameter value. The value assigned to one or more of the arguments supplied in the call is not valid. The operation failed. |
The following code fragment illustrates the use of TDLSTSPT to determine which transactions have tracing enabled. It returns the transaction IDs to the caller. This example is taken from the sample program in Appendix G, “Sample Tracing and Accounting Program” which runs under CICS.
* ------------------------------------------------------------ * Describe column containing transaction ID. * ------------------------------------------------------------
MOVE LENGTH OF WRK-TRANID TO WRKLEN1.
MOVE LENGTH OF CN-LSTSPT-TRANID TO WRKLEN2.
ADD +1 TO CTR-COLUMN.
CALL 'TDESCRIB' USING GWL-PROC, GWL-RC,
CTR-COLUMN, TDSCHAR,
WRKLEN1, WRK-TRANID,
TDS-ZERO, TDS-FALSE,
TDSCHAR, WRKLEN1,
CN-LSTSPT-TRANID, WRKLEN2.
* ------------------------------------------------------------
* Find out whether specific tracing is on; if not, exit.
* ------------------------------------------------------------
CALL 'TDINFLOG' USING GWL-INIT-HANDLE, GWL-RC,
GWL-INFLOG-GLOBAL, GWL-INFLOG-API,
GWL-INFLOG-HEADER, GWL-INFLOG-DATA,
GWL-INFLOG-TRACEID,
GWL-INFLOG-FILENAME,
GWL-INFLOG-RECORDS.
IF GWL-INFLOG-GLOBAL NOT = TDS-TRACE-SPECIFIC-RPCS THEN
GO TO TDLSTSPT-EXIT
END-IF.
* ------------------------------------------------------------* Return trace table IDs to client, one item at a time. * -------------------------------------------------------------
CALL 'TDLSTSPT' USING GWL-INIT-HANDLE, GWL-RC,
GWL-LSTSPT-LIST(1).
IF GWL-RC NOT = TDS-OK THEN
MOVE 'N' TO SEND-DONE-SW
MOVE 'TDLSTSPT' TO MSG-SRVLIB-FUNC
GO TO TDLSTSPT-EXIT
END-IF.
PERFORM VARYING WRK-LSTSPT-SS FROM 1 BY 1
UNTIL WRK-LSTSPT-SS = 8
MOVE GWL-LSTSPT-LIST(WRK-LSTSPT-SS) TO WRK-TRANID
CALL 'TDSNDROW' USING GWL-PROC, GWL-RC
ADD +1 TO CTR-ROWS
END-PERFORM.
TDLSTSPT lists the transactions for which specific tracing is enabled. Transaction-level tracing can be enabled for up to eight transactions.
A blank indicates that no more transactions have tracing enabled. For example, if the first four elements in the array return transaction names, and the fifth element returns a blank, you know that tracing is enabled for four transactions only, and that elements six through eight return blanks.
Transaction-level tracing occurs when the global trace flag is set off (TDS-FALSE) by TDSETLOG and one or more types of tracing are enabled. When the global trace flag is set on (TDS-TRUE), all transactions are traced, whether or not individual tracing is specified for each transaction.
To determine the setting of the global trace flag and to learn what types of tracing are currently enabled, use TDINFLOG.
To determine whether tracing is turned on for a particular transaction, without listing all traced transactions, use TDINFSPT. TDINFSPT also returns the type of tracing enabled for the transaction.
TDLSTSPT retrieves information about tracing at the mainframe server, not the TRS. Tracing at the mainframe server and at the TRS are independent of each other.
See the Mainframe Connect Server Option Installation and Administration Guide for an explanation of the Gateway-Library tracing facility, instructions for using it, and the layout of the trace log.
Related functions
Related documents
Mainframe Connect Server Option Installation and Administration Guide
