Delete file in one step

psriv20 · New User Joined: 25 May 2009 Posts: 19 Location: Pune

Hi,

Can we take the backup and delete the source file in single step?

enrico-sorichetti · Posted: Mon Aug 31, 2009 10:55 am

yes...
see the dfdss/adrdssu manuals

psriv20 · New User Joined: 25 May 2009 Posts: 19 Location: Pune

Please explain me ??If possible provide me code also.

I have one flat file and i have to take the bakup from this file and then delete it.All activities should happened in single step.

enrico-sorichetti · Posted: Mon Aug 31, 2009 11:07 am

Anuj Dhawan · Posted: Mon Aug 31, 2009 6:09 pm

psriv20 · New User Joined: 25 May 2009 Posts: 19 Location: Pune

I can do it in two step but unable to do in single step.

expat · Posted: Mon Aug 31, 2009 7:17 pm

Did you read the 2nd topic that Enrico provided you a link to ? If you did, you would have found a good example of the JCL required to do this

Click HERE to RTFM on how to use the control statements.

When you have problems AFTER you have tried using DFdss (PGM=ADRDSSU), please let us know and we will try to help.

Terry Heinze · Posted: Tue Sep 01, 2009 1:50 am

Why can't a simple DISP=(OLD,DELETE,KEEP) be used for the input file?

Pete Wilson · Posted: Wed Jan 06, 2010 8:45 pm

//DSSDUMP EXEC PGM=ADRDSSU
//SYSPRINT DD SYSOUT=*
//TAPE1 DD DSN=BACKUP.NAME,DISP=(,CATLG),
// SPACE=(CYL,(750,750),RLSE),VOL=(,,,59)
//SYSIN DD *
DUMP ODD(TAPE1) ALLE ALLD(*) COM OPT(4) SPHERE DELETE PURGE -
DS(INC( -
DSNAME.ONE -
DSNAME.TWO -
etc....
))

dick scherrer · Posted: Thu Jan 07, 2010 8:25 pm

Hello,

Where is the "backup" to be written (which media)? It the backup is also a dasd file, you might consider simply renaming the file. . .

Terry Heinze · Posted: Fri Jan 08, 2010 6:50 am

psriv20 might be long gone by now, but why was ADRDSSU suggested? Why wasn't my question of Aug 31 not answered?

enrico-sorichetti · Posted: Fri Jan 08, 2010 12:57 pm

Hi Terry!
because the original question was ....

Pete Wilson · Posted: Fri Jan 08, 2010 2:38 pm

Terry's idea is a sensible one too. The problem with DFDSS is it won't pick up the file if it's migrated by DFHSM or equivalent product.

The following illustrates Terry's idea, assuming the file is not VSAM. The presence of the DD's means the source file would be recalled from DFHSM if it was migrated.

//COPY EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//IN DD DSN=SOURCE.NAME,DISP=(OLD,DELETE,KEEP)
//OUT DD DSN=BACKUP.NAME,DISP=(,CATLG),
// LIKE=SOURCE.NAME
//SYSIN DD *
REPRO IFILE(IN) OFILE(OUT)

enrico-sorichetti · Posted: Fri Jan 08, 2010 2:45 pm

Yep,
but we are just speculating , the original question was quite clear,
my/our hope is that the people asking are aware of the environment in which they want things to happen(*)
- but 99% of the time my/our hopes are shattered

(*) if a backup is needed then...
if a dataset is under automated management the whole topic should be canceled
or the management policy reviewed ( to take the proper backups)

if the dataset has been migrated without a backup there must be reasons
which I do not want to investigate

gcicchet · Posted: Fri Jan 08, 2010 3:29 pm

Hi,

personally I'm against using DISP=(OLD,DELETE,KEEP) to backup a file, some utlities such as IDCAMS, IEBGENER etc are very dangerous, an incorrect or missing DDNAME such as SYSPRINT will result in a RC greater than 0, thus blowing away the dataset without copying it.

I would rather delete the file in a second step ie if backup step is successful then delete it.

But then we have this one step mentality which I can never understand.

Gerry

Terry Heinze · Posted: Fri Jan 08, 2010 7:13 pm

PeterHolland · Posted: Sun Jan 10, 2010 4:00 pm

dick scherrer · Posted: Mon Jan 11, 2010 3:07 am

Hello,