Browsing the CBT documentation file (I may not have the latest version), I found this (note that Nigel Morton had previously suggested the use of the PARTREL macro):
//***FILE 959 is from Richard W. Pinion and contains a program * FILE 959 //* to release excess space from a list of datasets (by * FILE 959 //* name), without affecting the last-access date. * FILE 959 //* This program uses the PARTREL macro from SYS1.MACLIB. * FILE 959 //* * FILE 959 //* email: [email protected] * FILE 959 //* * FILE 959 //* The UCB lookup in this program uses the ULUT * FILE 959 //* (UCB Lookup Table) method, from CBT File 873, that * FILE 959 //* was pioneered by Gilbert Saint-flour. Please see * FILE 959 //* member $ULUNOTE for some background on this subject, * FILE 959 //* which is not documented by IBM. The easy-to-use * FILE 959 //* UCB Lookup Table macros were written by Sam Golob. * FILE 959 //* * FILE 959 //* PARTREL - RELEASES EXCESS SPACE FROM DATASETS, EITHER * FILE 959 //* CATALOGED, OR UNCATALOGED (WITH VOLSER). * FILE 959 //* * FILE 959 //* Further documentation: * FILE 959 //* * FILE 959 //* The PARTREL program takes input in the //INDD DD name * FILE 959 //* with the dataset name starting in column1, and optionally * FILE 959 //* the volser of the dataset, which is necessary if the * FILE 959 //* dataset is uncataloged, starting (for 6 characters) * FILE 959 //* in column 45. * FILE 959 //* * FILE 959 //* Model JCL for the //INDD DD card is as follows: * FILE 959 //* Please make sure that the "ruler" comment card does not * FILE 959 //* immediately follow the //INDD DD card, or a //SYSIN DD * * FILE 959 //* card will be generated, nullifying the //INDD DD * card. * FILE 959 //* * FILE 959 //* //PARTR01 EXEC PGM=PARTREL * FILE 959 //* //STEPLIB DD DSN=SYS1.W$$.LINKLIB,DISP=SHR * FILE 959 //* //SYSPRINT DD SYSOUT=* * FILE 959 //* //*-+----1----+----2----+----3----+----4----volser * FILE 959 //* //INDD DD * * FILE 959 //* IBMUSER.TEST.PARTREL.PDS2 VPWRKD * FILE 959 //* IBMUSER.TEST.PARTREL.PDS * FILE 959 //* /* * FILE 959 //* // * FILE 959 //* * FILE 959 //* member $ULUNOTE for some background on this subject, * FILE 959 //* which is not documented by IBM. The easy-to-use * FILE 959 //* UCB Lookup Table macros were written by Sam Golob. * FILE 959 //* * FILE 959 //* PARTREL - RELEASES EXCESS SPACE FROM DATASETS, EITHER * FILE 959 //* CATALOGED, OR UNCATALOGED (WITH VOLSER). * FILE 959 //* * FILE 959 //* Further documentation: * FILE 959 //* * FILE 959 //* The PARTREL program takes input in the //INDD DD name * FILE 959 //* with the dataset name starting in column1, and optionally * FILE 959 //* the volser of the dataset, which is necessary if the * FILE 959 //* dataset is uncataloged, starting (for 6 characters) * FILE 959 //* in column 45. * FILE 959 //* * FILE 959 //* Model JCL for the //INDD DD card is as follows: * FILE 959 //* Please make sure that the "ruler" comment card does not * FILE 959 //* immediately follow the //INDD DD card, or a //SYSIN DD * * FILE 959 //* card will be generated, nullifying the //INDD DD * card. * FILE 959 //* * FILE 959 //* //PARTR01 EXEC PGM=PARTREL * FILE 959 //* //STEPLIB DD DSN=SYS1.W$$.LINKLIB,DISP=SHR * FILE 959 //* //SYSPRINT DD SYSOUT=* * FILE 959 //* //*-+----1----+----2----+----3----+----4----volser * FILE 959 //* //INDD DD * * FILE 959 //* IBMUSER.TEST.PARTREL.PDS2 VPWRKD * FILE 959 //* IBMUSER.TEST.PARTREL.PDS * FILE 959 //* /* * FILE 959 //* // * FILE 959 //* * FILE 959 Allan On Wed, Dec 21, 2022 at 10:59 AM rpinion865 < [email protected]> wrote: > I thought I had submitted an assembler program to CBTTAPE.ORG for > releasing free space without the use of open/close. But, I can't > find it. If the original poster wants a copy of the program, I can > send it to her/him off list. The original program was written by > someone else, and I made a few modifications to get it to work in > the environment I was currently in. It uses the ULU macros created > by Sam Golob, for UCB lookup. > > > > > Sent with Proton Mail secure email. > > ------- Original Message ------- > On Wednesday, December 21st, 2022 at 7:46 AM, Seymour J Metz < > [email protected]> wrote: > > > > Assuming that OPEN/CLOSE is all that is required, you can do that in > batch ISPF using REXX, or CLIST if you're perverse. > > > > > > -- > > Shmuel (Seymour J.) Metz > > http://mason.gmu.edu/~smetz3 > > > > ________________________________________ > > From: IBM Mainframe Discussion List [[email protected]] on > behalf of David Cole [[email protected]] > > Sent: Wednesday, December 21, 2022 5:29 AM > > To: [email protected] > > Subject: Re: RLSE - A question about releasing unused tracks in a DASD > dataset > > > > Thanks Dave. I hadn't thought of that. Unfortunately, this has got to > > run in the batch (either normally or within batch TSO), so issuing a > > shortcut command interactively would not work for me. > > > > But if I investigate what the F does under the covers, maybe I'll > > find my solution. > > > > Thanks! > > Dave Cole > > > > > > > > > > > > > > At 12/21/2022 04:41 AM, Gibney, Dave wrote: > > > > > The F line command from ISPF 3.4 > > > > > > > -----Original Message----- > > > > > > > > > From: IBM Mainframe Discussion List [email protected] On > > > > > Behalf Of David Cole > > > > > Sent: Wednesday, December 21, 2022 1:20 AM > > > > > To: [email protected] > > > > > Subject: RLSE - A question about releasing unused tracks in a > > > > > DASD dataset > > > > > > > > > > [EXTERNAL EMAIL] > > > > > > > > > > Is there a way to release unused tracks in a classic z/OS PDS but > > > > > without having to open and close it? > > > > > > > > > > Or if opening/closing is required, is there a way to do that for a > > > > > PDS without knowing (or discovering) what members are in it, and > > > > > without creating a new member? > > > > > > > > > > Obviously, I could write something, but I don't want to. > > > > > And I cannot rely on the presence of any program or TSO command > that > > > > > does not come standard on a z/OS system? > > > > > > > > > > I don't think there is a way to do this, but I'd love for someone > to > > > > > prove me wrong. > > > > > > > > > > David Cole > > > > > [email protected] (personal) > > > > > [email protected] (business) > > > > > 540-456-6518 (cell) > > > > > > > > > > > ---------------------------------------------------------------------- > > > > > 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 > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
