//******************************************************************
//*Print formatted audit reports
//******************************************************************
//* This program will take input from either the JTARC/JTx-files (for
//* reporting in real time) or from the //EQQTROUT-file of the daily
//* plan extend/replan programs (for after-the-fact reporting).
//*
//* If You don't allocate //LIVEMLOG dummy, it will also read that
//* file and, looking at the time-stamps, merge those messages with
//* the formatted report-lines from the tracklog-files.
//*
//* If not excluded by the user-defined filters, each tracklog-event
//* will generate one formatted report-line. The program will also:
//*
//* - Print all JCL-lines if AMOUNT(DATA) specified for FILE(JS)
//* (If PASSWORD= is encountered, the password will be blanked
//* out and not appear in the listing)
//*
//* - Print all variable values of a job if AMOUNT(DATA) was
//* specified for FILE(VAR)
//*
//* - Print all origin dates of a period if AMOUNT(DATA) was
//* specified for FILE(PER)
//*
//* - Print all specific dates of a calendar if AMOUNT(DATA) was
//* specified for FILE(CAL)
//*
//* You have to specify AMOUNT(DATA) for FILE(CAL) to have
//* calendar identifier listed
//*
//* You have to specify AMOUNT(DATA) for FILE(LTP) to have for
//* example deleted occurrences identified in a meaningful way
//*
//* An MCP-request will be broken down into sub-transactions and
//* each sub-transaction listed in connection to the originating
//* request
//*
//* - All WS intervals will be printed if availability of a WS is
//* changed
//* - All contained group occurrences will be listed for a 'group'
//* MCP request
//*
//* If you specify a search-string to the program it will select
//* events with the specified string in it somewhere. That MAY mean
//* that you will not the see the string in the report-line itself
//* as the line may have been too 'busy' to also have room for your
//* string value, whatever it may be.
//*
//* MLOG messages have only MM/DD time-stamps. Therefore You should
//* avoid running the program with input files spanning the year
//* boundary.
//*
//*-------------------------------------------------------------------
//********************************************************************
//* EXTRACT AND FORMAT OPC JOB TRACKING EVENTS
//********************************************************************
//AUDIT EXEC PGM=EQQBATCH,PARM='EQQAUDIT',REGION=4096K
//STEPLIB DD DISP=SHR,DSN=TWS81.SERVICE.APFLIB1
//EQQMLIB DD DISP=SHR,DSN=TWS81.SERVICE.SEQQMSG1
//EQQPARM DD DISP=SHR,DSN=OPCSSD.DC0V.PARM(DC0VB)
//*
//EQQMLOG DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//EQQDUMP DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*,
// DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6050)
//*-----------------------------------------------------------------
//* FILE BELOW IS CREATED IN DAILY PLANNING BATCH AND USED IF INPUT
//* OPTION IS 'TRL'
//*-----------------------------------------------------------------
//EQQTROUT DD DISP=SHR,DSN=TWS.TWSQ.TRACKLOG
//*
//*-----------------------------------------------------------------
//* FILES BELOW ARE THOSE SPECIFIED IN STC-JCL FOR THE OPC
//* CONTROLLER SUBSYSTEM AND USED IF INPUT OPTION IS 'JTX'.
//* NO NEED TO INSERT MORE EQQJTxx DATASETS, DEPENDING ON
//* THE NUMBER SPECIFIED IN JTLOGS(x) KEYWORD IN JTOPTS.
//*-----------------------------------------------------------------
//EQQCKPT DD DISP=SHR,DSN=TWS.TWSQ.CKPT
//EQQJTARC DD DISP=SHR,DSN=TWS.TWSQ.JTARC
//EQQJT01 DD DISP=SHR,DSN=TWS.TWSQ.JT1
//EQQJT02 DD DISP=SHR,DSN=TWS.TWSQ.JT2
//EQQJT03 DD DISP=SHR,DSN=TWS.TWSQ.JT3
//EQQJT04 DD DISP=SHR,DSN=TWS.TWSQ.JT4
//EQQJT05 DD DISP=SHR,DSN=TWS.TWSQ.JT5
//*
//*-----------------------------------------------------------------
//* FILE BELOW IS THE MLOG WRITTEN TO BY THE CONTROLLER SUBSYSTEM
//* NOTE: IF YOU DON'T WANT YOUR MLOG MERGED, JUST USE 'DD DUMMY'
//*-----------------------------------------------------------------
//*LIVEMLOG DD DISP=SHR,DSN=TWS.TWSQ.MLOGC
//LIVEMLOG DD DISP=SHR,DSN=TWS.TWSQ.MLOGC
//*
//*-----------------------------------------------------------------
//* FILE BELOW IS WHERE THE REPORT IS WRITTEN. FBA 133
//*-----------------------------------------------------------------
//*AUDITPRT DD DISP=SHR,DSN=OPCSSD.DC0V.EQQAUDIT.REPORT
//AUDITPRT DD DISP=SHR,DSN=OPCSSD.DC0V.EQQAUDIT.REPORT
//*
//*-----------------------------------------------------------------
//* THESE ARE THE PARMS YOU CAN PASS ON TO THE EQQAUDIT PROGRAM
//*
//* POS 01-03: 'JTX' or 'TRL' TO DEFINE WHAT INPUT FILES TO USE
//* POS 04-57: STRING TO SEARCH FOR IN INPUT RECORD OR BLANK
//* POS 58-67: FROM_DATE/TIME AS YYMMDDHHMM OR BLANK
//* POS 68-77: TO_DATE/TIME AS YYMMDDHHMM OR BLANK
//*-----------------------------------------------------------------
//SYSIN DD *
JTX
/*