//*
//* testé avec syncsort
//*    devrait être ok avec dfsort
//*
//DCOLLECT EXEC  PGM=IDCAMS
//SYSPRINT DD  SYSOUT=*
//SORTIE   DD  DSN=Le.Fichier,
//             DISP=(NEW,CATLG,DELETE),
//             SPACE=(CYL,(90,90),RLSE),
//             DCB=(LRECL=999,RECFM=VB)
//SYSIN    DD  *
 DCOLLECT OUTFILE(SORTIE) VOLUME(BATC*)
/*
//* Le fichier en sortie est facilement 
//* intégrable dans excel
//*   alloc est en kb
//*   lstrf (last-ref-date est sous la forme aaaa/qqqq
//*
//REPORT   EXEC PGM=SORT
//SYSOUT   DD   SYSOUT=*
//DFSMSG   DD   SYSOUT=*
//REPORT   DD   SYSOUT=*
//SORTIN   DD   DISP=OLD,DSN=Le.Fichier
   SORT FIELDS=(29,44,CH,A)
   INCLUDE COND=(09,2,CH,EQ,C'D ')
   OUTFIL FNAMES=REPORT,
          HEADER1=(2:'DSNAME',
            50:'   NBVOL',
            60:'LSTRF',
            70:'     ALLOC'),
          SECTIONS=(29,44,SKIP=0L,
          TRAILER3=(2:29,44,
            50:COUNT,
            60:MAX=(117,4,PD,EDIT=(TTTT/TTT)),
            70:TOT=(93,4,FI))),
            NODETAIL
/*