Given the specification to EMPTY a PDS, nothing is simpler than just
reinitializing the directory.
Assemble this source and keep it around as a utility:
*---------------------------------------------------------------------*
* INITIALIZE PDS/PDSE TO EMPTY STATE *
*---------------------------------------------------------------------*
PDSINIT CSECT
SAVE 14
LR 12,15
USING PDSINIT,12
OPEN (PDS,OUTPUT) OPEN PDS
STOW PDS,,I INITIALIZE PDS
CLOSE PDS CLOSE PDS
RETURN 14 RETURN
PDS DCB DDNAME=PDS,DSORG=PO,MACRF=W
END PDSINIT
Run PDSINIT with this JCL:
// EXEC PGM=PDSINIT
//STEPLIB DD DISP=SHR,DSN=<your load library DSN>
//PDS DD DISP=SHR,DSN=S17666D.TEST.PDSE
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
