Samples of JCL to create trace output
An example of a job that was used to create unformatted USR(FAD) trace output is shown.
//PRTUSRF2 JOB IMSCVT8,MSGLEVEL=1,CLASS=K,MSGCLASS=A,REGION=4096K
//*********************************************************************
//* JOB NAME: PRINTGTF JCL *
//* JOB DEPENDENCIES: The GTF data set named below must exist. *
//* JOB Source: See the IPCS User's Guide, Appendix B. *
//* JOB DESCRIPTION: This job prints the specified GTF data set using *
//* the Batch IPCS feature. *
//*********************************************************************
/*ROUTE PRINT THISCPU/IMSM3405
//*OBLIB DD DSN=IMSTESTL.TNUC0,DISP=SHR
//* DD DISP=SHR,DSN=IMSBLD.I710TS25.CRESLIB
//* DD DISP=SHR,DSN=IMSTESTG.IMS710.TSTRES
//* DD DISP=SHR,DSN=IMSTESTG.IMSQA.ACPLIB
//* DD DISP=SHR,DSN=IMSTESTG.IMSQA.PGMLIB
//JOBCAT DD DISP=SHR,DSN=VCATQAV
// DD DISP=SHR,DSN=VCATDCL
//*********************************************************************
//* Print the SYS1.TRACE data set. *
//* Member BLSCDDIR resides in SYS1.SBLSCLI0, an IPCS system proclib. *
//* IT ISSUES THE DEFINE CLUSTER FOR 'DBRX06.IPCS.DDIR' ON USER01 AND *
//* catalogs it in SYS1.ECTEST.MASTER.CATALOG. *
//*********************************************************************
//IPCS EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=1500K
//TRACE DD DSN=SYS1.TRACE,DISP=SHR,
// UNIT=SYSDA,VOL=SER=000000
//SYSPROC DD DSN=SYS1.SBLSCLI0,DISP=SHR
//SYSTSPRT DD SYSOUT=A
//IPCSPRNT DD SYSOUT=A
//IPCSTOC DD SYSOUT=A
//SYSUDUMP DD SYSOUT=A
//SYSTSIN DD *
PROFILE MSGID
%BLSCDDIR DSNAME(DBRX06.IPCS.DDIR) VOLUME(USER01)
IPCS NOPARM
SETDEF DDNAME(TRACE) NOCONFIRM
GTFTRACE USR(FAD)
END
/*
//*********************************************************************
//* Delete the IPCS dump directory created by the previous step *
//* so that the re-IPL of the ec machine will not orphan the data *
//* set. *
//*********************************************************************
//AMS01 EXEC PGM=IDCAMS,COND=EVEN
//SYSPRINT DD SYSOUT=A
//DD1 DD UNIT=SYSDA,VOL=SER=USER01,DISP=SHR
//SYSIN DD *
DELETE DBRX06.IPCS.DDIR FILE(DD1)
/* The following example is of a job that was used to create the DBRC formatted output:
//PRINTHMD JOB IMSCVT8,MSGLEVEL=1,CLASS=K,MSGCLASS=A,REGION=4096K
//*********************************************************************
//* JOB NAME: PRINTHMD JCL *
//* JOB DEPENDENCIES: The GTF data set named below must exist. *
//* JOB Source: See the IPCS User's Guide, Appendix B. *
//* JOB DESCRIPTION: This job prints the specified GTF data set using *
//* the Batch IPCS feature. *
//*********************************************************************
/*ROUTE PRINT THISCPU/IMSM3405
//JOBLIB DD DSN=IMSTESTL.TNUC0,DISP=SHR
// DD DISP=SHR,DSN=IMSBLD.I710TS25.CRESLIB
// DD DISP=SHR,DSN=IMSTESTG.IMS710.TSTRES
// DD DISP=SHR,DSN=IMSTESTG.IMSQA.ACPLIB
// DD DISP=SHR,DSN=IMSTESTG.IMSQA.PGMLIB
//JOBCAT DD DISP=SHR,DSN=VCATQAV
// DD DISP=SHR,DSN=VCATDCL
//*********************************************************************
//* Print the SYS1.TRACE data set. *
//* Member BLSCDDIR resides in SYS1.SBLSCLI0, an IPCS system proclib. *
//* IT ISSUES THE DEFINE CLUSTER FOR 'DBRX06.IPCS.DDIR' ON USER01 AND *
//* catalogs it in SYS1.ECTEST.MASTER.CATALOG. *
//*********************************************************************
//IPCS EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=1500K
//TRACE DD DSN=SYS1.TRACE,DISP=SHR,
// UNIT=SYSDA,VOL=SER=000000
//SYSPROC DD DSN=SYS1.SBLSCLI0,DISP=SHR
//SYSTSPRT DD SYSOUT=A
//IPCSPRNT DD SYSOUT=A
//IPCSTOC DD SYSOUT=A
//SYSUDUMP DD SYSOUT=A
//SYSTSIN DD *
PROFILE MSGID
%BLSCDDIR DSNAME(DBRX06.IPCS.DDIR) VOLUME(USER01)
IPCS NOPARM
SETDEF DDNAME(TRACE) NOCONFIRM
GTFTRACE EXIT(DSPUSRF2)
END
/*
//*********************************************************************
//* Delete the IPCS dump directory created by the previous step *
//* so that the re-IPL of the ec machine will not orphan the data *
//* set. *
//*********************************************************************
//AMS01 EXEC PGM=IDCAMS,COND=EVEN
//SYSPRINT DD SYSOUT=A
//DD1 DD UNIT=SYSDA,VOL=SER=USER01,DISP=SHR
//SYSIN DD *
DELETE DBRX06.IPCS.DDIR FILE(DD1)
/*