We recently replaced our 3590-B1A tape drives 3590-H1A units in our 3494
tape library. Now when ever I insert a private tape into the library I have
to go to RMM and set the Attribute to RDCOMPAT. I would like avoid this and
tried to find a way to do that via CBRUXENT exit.
I found a sample in OAM guide, CBRSPUXE, that with a little adjust should do
what I need. So I made my changes, assembled and linked it into
SYS1.LINKLIB. Now when I enter a new tape into the library I can find it
with ISMF, but it's not showing up in RMM. Below is my part of the code.
* PRESET RETURN CODE ZERO *
LA R9,UXENOCHG ENTER CARTRIDGE WITHOUT CHANGE
* CHECK FOR A PREVIOUSLY UNKNOWN VOLUME. *
ENT1000 DS 0H
CLC UXECREAT,=CL10' ' BLANK RECORD CREATION DATE?
BNE EXIT NO. RECORD ALREADY EXISTED
* VOLUME RECORD CHANGED
CLI UXEUSEA,UXESCRT SCRATCH USE ATTRIBUTE?
BE EXIT YES. RETURN TO CALLER
ENT1100 DS 0H
CLI UXEMEDIA,UXEMED3 MEDIA TYPE MEDIA3?
BNE EXIT NO. RETURN TO CALLER
LA R9,UXECHG ALLOW CARTRIDGE ENTRY WITH TAPE
MVI UXESPEC,UXERDCOM SET READ-COMPATIBLE ATTRIBUTE
B EXIT RETURN TO CALLER
--
Mark Pace
Mainline Information Systems
----------------------------------------------------------------------
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
