Batch Job to Eject Cartridge(s)

[Art]

I was reading in IBM TS3500 Tape Library with System Z Attachment: A
practical Guide to TS1120 Tape Drives and TS3500 Tape Automation? page
382 section 13.8.1 that a Batch Job could be used to Eject tapes from the
ATL.
But I could not find an example of the JCL.
I have searched several of the IBM Redbooks and can not find one.
Would anyone happen to know what Redbook I can find an example? Or supply
me with the jcl.

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to list...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

[Art]

I didn't mention (in origianl question) the command that the manual mentioned
that could be used in a Batch job.. LIBRARY EJECT,volser.

[Mike Wood]

Art,
Seems there could be a list of ways you could do this .....
1. DFSMSrmm - run RMM CV volser EJECT command in batch TMP
2. From rexx, use the console interface to issue the operator LIBRARY EJECT
command
3. Look at the sample (SAMPLIB) CBRSPLCS - it is a ready written program
that processes an input file containing commands such as E for EJECT; it was
provided by OAM to show how the CBRXLCS macro interface could be used to
drive system managed tape events, but can be used ASIS.
4. In z/OS V1.9 rmm ships a EDGSPLCS that is now fully documented and
supported that amongst other things can do what CBRSPLCS does.

Mike Wood RMM Development

On Wed, 5 Dec 2007 05:34:14 -0600, Art <AA...@USA.NET> wrote:

>I was reading in IBM TS3500 Tape Library with System Z Attachment: A
>practical Guide to TS1120 Tape Drives and TS3500 Tape Automation? page
>382 section 13.8.1 that a Batch Job could be used to Eject tapes from the
>ATL.
>But I could not find an example of the JCL.
>I have searched several of the IBM Redbooks and can not find one.
>Would anyone happen to know what Redbook I can find an example? Or
supply
>me with the jcl.

----------------------------------------------------------------------

[Mark Pace]

Art -
Here is the JCL that I use to eject volumes from our ATL.

//REMOVEV EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
//* REMOVE A VOLUME FROM THE ATL & RMM
RMM DV xxxxxx FORCE EJECT

--
Mark Pace
Mainline Information Systems

[Arturo]

Thank you all for your suggestions/recommendations.
I used this suggestion.
//JOBNAMEX JOB 'EJECT CART ',MSGCLASS=Q,NOTIFY=&SYSUID,
// MSGLEVEL=(1,1),CLASS=A
//ARTRMM EXEC PGM=IKJEFT01,REGION=0M,DYNAMNBR=10

//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *

RMM CV XXXXXX EJECT(CONVENIENCE)
/*

CV = Change Volume

Thank you for the example.