ADSM-L

Re: Tape expiration

1996-04-23 09:46:13
Subject: Re: Tape expiration
From: "Andrew M. Raibeck" <araibeck AT VNET.IBM DOT COM>
Date: Tue, 23 Apr 1996 06:46:13 PDT
Jane Dagostino-Snyder had a question on setting up ADSM to work with TMS (how
to release tapes back to TMS when ADSM is done with them).

Here is a little more detailed information on the tape deletion exit. Sorry if
this is a repeat - I tried to post it yesterday morning and never saw it.

Jane, have you set up a tape deletion exit for ADSM to invoke? You have to do
a couple of things:

   1) Customize a tape deletion exit for ADSM to use. There are a couple of
      options here:
         a) If you use DFHSM or DFSMShsm in your MVS shop, there is probably
            an ARCTVEXT exit already in place that performs the function you
            need. It is entirely possible that ADSM can use this exit 'as is'
            since it can be fairly generic. However you should verify this with
            whoever maintains it in your shop.
         b) If you need to set up a new exit, I believe that CA-1 provides a
            sample exit called TMSTMSTV. You will need to customize it for your
            shop. The exit must be in the LINKLIST.
   2) Make sure that when ADSM uses a scratch tape, it is flagged as
      'externally managed'. After ADSM has written to the tape, a CA-1 inquiry
      against the tape should show that FLAG3 is set to EDM (I think it's
      X'20'). Look in your CA-1 documentation for setting up externally managed
      media.
   3) Code the DELETIONEXIT option in the ADSM server options file. Remember
      you will need to shut down and restart the server in order for the change
      to take effect. It has the form of 'DELETIONEXIT <exitname>' where
      <exitname> is the name of the tape volume exit you set up (i.e. ARCTVEXT,
      etc.).

When ADSM deletes a tape from its inventory (as in the scenario you described)
it will invoke the tape deletion exit, which will expire the tape.

Hope this helps,

Andy Raibeck
ADSM Level 2 Support
408-256-0130
<Prev in Thread] Current Thread [Next in Thread>