//VIT902E JOB (111400000),                                              JOB00133
//      'ENDEVOR JOB',MSGLEVEL=(1,1),CLASS=B,REGION=0M,MSGCLASS=A,
//      NOTIFY=&SYSUID
//*-------------------------------------------------------------------
//*   Report elements that are Backed out
//*   VIT902.JCL.CSV(CSVALELM)
//*-------------------------------------------------------------------
//*   STEP 1 -- EXECUTE CSV UTILITY
//*-------------------------------------------------------------------
//STEP1    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 ELEMENT
'*'
     FROM ENVIRONMENT  SMPLTEST  SYSTEM  '*' SUBSYSTEM '*'
          TYPE  '*'
          STAGE NUMBER '*'
     TO DDNAME 'TABLE'
     OPTIONS   SEARCH   RETURN ALL   PATH PHYSICAL .
//TABLE    DD DSN=&&EXTRACTM,
//      DCB=(RECFM=FB,LRECL=1800,BLKSIZE=9000,DSORG=PS),
//      DISP=(MOD,PASS),
//      SPACE=(CYL,(5,5),RLSE)
//C1MSGS1  DD SYSOUT=*
//BSTERR   DD SYSOUT=*
//*--------------------------------------------------------------------
//SHOWME  EXEC PGM=IEBGENER,REGION=1024K
//SYSPRINT  DD SYSOUT=*                           MESSAGES
//SYSUT1   DD  DSN=&&EXTRACTM,DISP=(OLD,PASS)
//SYSUT2    DD SYSOUT=*                           OUTPUT FILE
//SYSIN    DD DUMMY                               CONTROL STATEMENTS
//SYSUDUMP DD SYSOUT=*
//
//*--------------------------------------------------------------------
//*-- Read CSV file of Endevor Element information --------------------
//*--------------------------------------------------------------------
//TEST003  EXEC PGM=IRXJCL,PARM='ENBPIU00 A',COND=(4,LT)
//SYSEXEC  DD DISP=SHR,DSN=CAIEDUC.NDVR.V181.CSIQCLS0
//TABLE    DD  DSN=&&EXTRACTM,DISP=(OLD,DELETE)
//MODEL    DD *
 ELM_NAME &ELM_NAME is backed out in Package &PKG_ID_@S@
          from: &ENV_NAME &SYS_NAME &SBS_NAME &TYPE_NAME
          Lastaction: &LAST_ACT_DATE &LAST_ACT_TIME
//OPTIONS  DD *
  $Table_Type = "CSV"
  If BACKED_OUT_@O@ /= 'Y' then $SkipRow = 'Y'
//TBLOUT   DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DISPLAYS DD SYSOUT=*
//SYSTSIN  DD DUMMY
//*--------------------------------------------------------------------