Deleting Multiple Members

Aravind Kumar. S · New User Joined: 28 Apr 2005 Posts: 26

Hi all,

I 've tried this for deleting a member in a PDS,

//JobID JOB (D1),CLASS=B,MSGCLASS=R,
// MSGLEVEL=(1,1),NOTIFY=&SYSUID
// EXEC TSO
DELETE 'VE0144.DEV.COBOL(LMRM1121)'
/*

It' not working properly, And How to delete multiple(Selected) members in the PDS.
(We have to give the list of members to delete)

Plz. provide me the solution.

Thanks,

MGIndaco · Posted: Mon Oct 03, 2005 2:25 pm

I've some doubt... that PROC is not the proc of started task?(It has different use but I never seen this)
And that delete of your sample, what is it? Is not a parm if you don't specify a dd and is not a comment... is there... but for what?
I think that your job does not mean nothing but if I'm wrong I apologize to you.
Are you sure that it does not function only for a member and not both for a ps?

You wrote another post for the same request without replying to no one.
Well I'm sure that you have your reason, but another post does not mean another, same, reply!

If you want to delete a member you must use the: IEHPROGM that's a standard utility from IBM that you can find in the Manual section looking for the utility.
This is the link:
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/handheld/Connected/BOOKS/dgt1u104/15.0?DT=19990113105507
Another way is moving your pds excludig the member you want to delete and for this you can use IEHMOVE at this link:
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/handheld/Connected/BOOKS/dgt1u104/14.0?DT=19990113105507

I hope in this suggest apologizing to you for my bad english.

tdsvamsidhar · New User Joined: 03 Oct 2005 Posts: 7

Try one of these, I am sure it will work

//SORTNAM EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
DELETE 'CAC090.DB.COB(ACCTS)'
/*

OR

//***************************************
//* THIS JCL DELETES A MEMBER IN THE PDS
//***************************************
//DELMEM EXEC PGM=IEHPROGM
//SYSPRINT DD SYSOUT=A,DEST=RMT1,HOLD=YES
//ANYNAME1 DD UNIT=SYSDA,VOL=SER=TSO358,DISP=SHR
//SYSIN DD *
SCRATCH MEMBER=IMX1,DSNAME=XTRNRAY.CPY,VOL=SYSDA=TSO358
/*

Rupesh.Kothari · Member of the Month Joined: 27 Apr 2005 Posts: 463

Hi Tdsvamsidhar,

tdsvamsidhar · New User Joined: 03 Oct 2005 Posts: 7

Hi Rupesh,

That works fine, In fact I have tested and posted it. Just make a test and let me know.

Regards,
Vamsi

Aravind Kumar. S · New User Joined: 28 Apr 2005 Posts: 26

hi,

But , in a single stretch i've to delete some 50 -60 members.

the jcl has to take the list from a member( contains the list of members to delete ) and it shud delete those members from another PDS.

Is it possible.?

Thanks,

tdsvamsidhar · New User Joined: 03 Oct 2005 Posts: 7

Hi,

Just create a seq dataset (asssume USER.DATA.MEMS) with all Delete instructions for your memebers as follows

DELETE 'USER.DATA.SET(MEM1)'
DELETE 'USER.DATA.SET(MEM2)'
.....
.....
So on and then

You replace the SYSIN with the dataset like below

//SORTNAM EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD DSN=USER.DATA.MEMS,DISP=SHR
/*

Then it will delete all the ones in the dataset USER.DATA.MEMS.

Hope this helps, let me know if something is wrong....

MGIndaco · Posted: Mon Oct 03, 2005 3:33 pm

That's new... and I must apologize...
I remember that in the past IDCAMS didn't allow to delete the member. It's a wonderful news...

tdsvamsidhar · New User Joined: 03 Oct 2005 Posts: 7

But I have tested and posted it and may be this is an enhancement of IDCAMS.

Rupesh.Kothari · Member of the Month Joined: 27 Apr 2005 Posts: 463

HI Tdsvamsidhar,

Yes I also tested this jcl and it is working fine.

Thanks a lot for your information. I calso come to know this now only.

Thanks

Rupesh

Gautam512 · Posted: Fri Mar 03, 2006 10:29 pm

interesting one to know....

thanks for posting.......