> -----Original Message-----
> From: IBM Mainframe Discussion List
> [mailto:[EMAIL PROTECTED] On Behalf Of Morris, Carey
> Sent: Tuesday, February 20, 2007 11:49 AM
> To: [email protected]
> Subject: 3949 ATL management
>
> We have a fairly new 3494 ATL that is about to run out of empty tape
> slots. To make room for more scratch tapes, I'd like to eject some of
> the older lesser used tapes. Is there a utility or command
> to simplify
> or automate this process? Does anyone have any other suggestions for
> insuring plenty of slots for scratch tapes? We're using CA-1 if that
> makes a difference.
>
> Thanks,
>
> Carey Morris
>
> City of Fort Worth
I have a small routine that automatically EJECTs tapes from our ATL
which are to be sent off-site. It is very simple, written in DFSORT
control cards! Its input is the output from the CA-1 TMSVAULT program.
It finds and ejects all tapes which are outcoded to the vaults in
question. It does its thing by sending commands out via the INTRDR, so
your internal readers must be set up to allow that.
//EJECT EXEC PGM=SORT,COND=(0,NE,EARL)
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=OPHTN.TMSVAULT.OUTPUT
//SORTOUT DD SYSOUT=(*,INTRDR),
// RECFM=FB,LRECL=80,BLKSIZE=80,DSORG=PS
//SYSIN DD *
OPTION VLSHRT
SORT FIELDS=COPY
INCLUDE COND=(2,1,CH,EQ,C'1',AND,
(56,4,CH,EQ,C'ODRP',OR,
56,4,CH,EQ,C'LTRM',OR,
56,4,CH,EQ,C'ODRD'))
OUTREC FIELDS=(C'/*$VS,''LIBRARY EJECT,',2,6,C'''')
/*
What you'd need to do is perhaps write an EARL program which looks at
the LAST-USED date in CA-1 and have it write the "/*$VS,..." commands
out to the INTRDR. Or, what I'd do, is have TMSVAULT send all "not
recently used" tapes to an on-site vault and then use the above. You may
need to adjust the COND portion, depending on the release of CA-1
involved.
--
John McKown
Senior Systems Programmer
HealthMarkets
Keeping the Promise of Affordable Coverage
Administrative Services Group
Information Technology
The information contained in this e-mail message may be privileged
and/or confidential. It is for intended addressee(s) only. If you are
not the intended recipient, you are hereby notified that any disclosure,
reproduction, distribution or other use of this communication is
strictly prohibited and could, in certain circumstances, be a criminal
offense. If you have received this e-mail in error, please notify the
sender by reply and delete this message without copying or disclosing
it.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
