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