Invoking the ATBTRACE Exec from TP Profile JCL

To invoke the ATBTRACE exec from the JCL in a TP profile, specify the following on the JCL EXEC statement:

IRXJCL on the PGM parameter, and
ATBTRACE and its parameters on the PARM parameter.

Also include a SYSEXEC DD statement in the JCL to specify SYS1.SBLSCLI0, the data set that contains the ATBTRACE exec.

ATB6xxxxI status and error messages, and information resulting from an ATBTRACE request, are written to the output device specified through the SYSTSPRT DD statement (either the invoker's job log, or a data set). API trace data entries are written to the data set specified through the DATASET parameter on ATBTRACE.

The following example invokes the APPC/MVS administration utility to add a TP profile that contains JCL to:

Invoke the ATBTRACE exec to start a trace for this TP,
Run the inbound TP, and
Invoke the ATBTRACE exec to stop tracing.

//TPADD    JOB  MSGLEVEL=(1,1)
//TPADD    EXEC PGM=ATBSDFMU
//*****************************************************************/
//*  EXAMPLE OF STARTING TRACE  FROM TP PROFILE                   */
//*                                                               */
//*  DEFINES A TP. ALL KEYWORDS ARE NOT SHOWN IN THIS EXAMPLE     */
//*                                                               */
//* MESSAGES FROM THE REXX EXEC WILL BE WRITTEN                   */
//* EITHER TO JOBLOG                                              */
//*    SYSTSPRT DD SYSOUT=A                                       */
//* OR TO USER SPECIFIED DATA SET                                 */
//*    SYSTSPRT DD DSN=XX.YY                                      */
//*                                                               */
//*  STARTS API TRACING (TRACE DATA SET IS QUALIFIED WITH QUOTES) */
//*  EXECUTES MYTPX PROGRAM                                       */
//*  STOPS API TRACING (TRACE DATA SET IS QUALIFIED WITH QUOTES)  */
//*****************************************************************/
//SYSPRINT DD SYSOUT=*
//SYSSDLIB DD DSN=APPC.TP.DATASET,DISP=SHR
//SYSSDOUT DD SYSOUT=*
//SYSIN    DD DATA
     TPADD
     TPNAME(TPX)
        :
        :
     TPSCHED_DELIMITER(DLM1)
        :
        :
     JCL_DELIMITER(DLM2)
//TPSTEP  JOB 'TPNAME',MSGLEVEL=(1,1)
//STARTTR EXEC PGM=IRXJCL,
//        PARM='ATBTRACE START DATASET(''JOE.TRACE'') LU(LUX) TP(TPX)'
//SYSTSPRT DD   SYSOUT=A
//SYSEXEC  DD   DSN=SYS1.SBLSCLI0,DISP=SHR
//*
//TPEXE EXEC PGM=MYTPX
//STEPLIB DD DSN=JOE.LOAD,DISP=SHR
//*
//STOPTR EXEC PGM=IRXJCL,
//        PARM='ATBTRACE STOP DATASET(''JOE.TRACE'')'
//SYSTSPRT DD   SYSOUT=A
//SYSEXEC  DD   DSN=SYS1.SBLSCLI0,DISP=SHR
//*
DLM2
DLM1
/*