Re: Deleting UnExpired dataset using JCL

2009-02-25 Thread Lizette Koehler
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

2009-02-25 Thread DanD
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: גדי בן אבי gad...@malam.com

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

2009-02-25 Thread Howard Brazee
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

2009-02-25 Thread Dave Kopischke
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=Your.DSN.Name,
// 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


Deleting UnExpired dataset using JCL

2009-02-24 Thread גדי בן אבי
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


Re: Deleting UnExpired dataset using JCL

2009-02-24 Thread Mike Shorkend
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, גדי בן אבי gad...@malam.com 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


Re: Deleting UnExpired dataset using JCL

2009-02-24 Thread גדי בן אבי
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, גדי בן אבי gad...@malam.com 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

2009-02-24 Thread Dave Cartwright
On Tue, 24 Feb 2009 14:23:16 +0200, גדי בן  אבי 
gad...@malam.com 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

2009-02-24 Thread גדי בן אבי
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, גדי בן  אבי 
gad...@malam.com 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

2009-02-24 Thread Staller, Allan
Yes

snip
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.
/snip

--
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

2009-02-24 Thread Ted MacNEIL
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

2009-02-24 Thread John McKown
On Tue, 24 Feb 2009 15:57:05 +, Ted MacNEIL eamacn...@yahoo.ca 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

2009-02-24 Thread Paul Gilmartin
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

2009-02-24 Thread Rick Fochtman

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, גדי בן אבי gad...@malam.com 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

2009-02-24 Thread Cebell, David
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

2009-02-24 Thread Ted MacNEIL
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

2009-02-24 Thread Cebell, David
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

2009-02-24 Thread Ted MacNEIL
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

2009-02-24 Thread Howard Brazee
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

2009-02-24 Thread Frank Skellen
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

2009-02-24 Thread Ted MacNEIL
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

2009-02-24 Thread גדי בן אבי
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