On Mon, 19 Oct 2020 10:46:29 -0500, David Staudacher wrote: >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: > Unfortunately, tnat's true. But some customers prefer something simpler than assemble and link before using. And especially suppiiers do not wish to burden their clients with such a process. It would be simpler yet if IBM were to distribute with z/OS base a program object which could be invoked with TSO CALL or Rexx LINKMVS.
For flexibility, the DDNAME shouldn't be hard-coded. It should be supplied via PARM or alternate DDNAME list. Re-entrancy? > *---------------------------------------------------------------------* > * 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 -- gil ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
