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) -- Mark Jacobs Time Customer Service Tampa, FL ---- Riley: Find the next number in the sequence: 313, 331, 367, ...? what? The Doctor: 379. It's a sequence of happy primes, 379. Martha: Happy what? The Doctor: Just enter it! Riley: Are you sure? We only get one chance. The Doctor: Any number that reduces to one when you take the sum of the square of its digits and continue iterating until it yields 1 is a happy number, any number that doesn't, isn't. A happy prime is both happy and prime. ---- Doctor Who episode "42" ---------------------------------------------------------------------- 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
