This is very nice. It's much better than the process I have been using. Now I have to worry about doing it to the wrong dataset.
Brian On Tue, 20 Oct 2020 04:40:14 +0100, CM Poncelet <[email protected]> wrote: >+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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
