View previous topic :: View next topic
|
Author |
Message |
shamsundar_mk
New User
Joined: 18 May 2007 Posts: 30 Location: CHENNAI
|
|
|
|
Hi all,
I want to know how to empty the dataset with out deleting it using JCL's.
Suggest me some answers please.
Thanks in advance, |
|
Back to top |
|
|
muthuvel
Active User
Joined: 29 Nov 2005 Posts: 217 Location: Canada
|
|
|
|
Try This,
Code: |
//*THIS JOB IS USED TO CREATE EMPTY DATASET OR EMPTY DATA IN A DATASET
//STEP1 EXEC PGM=IEBGENER
//SYSUT1 DD DUMMY
//SYSUT2 DD DSN=<dataset name>,
// DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
GENERATE MAXFLDS=2
/*
//SYSOUT DD SYSOUT=*
//* |
|
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
Code: |
//EMPTY EXEC PGM=SORT
//SORTIN DD DISP=SHR,DSN=<dataset>
//SORTOUT DD DISP=SHR,DSN=<dataset>
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OMIT COND=ALL
/*
|
|
|
Back to top |
|
|
shamsundar_mk
New User
Joined: 18 May 2007 Posts: 30 Location: CHENNAI
|
|
|
|
Thanks... it is working. |
|
Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6250 Location: Mumbai, India
|
|
|
|
Or read the file using COBOL & don't write anything into it, give your output file DSN with DISP=OLD.
Sometimes mainframes behaves just amazing, no. of ways to do the same thing. |
|
Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
Another option is to use IDCAMS REPRO with COUNT(0).
O. |
|
Back to top |
|
|
Bitneuker
CICS Moderator
Joined: 07 Nov 2005 Posts: 1104 Location: The Netherlands at Hole 19
|
|
|
|
ofer71 wrote: |
Another option is to use IDCAMS REPRO with COUNT(0).
O. |
Hi Ofer.......could also be IDCAMS with input-DD DUMMY |
|
Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
If you want to clear a dataset using IDCAMS REPRO, allocate it to both input and output.
O. |
|
Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6250 Location: Mumbai, India
|
|
|
|
Hi,
Emptying a DSN using IDCAMS, one way:
Code: |
//JS00100 EXEC PGM=IDCAMS
//DDDMMY DD DUMMY
//DDOUT DD DSN=HLQ.FIRST.FILE,
// DISP=OLD
//SYSIN DD *
REPRO IFILE(DDDMMY) OFILE(DDOUT)
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=* |
|
|
Back to top |
|
|
|