Hi
Thnak you very much , I have installed PDS86, it works fine
John P Kalinich wrote:
Mark Jacobs of the IBM Mainframe Discussion List <[email protected]>
wrote on 01/07/2008 06:28:29 AM:
Miklos Szigetvari wrote:
Hi
Any method to purge all memebers from a PDSE ?
(Till now we used PDS and with
PDS85 fixpds reset did this )
Here is a code snipit that works
OPEN (PDSE,OUTPUT)
ISITMGD DCB=PDSE,MF=(E,ISITPARM)
USING ISM,R1
LTR R15,R15 DID IT COMPLETE SUCESSFULLY?
BNZ ISITERR NO, EXIT RC=12
TM ISMOFLG2,ISMPDSE IS IT A PDSE?
BNO NOTPDSE NO, EXIT RC=8
STOW PDSE,,I
CLOSE (PDSE)
"PDS86 fixpds reset" will do what you want. PDS86 uses the same STOW
Initialize as Mark did above. Download from
http://www.cbttape.org/ftp/updates/CBT182.zip.
Regards,
John K
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
--
Miklos Szigetvari
Development Team
ISIS Information Systems Gmbh
tel: (+43) 2236 27551 570
Fax: (+43) 2236 21081
E-mail: [EMAIL PROTECTED]
Info: [EMAIL PROTECTED]
Hotline: +43-2236-27551-111
Visit our Website: http://www.isis-papyrus.com
---------------------------------------------------------------
This e-mail is only intended for the recipient and not legally
binding. Unauthorised use, publication, reproduction or
disclosure of the content of this e-mail is not permitted.
This email has been checked for known viruses, but ISIS accepts
no responsibility for malicious or inappropriate content.
---------------------------------------------------------------
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
