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:[email protected]] On
>> Behalf Of O'Brien, David W. (NIH/CIT) [C]
>> Sent: Tuesday, June 02, 2009 1:26 PM
>> To: [email protected]
>> 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 [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
