+2 On 19/10/2020 16:58, Steve Smith wrote: > +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 > . >
---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
