//DELETE   EXEC PGM=IDCAMS,REGION=512K
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
   DELETE ('HLQ.SYSTEM.MIG.AD') CLUSTER
   DELETE ('HLQ.SYSTEM.MIG.WS') CLUSTER
   DELETE ('HLQ.SYSTEM.MIG.RD') CLUSTER
   DELETE ('HLQ.SYSTEM.MIG.LT') CLUSTER
   DELETE ('HLQ.SYSTEM.MIG.LB') CLUSTER
   DELETE ('HLQ.SYSTEM.MIG.LD') CLUSTER
   DELETE ('HLQ.SYSTEM.MIG.NCP') CLUSTER
   DELETE ('HLQ.SYSTEM.MIG.CP1') CLUSTER
   DELETE ('HLQ.SYSTEM.MIG.CP2') CLUSTER
   DELETE ('HLQ.SYSTEM.MIG.CX') CLUSTER
   DELETE ('HLQ.SYSTEM.MIG.NCX') CLUSTER
   DELETE ('HLQ.SYSTEM.MIG.JS1') CLUSTER
   DELETE ('HLQ.SYSTEM.MIG.JS2') CLUSTER
   DELETE ('HLQ.SYSTEM.MIG.SI') CLUSTER
   DELETE ('HLQ.SYSTEM.MIG.OI') CLUSTER

   DELETE HLQ.SYSTEM.MIG.CKPT
   DELETE HLQ.SYSTEM.MIG.JT1
   DELETE HLQ.SYSTEM.MIG.JT2
   DELETE HLQ.SYSTEM.MIG.JT3
   DELETE HLQ.SYSTEM.MIG.JT4
   DELETE HLQ.SYSTEM.MIG.JT5
   DELETE HLQ.SYSTEM.MIG.JT1DUAL
   DELETE HLQ.SYSTEM.MIG.JT2DUAL
   DELETE HLQ.SYSTEM.MIG.JT3DUAL
   DELETE HLQ.SYSTEM.MIG.JT4DUAL
   DELETE HLQ.SYSTEM.MIG.JT5DUAL
   DELETE HLQ.SYSTEM.MIG.JTARC
   DELETE HLQ.SYSTEM.MIG.SYSDUMPB
   DELETE HLQ.SYSTEM.MIG.SYSMDUMP.CONT
   DELETE HLQ.SYSTEM.MIG.EQQDMSG
   DELETE HLQ.SYSTEM.MIG.INCLOG
   DELETE HLQ.SYSTEM.MIG.EV.CONT

   SET MAXCC=0
/*
//*
//ALLOCATE EXEC PGM=IDCAMS,REGION=512K
//*
//* ALLOCATE   OPC   PRODUCTION VSAM DATASETS
//*
//* NOTE: TO PREVENT DELETION OF VSAM DATASETS BY MISTAKE DATASET
//*       DELETION IS INDICATED AS COMMENTS ONLY.
//* NOTE: SMS CLASS KEYWORDS ARE ONLY INCLUDED AS COMMENTS.
//*       TO ACTIVATE THESE KEYWORDS, REMOVE COMMENTS AND SPECIFY
//*       APPROPRIATE SMS CLASS VALUES FOR YOUR INSTALLATION.
//*
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  DEFINE +
   CLUSTER ( +
     NAME('HLQ.SYSTEM.MIG.AD') UNIQUE +
     CISZ(4096) +
     SHR(3) CYLINDERS(125 25) +
           ) +
   DATA    ( +
     NAME('HLQ.SYSTEM.MIG.ADDATA') +
     KEYS(25 0) RECORDSIZE(1000 32000) +
           ) +
   INDEX   ( +
     NAME('HLQ.SYSTEM.MIG.ADINDEX') +
           )
  DEFINE +
   CLUSTER ( +
     NAME('HLQ.SYSTEM.MIG.WS') UNIQUE +
     NONSPANNED +
     SHR(3) CYLINDERS(3 2) +
           ) +
   DATA    ( +
     NAME('HLQ.SYSTEM.MIG.WSDATA') +
     KEYS(10 0) RECORDSIZE(100 32000) +
           ) +
   INDEX   ( +
     NAME('HLQ.SYSTEM.MIG.WSINDEX') +
           )
  DEFINE +
   CLUSTER ( +
     NAME('HLQ.SYSTEM.MIG.RD') UNIQUE +
     NONSPANNED +
     SHR(3) CYLINDERS(10 5) +
           ) +
   DATA    ( +
     NAME('HLQ.SYSTEM.MIG.RDDATA') +
     KEYS(64 0) RECORDSIZE(400 32000) +
           ) +
   INDEX   ( +
     NAME('HLQ.SYSTEM.MIG.RDINDEX') +
           )
  DEFINE +
   CLUSTER ( +
     NAME('HLQ.SYSTEM.MIG.LT') REUSE +
     SPANNED +
     CISZ(4096) +
     SHR(3) CYLINDERS(45 10) +
           ) +
   DATA    ( +
     NAME('HLQ.SYSTEM.MIG.LTDATA') +
     KEYS(28 0) RECORDSIZE(200 131072) +
           ) +
   INDEX   ( +
     NAME('HLQ.SYSTEM.MIG.LTINDEX') +
           )
  DEFINE +
   CLUSTER ( +
     NAME('HLQ.SYSTEM.MIG.LB') REUSE +
     SPANNED +
     CISZ(4096) +
     SHR(3) CYLINDERS(45 10) +
           ) +
   DATA    ( +
     NAME('HLQ.SYSTEM.MIG.LBDATA') +
     KEYS(28 0) RECORDSIZE(200 131072) +
           ) +
   INDEX   ( +
     NAME('HLQ.SYSTEM.MIG.LBINDEX') +
           )
  DEFINE +
   CLUSTER ( +
     NAME('HLQ.SYSTEM.MIG.LD') REUSE +
     SPANNED +
     CISZ(4096) +
     SHR(2) CYLINDERS(45 10) +
           ) +
   DATA    ( +
     NAME('HLQ.SYSTEM.MIG.LDDATA') +
     KEYS(28 0) RECORDSIZE(440 131072) +
           ) +
   INDEX   ( +
     NAME('HLQ.SYSTEM.MIG.LDINDEX') +
           )
  DEFINE +
   CLUSTER ( +
     NAME('HLQ.SYSTEM.MIG.NCP') REUSE +
     NONSPANNED +
     SHR(3) CYLINDERS(40 10) +
           ) +
   DATA    ( +
     NAME('HLQ.SYSTEM.MIG.NCPDATA') +
     KEYS(19 0) RECORDSIZE(200 32000) +
           ) +
   INDEX   ( +
     NAME('HLQ.SYSTEM.MIG.NCPINDEX') +
           )
  DEFINE +
   CLUSTER ( +
     NAME('HLQ.SYSTEM.MIG.CP1') REUSE +
     NONSPANNED +
     SHR(3) CYLINDERS(40 10) +
           ) +
   DATA    ( +
     NAME('HLQ.SYSTEM.MIG.CP1DATA') +
     KEYS(19 0) RECORDSIZE(200 32000) +
           ) +
   INDEX   ( +
     NAME('HLQ.SYSTEM.MIG.CP1INDEX') +
           )
  DEFINE +
   CLUSTER ( +
     NAME('HLQ.SYSTEM.MIG.CP2') REUSE +
     NONSPANNED +
     SHR(3) CYLINDERS(40 10) +
           ) +
   DATA    ( +
     NAME('HLQ.SYSTEM.MIG.CP2DATA') +
     KEYS(19 0) RECORDSIZE(200 32000) +
           ) +
   INDEX   ( +
     NAME('HLQ.SYSTEM.MIG.CP2INDEX') +
           )
  DEFINE +
   CLUSTER ( +
     NAME('HLQ.SYSTEM.MIG.CX') REUSE +
     NONSPANNED +
     SHR(3) CYLINDERS(10 5) +
           ) +
   DATA    ( +
     NAME('HLQ.SYSTEM.MIG.CXDATA') +
     KEYS(64 0) RECORDSIZE(500 32000) +
           ) +
   INDEX   ( +
     NAME('HLQ.SYSTEM.MIG.CXINDEX') +
           )
  DEFINE +
   CLUSTER ( +
     NAME('HLQ.SYSTEM.MIG.NCX') REUSE +
     NONSPANNED +
     SHR(3) CYLINDERS(10 5) +
           ) +
   DATA    ( +
     NAME('HLQ.SYSTEM.MIG.NCXDATA') +
     KEYS(64 0) RECORDSIZE(500 32000) +
           ) +
   INDEX   ( +
     NAME('HLQ.SYSTEM.MIG.NCXINDEX') +
           )
  DEFINE +
   CLUSTER ( +
     NAME('HLQ.SYSTEM.MIG.JS1') REUSE +
     SPANNED +
     CISZ(4096) +
     SHR(3) CYLINDERS(120 25) +
           ) +
   DATA    ( +
     NAME('HLQ.SYSTEM.MIG.JS1DATA') +
     KEYS(28 0) RECORDSIZE(804 180004) +
           ) +
   INDEX   ( +
     NAME('HLQ.SYSTEM.MIG.JS1INDEX') +
           )
  DEFINE +
   CLUSTER ( +
     NAME('HLQ.SYSTEM.MIG.JS2') REUSE +
     SPANNED +
     CISZ(4096) +
     SHR(3) CYLINDERS(120 25) +
           ) +
   DATA    ( +
     NAME('HLQ.SYSTEM.MIG.JS2DATA') +
     KEYS(28 0) RECORDSIZE(804 180004) +
           ) +
   INDEX   ( +
     NAME('HLQ.SYSTEM.MIG.JS2INDEX') +
           )
  DEFINE +
   CLUSTER ( +
     NAME('HLQ.SYSTEM.MIG.SI') UNIQUE +
     NONSPANNED +
     SHR(3) CYLINDERS(10 5) +
           ) +
   DATA    ( +
     NAME('HLQ.SYSTEM.MIG.SIDATA') +
     KEYS(64 0) RECORDSIZE(110 220) +
           ) +
   INDEX   ( +
     NAME('HLQ.SYSTEM.MIG.SIINDEX') +
           )
  DEFINE +
   CLUSTER ( +
     NAME('HLQ.SYSTEM.MIG.OI') UNIQUE +
     NONSPANNED +
     SHR(3) CYLINDERS(5 5) +
           ) +
   DATA    ( +
     NAME('HLQ.SYSTEM.MIG.OIDATA') +
     KEYS(28 0) RECORDSIZE(800 32000) +
           ) +
   INDEX   ( +
     NAME('HLQ.SYSTEM.MIG.OIINDEX') +
           )
/*
//*********************************************************************
//* ALLOCATE THE CHECKPOINT DATA SET IEBGENER IS USED TO MAKE SURE
//* THAT THE ALLOCATED DATA SET HAS AN END OF FILE MARKER IN IT.
//* BLOCKSIZE HAS BEEN EXTENDED TO 8200 AND TRACKS TO 15
//*
//* DDNAME: EQQCKPT                                              õ02A
//*
//*********************************************************************
//ALLOCCK  EXEC PGM=IEBGENER
//*
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DUMMY,DCB=(RECFM=F,BLKSIZE=256)
//SYSUT2   DD DSN=HLQ.SYSTEM.MIG.CKPT,
//         DCB=(RECFM=U,BLKSIZE=8200,DSORG=PS),UNIT=SYSDA,
//         SPACE=(CYL,1,,CONTIG),DISP=(NEW,CATLG)
//SYSIN    DD DUMMY
//*********************************************************************
//* ALLOCATE THE JOB TRACKING DATA SETS. IEBGENER IS USED SO
//* THAT THE ALLOCATED DATA SET HAS AN END OF FILE MARKER IN IT.
//*
//* DDNAMES: EQQJTNN                                             õ02A
//*
//*********************************************************************
//ALLOCJT1 EXEC PGM=IEBGENER
//*
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DUMMY,DCB=(RECFM=U,BLKSIZE=6300)
//SYSUT2   DD DSN=HLQ.SYSTEM.MIG.JT1,
//         DCB=(RECFM=U,BLKSIZE=6300,DSORG=PS),UNIT=SYSDA,
//         SPACE=(CYL,(30,10)),DISP=(NEW,CATLG)
//SYSIN    DD DUMMY
//ALLOCJT2 EXEC PGM=IEBGENER
//*
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DUMMY,DCB=(RECFM=U,BLKSIZE=6300)
//SYSUT2   DD DSN=HLQ.SYSTEM.MIG.JT2,
//         DCB=(RECFM=U,BLKSIZE=6300,DSORG=PS),UNIT=SYSDA,
//         SPACE=(CYL,(30,10)),DISP=(NEW,CATLG)
//SYSIN    DD DUMMY
//ALLOCJT3 EXEC PGM=IEBGENER
//*
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DUMMY,DCB=(RECFM=U,BLKSIZE=6300)
//SYSUT2   DD DSN=HLQ.SYSTEM.MIG.JT3,
//         DCB=(RECFM=U,BLKSIZE=6300,DSORG=PS),UNIT=SYSDA,
//         SPACE=(CYL,(30,10)),DISP=(NEW,CATLG)
//SYSIN    DD DUMMY
//ALLOCJT4 EXEC PGM=IEBGENER
//*
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DUMMY,DCB=(RECFM=U,BLKSIZE=6300)
//SYSUT2   DD DSN=HLQ.SYSTEM.MIG.JT4,
//         DCB=(RECFM=U,BLKSIZE=6300,DSORG=PS),UNIT=SYSDA,
//         SPACE=(CYL,(30,10)),DISP=(NEW,CATLG)
//SYSIN    DD DUMMY
//ALLOCJT5 EXEC PGM=IEBGENER
//*
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DUMMY,DCB=(RECFM=U,BLKSIZE=6300)
//SYSUT2   DD DSN=HLQ.SYSTEM.MIG.JT5,
//         DCB=(RECFM=U,BLKSIZE=6300,DSORG=PS),UNIT=SYSDA,
//         SPACE=(CYL,(30,10)),DISP=(NEW,CATLG)
//SYSIN    DD DUMMY
//*
//ALLOCJD1 EXEC PGM=IEBGENER
//*
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DUMMY,DCB=(RECFM=U,BLKSIZE=6300)
//SYSUT2   DD DSN=HLQ.SYSTEM.MIG.JT1DUAL,
//         DCB=(RECFM=U,BLKSIZE=6300,DSORG=PS),UNIT=SYSDA,
//         SPACE=(CYL,(30,10)),DISP=(NEW,CATLG)
//SYSIN    DD DUMMY
//ALLOCJD2 EXEC PGM=IEBGENER
//*
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DUMMY,DCB=(RECFM=U,BLKSIZE=6300)
//SYSUT2   DD DSN=HLQ.SYSTEM.MIG.JT2DUAL,
//         DCB=(RECFM=U,BLKSIZE=6300,DSORG=PS),UNIT=SYSDA,
//         SPACE=(CYL,(30,10)),DISP=(NEW,CATLG)
//SYSIN    DD DUMMY
//ALLOCJD3 EXEC PGM=IEBGENER
//*
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DUMMY,DCB=(RECFM=U,BLKSIZE=6300)
//SYSUT2   DD DSN=HLQ.SYSTEM.MIG.JT3DUAL,
//         DCB=(RECFM=U,BLKSIZE=6300,DSORG=PS),UNIT=SYSDA,
//         SPACE=(CYL,(30,10)),DISP=(NEW,CATLG)
//SYSIN    DD DUMMY
//ALLOCJD4 EXEC PGM=IEBGENER
//*
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DUMMY,DCB=(RECFM=U,BLKSIZE=6300)
//SYSUT2   DD DSN=HLQ.SYSTEM.MIG.JT4DUAL,
//         DCB=(RECFM=U,BLKSIZE=6300,DSORG=PS),UNIT=SYSDA,
//         SPACE=(CYL,(30,10)),DISP=(NEW,CATLG)
//SYSIN    DD DUMMY
//ALLOCJD5 EXEC PGM=IEBGENER
//*
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DUMMY,DCB=(RECFM=U,BLKSIZE=6300)
//SYSUT2   DD DSN=HLQ.SYSTEM.MIG.JT5DUAL,
//         DCB=(RECFM=U,BLKSIZE=6300,DSORG=PS),UNIT=SYSDA,
//         SPACE=(CYL,(30,10)),DISP=(NEW,CATLG)
//SYSIN    DD DUMMY
//*
//*********************************************************************
//* ALLOCATE EVENT DATA SET. IEBGENER IS USED TO MAKE SURE
//* THAT THE ALLOCATED DATA SET HAS AN END OF FILE MARKER IN IT.
//*********************************************************************
//ALLOCEV  EXEC PGM=IEBGENER
//*
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DUMMY,DCB=(RECFM=F,BLKSIZE=100,LRECL=100)
//SYSUT2   DD DSN=HLQ.SYSTEM.MIG.EV.CONT,UNIT=SYSDA,
//         DCB=(RECFM=F,BLKSIZE=100,LRECL=100,DSORG=PS),
//         SPACE=(CYL,1,,CONTIG),DISP=(NEW,CATLG)
//SYSIN    DD DUMMY
/*
//*********************************************************************
//* ALLOCATE A JOB TRACKING ARCHIVE DATA SET. IEBGENER IS USED SO
//* THAT THE ALLOCATED DATA SET HAS AN END OF FILE MARKER IN IT.
//*
//* DDNAME: EQQJTARC                                             õ02A
//*
//*********************************************************************
//ALLOCARC EXEC PGM=IEBGENER
//*
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DUMMY,DCB=(RECFM=U,BLKSIZE=6300)
//SYSUT2   DD DSN=HLQ.SYSTEM.MIG.JTARC,
//         DCB=(RECFM=U,BLKSIZE=6300,DSORG=PS),UNIT=SYSDA,
//         SPACE=(CYL,(150,30)),DISP=(NEW,CATLG)
//SYSIN    DD DUMMY
/*
//*
//*********************************************************************
//* ALLOCATE INCIDENT LOG DATA SET (USED WITH JCC)
//* IEBGENER IS USED TO ALLOCATE DATA SET
//*********************************************************************
//ALLOCINC EXEC PGM=IEBGENER
//*
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD *
/*
//SYSUT2   DD DSN=HLQ.SYSTEM.MIG.INCLOG,UNIT=SYSDA,
//         DCB=(RECFM=FB,BLKSIZE=3120,LRECL=80),
//         SPACE=(CYL,(2,2)),DISP=(NEW,CATLG)
//SYSIN    DD DUMMY
/*
//*
//*********************************************************************
//* ALLOCATE THE SYSDUMPB FILE USED IN DAILY PLAN BATCH
//* IEFBR14 IS USED TO ALLOCATE DATA SET
//*
//* DDNAME: SYSDUMPB                                             õ02A
//*
//*********************************************************************
//ALLOCDMP EXEC PGM=IEFBR14
//*
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DSN=HLQ.SYSTEM.MIG.SYSDUMPB,
//         DCB=(RECFM=F,BLKSIZE=4160,LRECL=4160,DSORG=PS),
//         UNIT=SYSDA,SPACE=(CYL,20),DISP=(NEW,CATLG)
//*
//*********************************************************************
//* ALLOCATE THE SYSMDUMP FILE USED IN DAILY PLAN BATCH
//* IEFBR14 IS USED TO ALLOCATE DATA SET
//*
//* DDNAME: SYSMDUMP                                             õ02A
//*
//*********************************************************************
//ALLOCDMP EXEC PGM=IEFBR14
//*
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DSN=HLQ.SYSTEM.MIG.SYSMDUMP.CONT,
//         DCB=(RECFM=F,BLKSIZE=4160,LRECL=4160,DSORG=PS),
//         UNIT=SYSDA,SPACE=(CYL,20),DISP=(NEW,CATLG)
//*
//*********************************************************************
//* ALLOCATE THE   OPC   DIAGNOSTIC MESSAGE AND TRACE DATASET
//* IEBGENER IS USED TO ALLOCATE THE DATA SET
//* ADDED 91/12/16 FOR PN10173 CHNG FLAG 6O
//* NOTE: THE DATASET IS ONLY REFERENCED BY THE DIALOG USERS
//*
//* DDNAME: EQQDMSG                                              õ02A
//*
//*********************************************************************
//ALLOCMLG EXEC PGM=IEBGENER
//*
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DUMMY,DCB=(RECFM=F,BLKSIZE=820,LRECL=820)
//SYSUT2   DD DSN=HLQ.SYSTEM.MIG.EQQDMSG,UNIT=SYSDA,
//         DCB=(RECFM=VBA,BLKSIZE=3120,LRECL=84,DSORG=PS),
//         SPACE=(CYL,(1,1)),DISP=(NEW,CATLG)
//SYSIN    DD DUMMY
/*