//*
//*
//STEP1    EXEC PGM=SYNCTOOL
//DFSMSG   DD   SYSOUT=*
//TOOLMSG  DD   SYSOUT=*
//INDD     DD  DISP=SHR,DSN=alias.TEMP.DCOLLECT
//OUTDD1   DD   DSN=&&TEMP1,DISP=(NEW,PASS),
//         LIKE=alias.TEMP.DCOLLECT
//OUTDD2   DD   DSN=&&TEMP2,DISP=(NEW,PASS),
//         LIKE=alias.TEMP.DCOLLECT
//REPORT1  DD   SYSOUT=*
//REPORT2  DD   SYSOUT=*
//TOOLIN   DD *
*
*  EXTRACTION DES VSAM TYPE 'D '
*
   COPY FROM(INDD) TO(OUTDD1) USING(CPY1) 
*
   DISPLAY FROM(OUTDD1) LIST(REPORT1) -
    BLANK -
    TITLE('RECAP PAR ALIAS (4C)') -
    DATE TIME PAGE -
    HEADER('ALIAS')              ON(29,4,CH) -
    HEADER('DCDALLSP(KB)')       ON(93,04,BI) -
    TOTAL('TOTAL') 
*
   COPY FROM(INDD) TO(OUTDD2) USING(CPY2)
*
   DISPLAY FROM(OUTDD2) LIST(REPORT2) -
    BLANK -
    TITLE('RECAP PAR QUALIFIEUR') -
    DATE TIME PAGE -
    HEADER('QUALIFIEUR')         ON(34,8,CH) -
    HEADER('DCDALLSP(KB)')       ON(93,04,BI) -
    TOTAL('TOTAL')
//CPY1CNTL DD *
   SORT FIELDS=(29,4,CH,A)
   SUM FIELDS=(93,4,BI)
   INCLUDE COND=(09,2,CH,EQ,C'D ',
             AND,33,1,CH,EQ,C'.')
/*
//CPY2CNTL DD *
   SORT FIELDS=(34,8,CH,A)
   SUM FIELDS=(93,4,BI)
   INCLUDE COND=(09,2,CH,EQ,C'D ',
             AND,33,1,CH,EQ,C'.',
             AND,42,1,CH,EQ,C'.')
/*