MVSFORUMS.com

kris_madras · Beginner Joined: 07 Apr 2004 Posts: 41 Topics: 30

Hi all,

I'm struggling to solve the following problem..could you help me..?

I am using LISTDSI to process all the members...in a PDS...

pdstext1 = "'E2CTSS2.SAMPLE.TEST5' directory"
x = LISTDSI(pdstext1)

and after that when I try to free the above PDS(pdstext1),
{Requirement is to delete the above PDS..}

Address "TSO" "FREE DS(" pdstext ") DELETE"

The above line causing an error as...

"DATA SET E2CTSS2.SAMPLE.TEST5 NOT FREED, DELETE DISPOSITION INVALID FOR DATA SET ALLOCATED AS SHARED"

I guess the problem is LISTDSI opening the PDS in SHARE Mode....

Could you suggest me how to Free the PDS after using LISTDSI..?
Thanks
Kris

bluebird · Beginner Joined: 06 Aug 2004 Posts: 2 Topics: 0

I do not think you need to do a free ... just delete the damn dataset !!!

kolusu · Posted: Fri Aug 06, 2004 5:57 am Post subject:

kris_madras,

Check this link for a detailed explanation of FREE command

http://publib.boulder.ibm.com/cgi-bin/bookmgr/BOOKS/IKJ4C531/1.17?DT=20021022140245

Hope this helps...

Cheers

kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

semigeezer · Posted: Fri Aug 06, 2004 11:43 am Post subject:

LISTDSI does not leave an allocation. You must have an existing one that you created before or after the listdsi.