//CRLC31R3 JOB (000),'DAVE HARDING',
//         CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID
//*
//********************************************************************
//*  RESET SMPLTEST AND SMPLPROD BEFORE THE ADMIN 200 CLASS          *
//*  JOB3 - DELETE ALL TYPES                                         *
//********************************************************************
//*
//********************************************************************
//*  CSV UTILITY TO BUILD A LIST OF TARGET TYPES
//********************************************************************
//JSTEP05  EXEC PGM=NDVRC1,REGION=4M,
//         PARM='BC1PCSV0'
//STEPLIB  DD DISP=SHR,DSN=CAIEDUC.NDVR.V181.CSIQAUTU
//         DD DISP=SHR,DSN=CAIEDUC.NDVR.V181.CSIQAUTH
//         DD DISP=SHR,DSN=CAIEDUC.NDVR.V181.CSIQLOAD
//CONLIB   DD DISP=SHR,DSN=CAIEDUC.NDVR.V181.CSIQLOAD
//BSTIPT01 DD *
LIST TYPE *
     FROM ENV SMPLTEST SYS FINANCE STA NUM 1
     TO DDNAME TABLE .
LIST TYPE *
     FROM ENV SMPLPROD SYS FINANCE STA NUM 1
     TO DDNAME TABLE .
LIST TYPE *
     FROM ENV SMPLTEST SYS CRLC3* STA NUM 1
     TO DDNAME TABLE .
LIST TYPE *
     FROM ENV SMPLPROD SYS CRLC3* STA NUM 1
     TO DDNAME TABLE .
LIST TYPE *
     FROM ENV SMPLTEST SYS CRLC4* STA NUM 1
     TO DDNAME TABLE .
LIST TYPE *
     FROM ENV SMPLPROD SYS CRLC4* STA NUM 1
     TO DDNAME TABLE .
LIST TYPE *
     FROM ENV SMPLPROD SYS ADMINT STA NUM 1
     TO DDNAME TABLE .
LIST TYPE *
     FROM ENV SMPLPROD SYS ADMIN STA NUM 1
     TO DDNAME TABLE .
LIST TYPE *
     FROM ENV SMPLTEST SYS FINANCE STA NUM 2
     TO DDNAME TABLE .
LIST TYPE *
     FROM ENV SMPLPROD SYS FINANCE STA NUM 2
     TO DDNAME TABLE .
LIST TYPE *
     FROM ENV SMPLTEST SYS CRLC3* STA NUM 2
     TO DDNAME TABLE .
LIST TYPE *
     FROM ENV SMPLPROD SYS CRLC3* STA NUM 2
     TO DDNAME TABLE .
LIST TYPE *
     FROM ENV SMPLTEST SYS CRLC4* STA NUM 2
     TO DDNAME TABLE .
LIST TYPE *
     FROM ENV SMPLPROD SYS CRLC4* STA NUM 2
     TO DDNAME TABLE .
LIST TYPE *
     FROM ENV SMPLPROD SYS ADMINT STA NUM 2
     TO DDNAME TABLE .
LIST TYPE *
     FROM ENV SMPLPROD SYS ADMIN  STA NUM 2
     TO DDNAME TABLE .
//TABLE    DD DSN=&&EXTTYPE,
//      DCB=(RECFM=FB,LRECL=2000,BLKSIZE=18000,DSORG=PS),
//      DISP=(MOD,PASS),
//      SPACE=(CYL,(25,25),RLSE)
//C1MSGS1  DD SYSOUT=*
//BSTERR   DD SYSOUT=*
//*
//*--------------------------------------------------------------------
//SHOWME1  EXEC PGM=IEBGENER,REGION=1024K
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DSN=&&EXTTYPE,DISP=(OLD,PASS)
//SYSUT2   DD SYSOUT=*
//SYSIN    DD DUMMY
//SYSUDUMP DD SYSOUT=*
//*
//*--------------------------------------------------------------------
//* Table Tool - create BATCH ADMIN 'DELETE' SCL                      -
//*
//* DELETE TYPE XXXXXXXXX
//*     FROM ENV XXXXXXXXX SYS XXXXXXXX STAGE NUM X .
//*--------------------------------------------------------------------
//JSTEP10  EXEC PGM=IRXJCL,PARM='ENBPIU00 A',COND=(4,LT)
//SYSEXEC  DD DISP=SHR,DSN=CAIEDUC.NDVR.V181.CSIQCLS0
//TABLE    DD  DSN=&&EXTTYPE,DISP=(OLD,DELETE)
//MODEL    DD *
&src1
&src2
//OPTIONS  DD *
  $Table_Type = "CSV"
  IF SITE_ID               = 'SITE ID' THEN $SkipRow = 'Y'
  IF SUBSTR(SYS_NAME,1,7)  = 'ADMINGD' THEN $SkipRow = 'Y'
  IF SYS_NAME = 'FINANCE' & TYPE_NAME = 'PARM'     THEN $SkipRow = 'Y'
  IF SYS_NAME = 'FINANCE' & TYPE_NAME = 'MACRO'    THEN $SkipRow = 'Y'
  IF SYS_NAME = 'FINANCE' & TYPE_NAME = 'COPY'     THEN $SkipRow = 'Y'
  IF SYS_NAME = 'FINANCE' & TYPE_NAME = 'ASM'      THEN $SkipRow = 'Y'
  IF SYS_NAME = 'FINANCE' & TYPE_NAME = 'COBOL'    THEN $SkipRow = 'Y'
  IF SYS_NAME = 'FINANCE' & TYPE_NAME = 'EXE'      THEN $SkipRow = 'Y'
  IF SYS_NAME = 'FINANCE' & TYPE_NAME = 'LINKCARD' THEN $SkipRow = 'Y'
  IF SYS_NAME = 'FINANCE' & TYPE_NAME = 'LOAD'     THEN $SkipRow = 'Y'
  IF SYS_NAME = 'FINANCE' & TYPE_NAME = 'JAVA'     THEN $SkipRow = 'Y'
  IF SYS_NAME = 'FINANCE' & TYPE_NAME = 'OPTIONS'  THEN $SkipRow = 'Y'
  IF SYS_NAME = 'FINANCE' & TYPE_NAME = 'SANDBOX'  THEN $SkipRow = 'Y'
  IF SYS_NAME = 'ADMIN'   & TYPE_NAME = 'PROCESS'  THEN $SkipRow = 'Y'
  IF SYS_NAME = 'ADMINT'  & TYPE_NAME = 'PROCESS'  THEN $SkipRow = 'Y'
  src1  = 'DELETE TYPE' TYPE_NAME
  src2a = '  FROM ENV' ENV_NAME 'SYS' SYS_NAME
  src2b = 'STAGE NUM' STG_# '.'
  src2  = src2a src2b
//TBLOUT   DD DSN=&&BATYPE,DISP=(,PASS),SPACE=(CYL,(5,5),RLSE),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=0,DSORG=PS)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DISPLAYS DD SYSOUT=*
//SYSTSIN  DD DUMMY
//*
//*--------------------------------------------------------------------
//* DISPLAY DELETE SCL                                                -
//*--------------------------------------------------------------------
//JSTEP15  EXEC PGM=IEBGENER,REGION=1024K
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DSN=&&BATYPE,DISP=(OLD,PASS)
//SYSUT2   DD SYSOUT=*
//SYSIN    DD DUMMY
//SYSUDUMP DD SYSOUT=*
//*
//*********************************************************************
//*     ENDEVOR BATCH ADMIN ENBE1000
//*********************************************************************
//JSTEP20  EXEC PGM=NDVRC1,DYNAMNBR=1500,REGION=4096K,
//    PARM='ENBE1000'
//STEPLIB DD DISP=SHR,DSN=CAIEDUC.NDVR.VITALITY.CSIQAUTU
//        DD DISP=SHR,DSN=CAIEDUC.NDVR.V181.CSIQAUTU
//        DD DISP=SHR,DSN=CAIEDUC.NDVR.V181.CSIQAUTH
//        DD DISP=SHR,DSN=CAIEDUC.NDVR.V181.CSIQLOAD
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SORTWK01 DD UNIT=DISK,SPACE=(CYL,(2,1))
//SSN$XXXX DD DUMMY
//SORTWK02 DD UNIT=DISK,SPACE=(CYL,(2,1))
//SORTWK03 DD UNIT=DISK,SPACE=(CYL,(2,1))
//SORTWK04 DD UNIT=DISK,SPACE=(CYL,(2,1))
//C1TPDD01 DD UNIT=DISK,SPACE=(CYL,3),
//         DCB=(RECFM=VB,LRECL=260,BLKSIZE=6160)
//C1TPDD02 DD UNIT=DISK,SPACE=(CYL,5),
//         DCB=(RECFM=VB,LRECL=260,BLKSIZE=6160)
//C1TPLSIN DD UNIT=DISK,SPACE=(CYL,5),
//         DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//C1TPLSOU DD UNIT=DISK,SPACE=(CYL,5)
//C1PLMSGS DD SYSOUT=*
//C1MSGS1  DD SYSOUT=*
//C1MSGS2  DD SYSOUT=*
//C1PRMNT  DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171)
//SYSOUT   DD SYSOUT=*
//ENESCLIN DD DSN=&&BATYPE,DISP=(OLD,DELETE)
//*