David, I might run the TMSAUDIT report on the volser and see what it says. I do not know at this point why CA1 might have changed the EXPDT from 99000 to 00000 unless something told it to (TMSCLEAN, or TMSCRATCH)
See if the AUDIT shows anything. VOLSER=?????? TYPE=0,1,2,3,4 FORMAT=LONG Lizette -----Original Message----- >From: "O'Brien, David W. (NIH/CIT) [C]" <obrie...@mail.nih.gov> >Sent: Jun 2, 2009 3:46 PM >To: IBM-MAIN@bama.ua.edu >Subject: Re: Question concerning pre-mature uncatalog/delete of a tape file. > >OCTLG YES > >DISP=(OLD,PASS,CATLG), with EXPDT=99000 > >Dave O'Brien >NIH Contractor >________________________________________ >From: IBM Mainframe Discussion List [ibm-m...@bama.ua.edu] On Behalf Of >Lizette Koehler [stars...@mindspring.com] >Sent: Tuesday, June 02, 2009 3:36 PM >To: IBM-MAIN@bama.ua.edu >Subject: Re: Question concerning pre-mature uncatalog/delete of a tape file. > >I forgot one more field. The OCTLG. What is that set to. > >And that job that uses DISP=OLD has EXPDT=99000 coded? Amazing. > >Lizette > > >> >>Lizzette, >> >>Sorry, I mis-typed. There are no CA1 exits in use. >> > >> >>Hi Lizzette, >> >>Thanks for chiming in. >> >>Yes, RGWOPMSC has Expdt=99000 >>No, CA1 exits are in use. >> >>MG3480 YES >>SCRTCH NO >>SCRCAT YES >> >>Dave O'Brien >>NIH Contractor >>________________________________________ >>From: IBM Mainframe Discussion List [ibm-m...@bama.ua.edu] On Behalf Of >>Lizette Koehler [stars...@mindspring.com] >>Sent: Tuesday, June 02, 2009 3:22 PM >>To: IBM-MAIN@bama.ua.edu >>Subject: Re: Question concerning pre-mature uncatalog/delete of a tape file. >> >>Does this job RGWOPMSC have EXPDT coded in the JCL? Is there something in >>the CA1 exit to change EXPDT in certain conditions? >> >>Do you use the following exits: CL05228 CL05232 CL05245 >>How is TMOOPT00 coded? >> >>MG3480 YES ISSUE NOT SCRATCH MSGS TO 3480 DISPLAY >>SCRTCH NO TMSCLEAN SCRATCH EXTERNAL SECURITY >>SCRCAT YES SCRATCH EVEN IF CATALOG'ED >> >> >> >>Lizette >> >> >> >>> >>> Yes I recalled the default 5 day default retention as well. >>> >>>Here are the DAF records for the file: >>>2009142 20.18.01.43 4090 RGWOPMSC >>>SDC=28 NUC=1 SUC=24 VOL=522187 DD=M4OLD OPE=20.16.48.80 CRTDT=09135 >>>EXPDT=99000 >>>DISP=Old BUFNO=2 DSORG=PS RECFM=VB BLKSIZE=32760 LRECL=32420 NVOL=1 EXCP=3914 >>>LTYP=SL FLSQ=1 DEBVL=1 DCBBL=3913 DSSNO=522187 >>> >>>2009142 20.18.36.15 4090 RGWOPMSC >>>SDC=28 NUC=1 SUC=24 VOL=522187 DD=SYSUT2 OPE=20.18.24.31 CRTDT=09142 >>>EXPDT=00000 DISP=Old DSORG=PS RECFM=VB BLKSIZE=32760 LRECL=32420 NVOL=1 >>>EXCP=42 >>>LTYP=SL FLSQ=1 DEBVL=1 DCBBL=3915 DSSNO=522187 >>> >>>2009142 20.36.54.65 4090 RGWOPDOF >>>SDC=28 NUC=1 SUC=24 VOL=522187 DD=M4OLD OPE=20.36.41.28 CRTDT=09142 >>>EXPDT=00000 >>>DISP=OldShr BUFNO=5 DSORG=PS RECFM=VB BLKSIZE=32760 LRECL=32420 NVOL=1 >>>EXCP=3916 LTYP=SL FLSQ=1 DEBVL=1 DCBBL=3915 DSSNO=522187 >>> >>>2009144 22.00.24.19 4090 RGWOPMHF >>>SDC=28 NUC=1 SUC=24 VOL=522187 DD=SYSUT1 OPE=22.00.14.36 CRTDT=09142 >>>EXPDT=00000 DISP=OldShr DSORG=PS RECFM=VB BLKSIZE=32760 LRECL=32420 NVOL=1 >>>EXCP=83 LTYP=SL FLSQ=1 DEBVL=1 DCBBL=3915 DSSNO=522187 >>> >>>2009149 00.05.19.80 4090 STGTMSSC >>>SUB=Delete FNC=Uncatalog CAT=SYSICF.USERCAT.UCAT05 TYP=NonVSAM_Dataset >>> >>>Here is the alleged JCL that referenced the file before it went scratch 5 >>>days later. >>>//COPY.SYSUT1 DD DSN=APA3JLC.PUBLIC.MASTER,DISP=SHR, >>>// UNIT=ETAPE >>> >>>Not sure why they specify UNIT=ETAPE for a cataloged input file. But they >>>claim to have been doing this for years. >>>And before I forget, we are at Zos 1.9 with Jes2. File is not SMS managed. >>> >>>Something else I find strange is the DISP=Oldshr in jobs RGWOPDOF and >>>RGWOPMHF. I checked the JCL and DISP=SHR is specified. >>> >>>e. >>> >>>IIRC 5 days is the default hold before scratch for a catalog controlled >>>tape in order to prevent a catalog issue causing tapes to go scratch. >>>Look at catalog records (60-69) and see if the data set was uncataloged >>>prior to that date. >>> >> >>> >>>All opinions expressed by me are mine and may not agree with my employer >>>or any person, company, or thing, living or dead, on or near this or any >>>other planet, moon, asteroid, or other spatial object, natural or >>>manufactured, since the beginning of time. >>> >>> >>>> -----Original Message----- >>>> From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On >>>> Behalf Of O'Brien, David W. (NIH/CIT) [C] >>>> Sent: Tuesday, June 02, 2009 1:26 PM >>>> To: IBM-MAIN@bama.ua.edu >>>> Subject: Question concerning pre-mature uncatalog/delete of a tape >>>> file. >>>> >>>> User complained the other day that we had destroyed one of their >>>tapes. >>>> >>>> I ran a DAF report and sure enough TMS had scratched the tape and >>>> uncataloged the file. >>>> >>>> When the tape was originally created it was under catalog control so >>>> that TMS should not have trashed it. >>>> But as I look at the DAFRPT I see the EXPDT change from 99000 to 00000 >>>> and back again. >>>> The last entry 5 days before TMS scratched showed Expdt=00000. >>>> I would have thought that once a tape was created with Expdt=99000, >>>> then that field should have remained 99000. Or does 99000 have to be >>>> coded in the JCL each time the tape is used? >>>> >>>> Dave O'Brien >>>> NIH Contractor >> > >---------------------------------------------------------------------- >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 > >---------------------------------------------------------------------- >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 ---------------------------------------------------------------------- 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
