That's the one, thanks!
Sent with Proton Mail secure email. ------- Original Message ------- On Wednesday, December 21st, 2022 at 11:50 AM, allan winston <[email protected]> wrote: > 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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
