Chris,
        This depends on how much trouble you want to go to...   the easy way is
to pipe the output from a Q VOL F=D to a file and calculate MB of data
on each tape based upon percent utilized multiplied by estimated
capacity, then sort the list..  However, this doesn't account for tapes
where files span volumes so you'll end up calling for tapes that weren't
pulled.   To account for that takes some additional steps....

1) Generate the report based upon the number of MB  on each tape
(percent utilized * estimated capacity).

2) Take all the tapes under a certain threshold (I used 40 MB as the
cutoff point), and generate ADSM macros to do a Q CONT <volser> COUNT=1
F=D and a Q CONT COUNT=-1 F=D, piping the output to 2 separate files.

3) Merge the 2 files by VOLSER, then check for VOLSERs with a first and
last file segment number equal to '1/1'   (otherwise either the first or
last file spans tapes).

4)  If both the first and last file segment numbers were equal to '1/1',
 the tape would be eligible for processing so write it to a report file
and also generate the MOVE DATA commands.

I used to go to the trouble of doing Q CONT on the first and last file
of every ADSM tape, then determining how the volumes were chained
together but, with the number of tapes we had, this would run for well
over 4 hours so I gave up on this quickly.

This does sound a bit kludgy (actually it was - took about 16 or 17
steps if I remember correctly and ran about 20-30 minutes) but it ran
fine in production for over 2 years prior to migrating ADSM off of MVS
and it kept our operators happy enought not to carry thru on their
various threats of bodily harm because of "all of those <fill in the
your own expletive here> ADSM tape mounts".  This was all done using
some basic utilities (SAS, DFSort, IEBGENER, etc.) so, if you have SAS
available on your system I'd be more than happy to forward the JCL and
SAS code to you.


Tim Pittson
tpittson AT himail.hcc DOT com
>----------
>From:  Chris Zerr[SMTP:CZERR AT CO.PIERCE.WA DOT US]
>Sent:  Friday, March 14, 1997 11:06 AM
>To:    ADSM-L AT VM.MARIST DOT EDU
>Subject:       Re: Questions on Tape Reclamation -Reply
>
>How do you generate the Pull List???
>
>>>> "Pittson, Timothy ,HiServ/US" <tpittson AT HIMAIL.HCC DOT COM>
>03/14/97 06:48am >>>
>
>2)  Instead of reclaim, use MOVE DATA to move your least full
>tapes back
>to disk storagepools - we had a lot of success with this... I used
>to
>generate a tape pulllist for the operators of the least full tapes,
>then
>would use an ADSM macro to issue the MOVE DATA commands.
> This worked
>out well as we'd be able to process 60-90 tapes in an hour using
>6-8
>concurrent move processes.  You could try doing this one day a
>week to
>clear off the least full tapes (i.e. < 25-30 MB used), then use the
>reclaim method the other 2 days of the week.
>
>Tim Pittson
>tpittson AT himail.hcc DOT com
>