+1 Some of the proposals sounded akin to writing IEFBR14 in C++.
sas On Mon, Oct 19, 2020 at 11:46 AM David Staudacher <[email protected]> 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: > *---------------------------------------------------------------------* > * 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 [email protected] with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
