Re: Deleting UnExpired dataset using JCL
On Tue, 24 Feb 2009 15:57:05 +, Ted MacNEIL wrote: >>I know about IDCAMS, but the user wants a pure JCL solution. > >Then the user is out of luck. >The best that can happen is there's a WTOR, to ask if it's okay. >And, I believe that's only if there is write activity to the dataset. >I don't recall what happens with a delete. > >- Try... //SYSUT1 DD DSN=, // DISP=(MOD,DELETE,DELETE), // RETPD=, // UNIT=(SYSDA,,DEFER), // SPACE=(TRK,(0,0),RLSE) You might be able to reassign the retention period with the MOD disposition... -- 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
Re: Deleting UnExpired dataset using JCL
On 24 Feb 2009 21:34:09 -0800, gad...@malam.com (??? ?? ???) wrote: >The user would like to use DISP=(SHR,DELETE) or in other words, have access to >the file, and if the step completes ok, delete the file. > >If there is no solution that can emulate this behavior, then they will have to >add an extra step that deletes the file if the previous step completes ok. Is there some reason they don't want to add the extra step? -- 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
Re: Deleting UnExpired dataset using JCL
Even if "DISP=(SHR,DELETE)" would allow the deletion of expired data sets, it may not ALWAYS work. If another user has the file allocated (which is possible due to the SHR disposition) the DELETE will fail. (Or does the DELETE imply exclusive? I'm not logged on so I can't check right now). Even with the " PGM=IKJEFT1A,PARM='DEL ''dsn'' PURGE' " solution, I suggest the addition of a DD statement that specifies DISP=OLD to ensure that your job has an exclusive ENQ for the data set. Dan D - Original Message - From: ""גדי בן אבי"" Newsgroups: bit.listserv.ibm-main Sent: Wednesday, February 25, 2009 12:34 AM Subject: Re: Deleting UnExpired dataset using JCL Hi, While that might work, it is not what the user wants. The user would like to use DISP=(SHR,DELETE) or in other words, have access to the file, and if the step completes ok, delete the file. If there is no solution that can emulate this behavior, then they will have to add an extra step that deletes the file if the previous step completes ok. Gadi -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Ted MacNEIL Sent: Tuesday, February 24, 2009 11:08 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Deleting UnExpired dataset using JCL Have you tried : //DEL EXEC PGM=IKJEFT01 //SYSTSPRT DD SYSOUT=* //SYSTSIN DD * DEL 'V110.TGBA.TESTDEL' PURGE There was an even simpler one with IKJEFT1A, and a PARM="DEL dsn PURGE". It has come down to: "What is 'pure' JCL"? To me, anything that goes through an Internal Reader is "PURE"! - Too busy driving to stop for gas! -- 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
Re: Deleting UnExpired dataset using JCL
I have gone back to your original question. What level of operating system are you running? z/OS Do you have DFSMS along with DFSMShsm in your shop? If so, why not use SMS to control how long a dataset stays. You can set it up so if a dataset is on dasd for 2 days the third day it gets deleted. Then the JCL does not need the RETPD or EXPDT and you can use JCL to do MOD,DELETE or SHR,DELETE without concern? Lizette > Hi, > How do I delete a non sms dataset with an expiration date using JCL. > > > If the dataset does not have an expiration date, I can use DISP=(SHR,DELETE). > > If the dataset is sms managed, the OVRD_EXPDT allows the override of the expiration > date. > > Is there a way to accomplish this for non sms datasets? > > IF I run this job: > > //STEP1 EXEC PGM=IEFBR14 > > //DD1 DD DSN=V110.TGBA.TESTDEL,DISP=(,CATLG,DELETE),UNIT=3390, > > // SPACE=(TRK,1),LRECL=80,RETPD=2,VOL=SER=PRJ002 > > //DEL EXEC PGM=IEFBR14 > > //DD1 DD DSN=V110.TGBA.TESTDEL,DISP=(SHR,DELETE),RETPD=0 > The first step works, and the second step iisues: > > IEC614I SCRATCH FAILED - RC 008, DIAGNOSTIC INFORMATION IS (040B004B), > > ,PRJ002,V110.TGBA.TESTDEL > > The 040B004B reason code means that the dataset is not expired. > > Can anyone help? > -- 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
Re: Deleting UnExpired dataset using JCL
Hi, While that might work, it is not what the user wants. The user would like to use DISP=(SHR,DELETE) or in other words, have access to the file, and if the step completes ok, delete the file. If there is no solution that can emulate this behavior, then they will have to add an extra step that deletes the file if the previous step completes ok. Gadi -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Ted MacNEIL Sent: Tuesday, February 24, 2009 11:08 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Deleting UnExpired dataset using JCL >Have you tried : >//DEL EXEC PGM=IKJEFT01 >//SYSTSPRT DD SYSOUT=* >//SYSTSIN DD * > DEL 'V110.TGBA.TESTDEL' PURGE There was an even simpler one with IKJEFT1A, and a PARM="DEL dsn PURGE". It has come down to: "What is 'pure' JCL"? To me, anything that goes through an Internal Reader is "PURE"! - Too busy driving to stop for gas! -- 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
Re: Deleting UnExpired dataset using JCL
>Have you tried : >//DEL EXEC PGM=IKJEFT01 >//SYSTSPRT DD SYSOUT=* >//SYSTSIN DD * > DEL 'V110.TGBA.TESTDEL' PURGE There was an even simpler one with IKJEFT1A, and a PARM="DEL dsn PURGE". It has come down to: "What is 'pure' JCL"? To me, anything that goes through an Internal Reader is "PURE"! - Too busy driving to stop for gas! -- 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
Re: Deleting UnExpired dataset using JCL
Have you tried : //DEL EXEC PGM=IKJEFT01 //SYSTSPRT DD SYSOUT=* //SYSTSIN DD * DEL 'V110.TGBA.TESTDEL' PURGE Frank The information contained in this message may be privileged and confidential and protected from disclosure. If the reader of this message is not the intended recipient, or an employee or agent responsible for delivering this message to the intended recipient, you are hereby notified that any dissemination, distribution or copying of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by replying to the message and deleting it from your computer. -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Howard Brazee Sent: Tuesday, February 24, 2009 3:48 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Deleting UnExpired dataset using JCL On 24 Feb 2009 10:51:47 -0800, eamacn...@yahoo.ca (Ted MacNEIL) wrote: > >>//S005EXEC PGM=IEFBR14 >>//DD1 DD DSN=name.xxx,DISP=(MOD,DELETE), >>//UNIT=SYSDA,SPACE=(TRK,(0)) > >Yes. It failed because the dataset had a future expiry date. >That was basically the content of the original post. It also, like every JCL job, contains something other than "pure JCL", in this case the IEFBR14 "program". -- 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
Re: Deleting UnExpired dataset using JCL
On 24 Feb 2009 10:51:47 -0800, eamacn...@yahoo.ca (Ted MacNEIL) wrote: > >>//S005EXEC PGM=IEFBR14 >>//DD1 DD DSN=name.xxx,DISP=(MOD,DELETE), >>//UNIT=SYSDA,SPACE=(TRK,(0)) > >Yes. It failed because the dataset had a future expiry date. >That was basically the content of the original post. It also, like every JCL job, contains something other than "pure JCL", in this case the IEFBR14 "program". -- 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
Re: Deleting Unexpired dataset using JCL
>You can override the expiration date or retention period, when deleting >SMS-managed data sets, by coding OVRD_EXPDT(YES) in your IGDSMSxx member. Yes. Check the archives. It WAS a non-SMS dataset. You're going over already covered ground! - Too busy driving to stop for gas! -- 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
Re: Deleting Unexpired dataset using JCL
You can override the expiration date or retention period, when deleting SMS-managed data sets, by coding OVRD_EXPDT(YES) in your IGDSMSxx member. -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Ted MacNEIL Sent: Tuesday, February 24, 2009 12:50 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Deleting UnExpired dataset using JCL >I may be late and missed some of the dialog on this but >Has this been mentioned. >//S005EXEC PGM=IEFBR14 >//DD1 DD DSN=name.xxx,DISP=(MOD,DELETE), >//UNIT=SYSDA,SPACE=(TRK,(0)) Yes. It failed because the dataset had a future expiry date. That was basically the content of the original post. - Too busy driving to stop for gas! -- 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
Re: Deleting UnExpired dataset using JCL
>I may be late and missed some of the dialog on this but >Has this been mentioned. >//S005EXEC PGM=IEFBR14 >//DD1 DD DSN=name.xxx,DISP=(MOD,DELETE), >//UNIT=SYSDA,SPACE=(TRK,(0)) Yes. It failed because the dataset had a future expiry date. That was basically the content of the original post. - Too busy driving to stop for gas! -- 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
Re: Deleting UnExpired dataset using JCL
I may be late and missed some of the dialog on this but Has this been mentioned. //S005EXEC PGM=IEFBR14 //DD1 DD DSN=name.xxx,DISP=(MOD,DELETE), //UNIT=SYSDA,SPACE=(TRK,(0)) // -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Paul Gilmartin Sent: Tuesday, February 24, 2009 10:20 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Deleting UnExpired dataset using JCL On Tue, 24 Feb 2009 14:23:16 +0200, ××× ×× ××× wrote: >I know about IDCAMS, but the user wants a pure JCL solution. > >Gadi > What's "pure" JCL? In my experience, JCL for any valid job must contain at least one "//label EXEC PGM=whatever" statement. That "whatever" might as well be IDCAMS. -- gil -- 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
Re: Deleting UnExpired dataset using JCL
There isn't one. גדי בן אבי wrote: I know about IDCAMS, but the user wants a pure JCL solution. Gadi -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Mike Shorkend Sent: Tuesday, February 24, 2009 2:17 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Deleting UnExpired dataset using JCL Gadi Try using IDCAMS DELETE with the PURGE option e.g. // EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * DEL V110.TGBA.TESTDEL PURGE Mike On Tue, Feb 24, 2009 at 1:59 PM, גדי בן אבי wrote: Hi, How do I delete a non sms dataset with an expiration date using JCL. If the dataset does not have an expiration date, I can use DISP=(SHR,DELETE). If the dataset is sms managed, the OVRD_EXPDT allows the override of the expiration date. Is there a way to accomplish this for non sms datasets? IF I run this job: //STEP1 EXEC PGM=IEFBR14 //DD1 DD DSN=V110.TGBA.TESTDEL,DISP=(,CATLG,DELETE),UNIT=3390, // SPACE=(TRK,1),LRECL=80,RETPD=2,VOL=SER=PRJ002 //DEL EXEC PGM=IEFBR14 //DD1 DD DSN=V110.TGBA.TESTDEL,DISP=(SHR,DELETE),RETPD=0 The first step works, and the second step iisues: IEC614I SCRATCH FAILED - RC 008, DIAGNOSTIC INFORMATION IS (040B004B), ,PRJ002,V110.TGBA.TESTDEL The 040B004B reason code means that the dataset is not expired. Can anyone help? Gadi -- 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 -- Rick -- Remember that if you’re not the lead dog, the view never changes. -- 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
Re: Deleting UnExpired dataset using JCL
On Tue, 24 Feb 2009 14:23:16 +0200, ××× ×× ××× wrote: >I know about IDCAMS, but the user wants a pure JCL solution. > >Gadi > What's "pure" JCL? In my experience, JCL for any valid job must contain at least one "//label EXEC PGM=whatever" statement. That "whatever" might as well be IDCAMS. -- gil -- 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
Re: Deleting UnExpired dataset using JCL
On Tue, 24 Feb 2009 15:57:05 +, Ted MacNEIL wrote: >>I know about IDCAMS, but the user wants a pure JCL solution. > >Then the user is out of luck. >The best that can happen is there's a WTOR, to ask if it's okay. >And, I believe that's only if there is write activity to the dataset. >I don't recall what happens with a delete. > >- Depends on the definition of "pure JCL". The following should work: //STEP1 EXEC PGM=IKJEFT1A, // PARM='DEL ''dsn'' PURGE' //SYSTSIN DD DUMMY //SYSTSPRT DD SYSOUT=* //* -- John -- 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
Re: Deleting UnExpired dataset using JCL
>I know about IDCAMS, but the user wants a pure JCL solution. Then the user is out of luck. The best that can happen is there's a WTOR, to ask if it's okay. And, I believe that's only if there is write activity to the dataset. I don't recall what happens with a delete. - Too busy driving to stop for gas! -- 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
Re: Deleting UnExpired dataset using JCL
Yes Subject: Re: Deleting UnExpired dataset using JCL Dave, Are you saying that there is no way to do this using pure JCL? >I know about IDCAMS, but the user wants a pure JCL solution. > In that case I think you will have to use one of the many PARM to control card programs to parameterise the dataset name (optionally volume) and pass it to a deleting program such as IDCAMS. Check the CBT Tape. Maybe some of the data management programs on CBT will delete a dataset specified in the parm. -- 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
Re: Deleting UnExpired dataset using JCL
Dave, Are you saying that there is no way to do this using pure JCL? Gadi -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Dave Cartwright Sent: Tuesday, February 24, 2009 2:45 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Deleting UnExpired dataset using JCL On Tue, 24 Feb 2009 14:23:16 +0200, גדי בן ×בי wrote: >I know about IDCAMS, but the user wants a pure JCL solution. > In that case I think you will have to use one of the many PARM to control card programs to parameterise the dataset name (optionally volume) and pass it to a deleting program such as IDCAMS. Check the CBT Tape. Maybe some of the data management programs on CBT will delete a dataset specified in the parm. http://www.cbttape.org/ Cheers Dave -- 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
Re: Deleting UnExpired dataset using JCL
On Tue, 24 Feb 2009 14:23:16 +0200, ××× ×× ××× wrote: >I know about IDCAMS, but the user wants a pure JCL solution. > In that case I think you will have to use one of the many PARM to control card programs to parameterise the dataset name (optionally volume) and pass it to a deleting program such as IDCAMS. Check the CBT Tape. Maybe some of the data management programs on CBT will delete a dataset specified in the parm. http://www.cbttape.org/ Cheers Dave -- 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
Re: Deleting UnExpired dataset using JCL
I know about IDCAMS, but the user wants a pure JCL solution. Gadi -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Mike Shorkend Sent: Tuesday, February 24, 2009 2:17 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Deleting UnExpired dataset using JCL Gadi Try using IDCAMS DELETE with the PURGE option e.g. // EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * DEL V110.TGBA.TESTDEL PURGE Mike On Tue, Feb 24, 2009 at 1:59 PM, גדי בן אבי wrote: > Hi, > > > > How do I delete a non sms dataset with an expiration date using JCL. > > > > If the dataset does not have an expiration date, I can use > DISP=(SHR,DELETE). > > If the dataset is sms managed, the OVRD_EXPDT allows the override of the > expiration date. > > > > Is there a way to accomplish this for non sms datasets? > > > > IF I run this job: > > //STEP1 EXEC PGM=IEFBR14 > > //DD1 DD DSN=V110.TGBA.TESTDEL,DISP=(,CATLG,DELETE),UNIT=3390, > > // SPACE=(TRK,1),LRECL=80,RETPD=2,VOL=SER=PRJ002 > > //DEL EXEC PGM=IEFBR14 > > //DD1 DD DSN=V110.TGBA.TESTDEL,DISP=(SHR,DELETE),RETPD=0 > > > > The first step works, and the second step iisues: > > IEC614I SCRATCH FAILED - RC 008, DIAGNOSTIC INFORMATION IS (040B004B), > > ,PRJ002,V110.TGBA.TESTDEL > > > > The 040B004B reason code means that the dataset is not expired. > > > > Can anyone help? > > > > Gadi > > > > > -- > 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 > -- Mike Shorkend m...@shorkend.com www.shorkend.com Tel: +972524208743 Fax: +97239772196 -- 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
Re: Deleting UnExpired dataset using JCL
Gadi Try using IDCAMS DELETE with the PURGE option e.g. // EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * DEL V110.TGBA.TESTDEL PURGE Mike On Tue, Feb 24, 2009 at 1:59 PM, גדי בן אבי wrote: > Hi, > > > > How do I delete a non sms dataset with an expiration date using JCL. > > > > If the dataset does not have an expiration date, I can use > DISP=(SHR,DELETE). > > If the dataset is sms managed, the OVRD_EXPDT allows the override of the > expiration date. > > > > Is there a way to accomplish this for non sms datasets? > > > > IF I run this job: > > //STEP1 EXEC PGM=IEFBR14 > > //DD1 DD DSN=V110.TGBA.TESTDEL,DISP=(,CATLG,DELETE),UNIT=3390, > > // SPACE=(TRK,1),LRECL=80,RETPD=2,VOL=SER=PRJ002 > > //DEL EXEC PGM=IEFBR14 > > //DD1 DD DSN=V110.TGBA.TESTDEL,DISP=(SHR,DELETE),RETPD=0 > > > > The first step works, and the second step iisues: > > IEC614I SCRATCH FAILED - RC 008, DIAGNOSTIC INFORMATION IS (040B004B), > > ,PRJ002,V110.TGBA.TESTDEL > > > > The 040B004B reason code means that the dataset is not expired. > > > > Can anyone help? > > > > Gadi > > > > > -- > 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 > -- Mike Shorkend m...@shorkend.com www.shorkend.com Tel: +972524208743 Fax: +97239772196 -- 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
Deleting UnExpired dataset using JCL
Hi, How do I delete a non sms dataset with an expiration date using JCL. If the dataset does not have an expiration date, I can use DISP=(SHR,DELETE). If the dataset is sms managed, the OVRD_EXPDT allows the override of the expiration date. Is there a way to accomplish this for non sms datasets? IF I run this job: //STEP1 EXEC PGM=IEFBR14 //DD1 DD DSN=V110.TGBA.TESTDEL,DISP=(,CATLG,DELETE),UNIT=3390, // SPACE=(TRK,1),LRECL=80,RETPD=2,VOL=SER=PRJ002 //DEL EXEC PGM=IEFBR14 //DD1 DD DSN=V110.TGBA.TESTDEL,DISP=(SHR,DELETE),RETPD=0 The first step works, and the second step iisues: IEC614I SCRATCH FAILED - RC 008, DIAGNOSTIC INFORMATION IS (040B004B), ,PRJ002,V110.TGBA.TESTDEL The 040B004B reason code means that the dataset is not expired. Can anyone help? Gadi -- 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