//******************************************************************
//* DETECT ERREURS
//******************************************************************
//SYM   EXEC  PGM=ICETOOL,REGION=1024K
//DFSMSG   DD SYSOUT=*
//TOOLMSG  DD SYSOUT=*
//SYMNAMES DD DSN=pds.SYMBOLS(HEADER),DISP=SHR
//         DD DSN=pds.SYMBOLS(TYPEV),DISP=SHR
//         DD DSN=pds.SYMBOLS(TYPED),DISP=SHR
//         DD DSN=pds.SYMBOLS(TYPEC),DISP=SHR
//INDD     DD DSN=alias.TEMP.DCOLLECT,DISP=OLD
//OUTDD1   DD  DSN=&&TEMP1,DISP=(NEW,PASS),
//         LIKE=alias.TEMP.DCOLLECT
//OUTDD2   DD  DSN=&&TEMP2,DISP=(NEW,PASS),
//         LIKE=alias.TEMP.DCOLLECT
//RPT1     DD  SYSOUT=*
//TOOLIN   DD  *
*
*  TYPE 'D' TYPE RECORDS AVEC ERRORS
*
   COPY FROM(INDD) TO(OUTDD1) USING(CPY1)
*
 DISPLAY FROM(OUTDD1) LIST(RPT1) -
  BLANK -
  TITLE('FICHIERS EN ERREURS') -
  DATE TIME PAGE -
  HEADER('DATA SET NAME') ON(DCDDSNAM) -
  HEADER('VOLSER')        ON(DCDVOLSR) -
  HEADER('DCDERROR')      ON(DCDERROR,HEX) -
  HEADER('DCDFLAG1')      ON(DCDFLAG1,HEX) -
  HEADER('DCDFLAG2')      ON(DCDFLAG2,HEX) 
*
*  TYPE 'V' TYPE RECORDS AVEC ERRORS
*
   COPY FROM(INDD) TO(OUTDD2) USING(CPY2)
*
 DISPLAY FROM(OUTDD2) LIST(RPT1) -
  BLANK -
  TITLE('VOLSER EN ERREURS') -
  DATE TIME PAGE -
  HEADER('VOLSER')        ON(DCVVOLSR) -
  HEADER('DCDVRROR')      ON(DCCERROR,HEX) -
  HEADER('FLAG1 ')        ON(DCVFLAG1,HEX)
//CPY1CNTL DD *
 INCLUDE COND=(DCURCTYP,EQ,DCUDATAT,
          AND,29,11,CH,NE,C'SYS1.VTOCIX.',
          AND,(DCDERROR,EQ,DCDEMNGD,
            OR,DCDERROR,EQ,DCDEDVVR,
            OR,DCDERROR,EQ,DCDNOSPC,
            OR,DCDERROR,EQ,DCDVSAMI,
            OR,DCDERROR,EQ,DCDNOFM1,
            OR,(DCDFLAG2,EQ,DCDNOVVR,AND,
                DCDFLAG1,EQ,DCDSMSM),
            OR,(DCDFLAG2,EQ,DCDNOVVR,AND,
                DCDDSOR1,EQ,DCDDSGVS)))
/*
//CPY2CNTL DD *
 INCLUDE COND=(DCURCTYP,EQ,DCUVULUT,
          AND,(DCVERROR,EQ,DCVEVLCP,
            OR,DCVERROR,EQ,DCVEBYTK,
            OR,DCVERROR,EQ,DCVELSPC,
            OR,DCVFLAG1,NE,DCVINXEX,
            OR,DCVFLAG1,NE,DCVINXEN))
/*