PGM        PARM(&FILE &LIB)

             DCL        VAR(&FILE) TYPE(*CHAR) LEN(10)
             DCL        VAR(&LIB) TYPE(*CHAR) LEN(10)

  /*  Reset statistics. */
             WRKDSKSTS  OUTPUT(*PRINT) RESET(*YES)
             DLTSPLF    FILE(QPWCDSKS) SPLNBR(*LAST)

  /*  Override file with file specified in parms. */
             OVRDBF     FILE(IN) TOFILE(&LIB/&FILE) SECURE(*YES) +
                          SEQONLY(*NO)

  /*  Call DSPFILDST0 to read every record in file. */
             CALL       PGM(DSPFILDST0)

  /*  Print report. The "Read Rqs" column will give a good +
      indication of the file distribution. +
  */
             WRKDSKSTS  OUTPUT(*PRINT) RESET(*NO)

  /*  Cleanup. */
             DLTOVR     FILE(IN)

 ENDPGM