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
