On Sat, 17 Oct 2020 22:34:17 +0000, Chris Hoelscher wrote:
>I have employed this REXX script for years:
>
>/* REXX */
>DSNAME = 'my PDS'
>DSN = STRIP(DSNAME, 'BOTH', '''') /* IN CASE IT'S IN QUOTES */
>QUOTE = "'"
>QDSN = QUOTE||DSN||QUOTE /* FULLY QUOTED DSN */
>
>ADDRESS ISPEXEC
>"LMINIT DATAID( MYDATAID) DATASET(" QDSN ") ENQ(SHRW)"
>"LMOPEN DATAID("MYDATAID") OPTION(OUTPUT)"
>"LMMDEL DATAID("MYDATAID") MEMBER(*)"
>"LMCLOSE DATAID("MYDATAID")"
>"LMFREE DATAID("MYDATAID")"
>
> SAY DSN " IS NOW EMPTY"
>
Does this employ STOW INITIALIZE?:
https://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.idad400/stow.htm
Are there interfaces to INITIALIZE other than from assembler?
Does CBTTAPE PDSCLEAR now employ STOW INITIALIZE?
-- gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
