Esmie,

Glad you got it taken care of. It is always a problem when you simply change
the expiration date for EDM-controlled volumes. The reason for the extra
check (and why we were not scratching the tape) is that it was NOT the EDM
(HPDM) that told us to expire the tape. So until we know that the EDM that
created the file is really done with it, we will not scratch it.

Why was it necessary to use TMSUPDTE to change the expiration date for this
volume (and the others)? Doesn't HPDM call ARCTVEXT to expire their tapes?

Russell Witt
CA 1 L2 Support Manager

-----Original Message-----
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu]on
Behalf Of esmie moo
Sent: Thursday, September 24, 2009 8:01 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: CA-1 QUESTION : TAPE DOES NOT EXPIRE


Darth,
 
I did an inquiry on a tape and it is not Multi-file.  The outcode is VMS
which means that they are still offsite. Below is some information:
 
FLAG1  = E0         FLAG2  = C0       FLAG3  = 20      BATCHID= 0E =
TMSUPDTE
FLAG4  = 00         FLAG5  = 00       FLAG6  = 00      HOOKID = FE
=         
EDMID  = HPDM       WMC    = 00000    WWID   =          -          -     
CDATE  = 2001/112   CJOB   = SOVPROC  CTIME  = 1608    CPGM   = SOVMAIN  
LDATE  = 2001/112   LJOB   = SOVPROC  LTIME  = 1608    LPGM   = SOVMAIN  
CSTEP  = SOVPROC    CDDNAME= SYS00013 CUNIT  = 1703    LUNIT  = 1703     
OUTDATE= ZEROS      OUTCODE=  VMS     SLOT   = 0000000 TRERRC = 00000    
BTHDATE= 2001/069   VENDOR = BLANKS   COUNT  = 00002   TWERRC = 00017    
DATECLN= ZEROS      USECLN = 00000    CLNCNT = 000     TRERRI = 00000    
VOLSEQ = 0001       ROBTY  =          ROBID  = 000     TWERRI = 00017    
1STVOL =            NEXTVOL=          PREVVOL=         PRERRC = 00000    
NUMDSNB= 00000      1STDSNB= 0000000  LSTDSNB= 0000000 PWERRC = 00000    
LABEL  = SL         DEN    = 3590     TRTCH  = 128T    PRERRI = 00000    
RECFM  = U          LRECL  = 000000   BLKSIZE= 000000  PWERRI = 00000    
AUDATE = 2009/244   AUTIME = 1155     BESKEY = 00000   BLKCNT = 0000000000
AUCODE = 00         AUFLAG1= 00       CPUID  = IS02    USERID = GWGA09  
VOLPERC= 000        FILPERC= 000      COMPRES= 000     CTLGCNT= 000      

Thanks for pointing that out.  Thanks again.

--- On Fri, 9/25/09, Darth Keller <darth.kel...@assurant.com> wrote:

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

Reply via email to