IWSCPOP - Acquiring Current Plan Operations

Job IWSCPOP creates datasets TWS.IWSC.CONNECT.TRACK and TWS.IWSC.CONNECT.CPOP that contain archived job information from the prior current plan (TRACK) and a list of all operations in the current plan (CPOP).

The job must be scheduled immediately after any IWSz Current Plan Extend and Re-plan jobs.

Each TRACK dataset should be transferred with the file name track and then renamed to track.<date-time-suffix>, where <date-time-suffix> is the IA of the job performing the transfer. For example, track.yyyyMMdd.HHmmss.

Each CPOP dataset should be transferred with the file name cpop and then renamed to cpop.<date-time-suffix>, where <date-time-suffix> is the IA of the job performing the transfer. For example, cpop.yyyyMMdd.HHmmss.

The OLDLIST, NEWLIST, and AUDITPRT DD statements should be updated to refer to the dataset that you want to use for the track log audit report.

The OLDRPT and CPOP DD statement should be updated to refer to the dataset that you want to use for the current plan operation (CPOP) list

The EQQMLIB, EQQPARM, EQQTROUT, EQQCKPT, EQQJTARC, EQQJT01,

EQQJT02, EQQJT03, EQQJT04, and EQQJT05 DD statements must be updated to refer to the relevant datasets for your IWSz environment.

Example

//IWSCPOP  JOB ACCNT#,MSGLEVEL=(2,0),NOTIFY=&SYSUID,MSGCLASS=E
//DELETE   EXEC PGM=IEFBR14
//OLDRPT  DD DSN=TWS930C.IWSC.CONNECT.CPOP,
//   UNIT=SYSDA,SPACE=(TRK,0),DISP=(MOD,DELETE)
//*
//DELAUDIT EXEC PGM=IEFBR14
//OLDLIST  DD DSN=TWS930C.IWSC.CONNECT.TRACK,
//         UNIT=SYSDA,SPACE=(TRK,0),DISP=(MOD,DELETE)
//ALLOC    EXEC PGM=IEFBR14
//NEWLIST  DD DSN=TWS930C.IWSC.CONNECT.TRACK,
//         UNIT=SYSDA,DISP=(,CATLG),SPACE=(CYL,(2,5),RLSE),
//         DCB=(RECFM=FBA,LRECL=133,BLKSIZE=13300)
//*
//*%OPC SCAN
//*%OPC SETFORM OCDATE=(YYMMDD)
//*%OPC SETFORM OCTIME=(HHMM)
//BATCHL  EXEC PGM=EQQYCAIN,PARM='IWSC,MSGOFF',REGION=0M
//*
//SYSPRINT DD SYSOUT=*
//EQQMLIB  DD DSN=TWS930.SEQQMSG0,DISP=SHR
//ERREUR   DD SYSOUT=*
//EQQMLOG  DD SYSOUT=*
//EQQDUMP  DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//AD       DD SYSOUT=*
//BATCHL   DD SYSOUT=*
//CPOP     DD DISP=(,CATLG),DSN=TWS930C.IWSC.CONNECT.CPOP,
//         LRECL=80,RECFM=FB,
//         SPACE=(CYL,(20,30),RLSE)
//SYSIN    DD *
ACTION=OPTIONS,BL=Y,BLPRT=Y,ERROR=Y;
ACTION=LIST,RESOURCE=CPOPCOM,ADID=*.
//*
//AUDIT    EXEC PGM=EQQBATCH,PARM='EQQAUDIT',REGION=4096K
//EQQMLIB  DD DISP=SHR,DSN=TWS930.SEQQMSG0
//EQQPARM  DD DISP=SHR,DSN=TWS930C.INST.PARM(CONOB)
//EQQMLOG  DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//EQQDUMP  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*,
//         DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650)
//*-----------------------------------------------------------------
//* FILE BELOW IS CREATED IN DAILY PLANNING BATCH AND USED IF INPUT
//* OPTION IS 'TRL'
//EQQTROUT DD DISP=SHR,DSN=TWS930C.INST.TRACKLOG
//*-----------------------------------------------------------------
//*
//*-----------------------------------------------------------------
//* FILES BELOW ARE THOSE SPECIFIED IN STC-JCL FOR THE TWSz
//* FILES BELOW ARE THOSE SPECIFIED IN STC-JCL FOR THE TWSz
//* CONTROLLER SUBSYSTEM AND USED IF INPUT OPTION IS 'JTX'.
//EQQCKPT  DD DISP=SHR,DSN=TWS930C.INST.CKPT
//EQQJTARC DD DISP=SHR,DSN=TWS930C.INST.JTARC
//EQQJT01  DD DISP=SHR,DSN=TWS930C.INST.JT1
//EQQJT02  DD DISP=SHR,DSN=TWS930C.INST.JT2
//EQQJT03  DD DISP=SHR,DSN=TWS930C.INST.JT3
//EQQJT04  DD DISP=SHR,DSN=TWS930C.INST.JT4
//EQQJT05  DD DISP=SHR,DSN=TWS930C.INST.JT5
//*-----------------------------------------------------------------
//* FILE BELOW IS THE MLOG WRITTEN TO BY THE CONTROLLER SUBSYSTEM.
//* FOR PERFORMANCE AND INTEGRITY IT IS RECOMMENDED TO LEAVE IT
//* DUMMY.
//* IF YOU REALLY WANT TO HAVE THE OUTPUT INCLUDING MLOG,
//* YOU HAVE TWO POSSIBILITIES DEPENDING IF YOU ARE USING THE
//* MLOG SWITCH FUNCTION OR NOT:
//* IF YOU ARE USING THE MLOG SWITCH FUNCTION YOU CAN SPECIFY
//* THE REAL NAME OF LAST ARCHIVED MLOG GDG DATA SET OR OF A
//* DATA SET CONTAINING THE COPY OF ALL THE WISHED ARCHIVED
//* MLOG GDG DATA SET,
//* IF YOU ARE NOT USING THE MLOG SWITCH FUNCTION YOU CAN
//* USE THE REAL NAME, RUNNING THE EQQAUDIB SAMPLE WHEN THE
//* SUBSYSTEM IS STOPPED OR USING A COPY OF THE LIVING MLOG.
//*-----------------------------------------------------------------
//*LIVEMLOG DD DISP=SHR,DSN=TWS930C.INST.MLOGC2
//LIVEMLOG DD DUMMY
//*-----------------------------------------------------------------
//*
//*-----------------------------------------------------------------
//* FILE BELOW IS WHERE THE REPORT IS WRITTEN.
//AUDITPRT DD DSN=TWS930C.IWSC.CONNECT.TRACK,DISP=SHR,
//         DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650)
//*-----------------------------------------------------------------
//*-----------------------------------------------------------------
//* THESE ARE THE PARMS YOU CAN PASS ON TO THE EQQAUDIT PROGRAM
//*
//* IF YOU ARE USING JTX or TRL AS INPUT:
//* =======================================
//* POS 01-03: 'JTX','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
//*
//*
//* IF YOU ARE USING DBX or DBR AS INPUT:
//* ======================================
//* POS 01-03: 'DBX','DBR' TO DEFINE WHAT INPUT FILES TO USE
//* POS 04-04: EXTENDED AUDITING REPORT Level of information:
//*            Valid for delete or add action
//*             K - print key only
//*             S - print summary info (default)
//*             F - print complete info
//* POS 05-08: FILE FILTERING:
//*            'WS  ','RD  ','AD  ','RUN ','OI  ','JV  ',
//*            'PER ','CAL ','    '
//* POS 09-52: ACCORDING TO FILE FILTERING, ADDITIONAL KEY
//*            FILTERING:
//*            - WS  WSNAME                POS: 09-12
//*            - RD  RESOURCE NAME         POS: 09-52
//*            - AD  AD NAME               POS: 09-24
//*            - RG  RUN CYCLE GROUP       POS: 09-16
//*            - OI  OIKEY                 POS: 09-27
//*                   ADID                 POS: 09-24
//*                   OPNO                 POS: 25-27
//*            - JV  TABLE NAME            POS: 09-16
//*            - PER PERIOD NAME           POS: 09-16
//*            - CAL CALENDAR NAME         POS: 09-16
//* POS 53-57: FREE
//* POS 58-67: FROM_DATE/TIME AS YYMMDDHHMM OR BLANK
//* POS 68-77: TO_DATE/TIME AS YYMMDDHHMM OR BLANK
//*-----------------------------------------------------------------
//*-+----1----+----2----+----3----+----4----+----5----+----6----+----7-
//SYSIN    DD *
TRL
//*
//XFER1   EXEC PGM=FTP,REGION=2048K,
//    PARM='54.208.53.225 (EXIT'
//*
//SYSPRINT DD *
//OUTPUT   DD SYSOUT=*
//INPUT    DD *
iwsuser C0nn3ct!
LOCSITE FWFRIENDLY
LOCSITE PASSIVEIGNOREADDR
ASCII
SITE SBDATACONN=(IBM-273,ISO8859-1)
cd files
PUT 'TWS930C.IWSC.CONNECT.CPOP' cpop.txt
SITE CHMOD 744 cpop.txt
RENAME cpop.txt cpop_&OCDATE.&OCTIME..txt
PUT 'TWS930C.IWSC.CONNECT.TRACK' track.txt
SITE CHMOD 744 track.txt
RENAME track.txt track_&OCDATE.&OCTIME..txt
cd ../files2
PUT 'TWS930C.IWSC.CONNECT.CPOP' cpop.txt
SITE CHMOD 744 cpop.txt
RENAME cpop.txt CPOP.&OYMD..&OHHMM.00
PUT 'TWS930C.IWSC.CONNECT.TRACK' track.txt
SITE CHMOD 744 track.txt
RENAME track.txt TRACK.&OYMD..&OHHMM.00
QUIT
//*