EVAL is an EDMS data base set pointer validation and repair
utility.  It is a five step process.  Four separate streams of
canned JCL are available.  The streams are identified by the suffix.
The job EVAL_BA3T will use scratch tapes instead of disk for
sorting.  EVAL_BA1P and EVAL_BA2P will access the schema and
the data base using a private pack.

Step 1.  Convert an EDMS schema into a FORTRAN readable file.

          !BATCH EVAL_BA1.:CONVERT SNAME=source-schemaname

               or if the schema is on a private pack

          !BATCH EVAL_BA1P.:CONVERT SNAME=source-schemaname,;
          $ SPACK=source-schemapack-name


Step 2.  Extract all set pointer information into two files.

          !BATCH EVAL_BA2.:CONVERT ;
          $ DB1=area-name-1,;
          $ ... ,;
          $ DB10=area-name-10

              or if the data base is on a private pack

          !BATCH EVAL_BA2P.:CONVERT ;
          $ DBPACK=data-base-pack-name,;
          $ DB1=area-name-1,;
          $ ... ,;
          $ DB10=area-name-10

Step 3.  Sort the PT file.

          !BATCH EVAL_BA3.:CONVERT ;

               or

          !BATCH EVAL_BA3T.:CONVERT ;
          $'REEL1'='scratch-tape-1',;
          $'REEL2'='scratch-tape-2',;
          $'REEL3'='scratch-tape-3'


Step 4.  Report all bad set pointers for automatic sets.

          !BATCH EVAL_BA4

Step 5.  Repair broken chains interactively.

     SET F:11 thru F:20 to data base areas as needed.
!REPAIR.:CONVERT

Interactively repair the data base.

enough, the maximum counts may be EDITed in EVAL_IN01.:CONVERT
on line 9 and the entire EVAL tool can be re-compiled by
batching EVAL_CL.:CONVERT. Compilation requires ANS FORTRAN C00
and the associated H00 library. The supplied run units use the
unshared library.

You may want to use IDDP.X (and QSP.X) to interactively
walk sets, print records and erase records.  Use HELP.X
for more information.

You may want to count the number of records by type
by running SPACE.X.  Use HELP.X for more information.

