Scratching Expired Datasets
Is there a way to scratch expired datasets without DFHSM or some other storage manager? We create SMS datasets in DB2 that have an expiration date automatically set. When the datasets expire, we want to scratch them. Eric -- Eric Bielefeld Systems Programmer Washington University St Louis, Missouri 314-935-3418 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Scratching Expired Datasets
IF you are using CA-1 you can scratch via the panels... Option 2 Lucy Arnold Storage Manager U.C. Davis Medical Center 916-734-5498 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Scratching Expired Datasets
We use Zara for a tape manager. We are looking for an automated solution to scratching expired datasets. Scratching via panels wouldn't do. Eric Lucy Arnold <[EMAIL PROTECTED]> wrote: > IF you are using CA-1 you can scratch via the panels... > Option 2 > > > Lucy Arnold > Storage Manager > U.C. Davis Medical Center > 916-734-5498 > -- Eric Bielefeld Systems Programmer Washington University St Louis, Missouri 314-935-3418 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Scratching Expired Datasets
"Eric Bielefeld" <[EMAIL PROTECTED]> wrote in message news:<[EMAIL PROTECTED]>... > Is there a way to scratch expired datasets without DFHSM or some other storage manager? We create SMS datasets in DB2 that have an expiration date automatically set. When the datasets expire, we want to scratch them. > > Eric > -- I suppose you mean Dasd datasets: what comes to my mind is to run DCOLLECT and find the datasets with passed expiration dates. Hopefully you have MXG/SAS to do this or else you should develope an assembler or Rexx program. Kees. ** For information, services and offers, please visit our web site: http://www.klm.com. This e-mail and any attachment may contain confidential and privileged material intended for the addressee only. If you are not the addressee, you are notified that no part of the e-mail or any attachment may be disclosed, copied or distributed, and that any other action related to this e-mail or attachment is strictly prohibited, and may be unlawful. If you have received this e-mail by error, please notify the sender immediately by return e-mail, and delete this message. Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its employees shall not be liable for the incorrect or incomplete transmission of this e-mail or any attachments, nor responsible for any delay in receipt. Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch Airlines) is registered in Amstelveen, The Netherlands, with registered number 33014286 ** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Scratching Expired Datasets
Hi Eric, In respect of your question:- "Is there a way to scratch expired datasets without DFHSM or some other storage manager? We create SMS datasets in DB2 that have an expiration date automatically set. When the datasets expire, we want to scratch them." I will assume these are disk based data sets rather than cartridge based as I would expect the Tape Management software to automatically return expired cartridges to the scratch pool. In respect of disk based data sets I have two batch jobs in my daily schedule which assist in tidying disk space. Non-DB2 Data Sets Any standard Sequential, Partitioned or VSAM data set is dealt with via ADRDSSU run outside of DFHSM control. This actually uses last used data, but looking at the manual the BY keyword does have an EXPDT option, so adapting this process my help with these. DB2 Table Spaces All old DB2 Tables Spaces are removed from the system with the aid of a batch REXX routine which invokes DB2 Services and executes appropriate SQL statements to DROP the tables. Both of these techniques help to avoid volume pollution on my system. I hope this is of use. Kind regards - Terry Terry Sambrooks Director KMS-IT Limited 228 Abbeydale Road South Dore, Sheffield, S17 3LA, UK Tel: +44 (0)114 262 0933 WEB: www.legac-e.co.uk Company Reg: 3767263 at the above address All outgoing E-mail is scanned, but it remains the recipient's responsibility to ensure their system is protected from spy-ware, trojans, viruses, and worms. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Scratching Expired Datasets
"Is there a way to scratch expired datasets without DFHSM or some other storage manager? We create SMS datasets in DB2 that have an expiration date automatically set. When the datasets expire, we want to scratch them." There are several utility programs to do this on the CBT tape. I haven't looked recently to see which files are relevant. Think "SUPERSCRATCH" HTH, -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Scratching Expired Datasets
This is in response to several replies. The datasets I want to expire are DB2 log files. They are on disk, and are just PS files. I also don't have ADRDSSU, which would make life very easy. Allan Stallar (I think) mentioned SuperScratch on the CBT tape. I found that, and will download it and see just what it does. Someone else mentioned using DCOLLECT to list the datasets, and then scratch the expired ones with Rexx. That is also a possibility. I think I have enough to go on now. Thanks for all the help. Eric Terry Sambrooks <[EMAIL PROTECTED]> wrote: > Hi Eric, > > In respect of your question:- > > "Is there a way to scratch expired datasets without DFHSM or some other > storage manager? We create SMS datasets in DB2 that have an expiration date > automatically set. When the datasets expire, we want to scratch them." > > I will assume these are disk based data sets rather than cartridge based as > I would expect the Tape Management software to automatically return expired > cartridges to the scratch pool. > > In respect of disk based data sets I have two batch jobs in my daily > schedule which assist in tidying disk space. > > Non-DB2 Data Sets > > Any standard Sequential, Partitioned or VSAM data set is dealt with via > ADRDSSU run outside of DFHSM control. This actually uses last used data, but > looking at the manual the BY keyword does have an EXPDT option, so adapting > this process my help with these. > > DB2 Table Spaces > > All old DB2 Tables Spaces are removed from the system with the aid of a > batch REXX routine which invokes DB2 Services and executes appropriate SQL > statements to DROP the tables. > > Both of these techniques help to avoid volume pollution on my system. I hope > this is of use. > > Kind regards - Terry > > Terry Sambrooks > Director > KMS-IT Limited > 228 Abbeydale Road South > Dore, Sheffield, S17 3LA, UK > > Tel: +44 (0)114 262 0933 > WEB: www.legac-e.co.uk > -- Eric Bielefeld Systems Programmer Washington University St Louis, Missouri 314-935-3418 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Scratching Expired Datasets
Check your sys1.linklib for the program ADRDSUSU. It is part of the basic system and it is used in the CBPDO Installs. -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Eric Bielefeld Sent: Tuesday, September 23, 2008 11:17 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: Scratching Expired Datasets This is in response to several replies. The datasets I want to expire are DB2 log files. They are on disk, and are just PS files. I also don't have ADRDSSU, which would make life very easy. Allan Stallar (I think) mentioned SuperScratch on the CBT tape. I found that, and will download it and see just what it does. Someone else mentioned using DCOLLECT to list the datasets, and then scratch the expired ones with Rexx. That is also a possibility. I think I have enough to go on now. Thanks for all the help. Eric Terry Sambrooks <[EMAIL PROTECTED]> wrote: > Hi Eric, > > In respect of your question:- > > "Is there a way to scratch expired datasets without DFHSM or some other > storage manager? We create SMS datasets in DB2 that have an expiration date > automatically set. When the datasets expire, we want to scratch them." > > I will assume these are disk based data sets rather than cartridge based as > I would expect the Tape Management software to automatically return expired > cartridges to the scratch pool. > > In respect of disk based data sets I have two batch jobs in my daily > schedule which assist in tidying disk space. > > Non-DB2 Data Sets > > Any standard Sequential, Partitioned or VSAM data set is dealt with via > ADRDSSU run outside of DFHSM control. This actually uses last used data, but > looking at the manual the BY keyword does have an EXPDT option, so adapting > this process my help with these. > > DB2 Table Spaces > > All old DB2 Tables Spaces are removed from the system with the aid of a > batch REXX routine which invokes DB2 Services and executes appropriate SQL > statements to DROP the tables. > > Both of these techniques help to avoid volume pollution on my system. I hope > this is of use. > > Kind regards - Terry > > Terry Sambrooks > Director > KMS-IT Limited > 228 Abbeydale Road South > Dore, Sheffield, S17 3LA, UK > > Tel: +44 (0)114 262 0933 > WEB: www.legac-e.co.uk > -- Eric Bielefeld Systems Programmer Washington University St Louis, Missouri 314-935-3418 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Scratching Expired Datasets
I searched my linklist and I don't have any ADRDSUSU programs. I also searched my 1.7 serverpack doc and didn't find ADRDSUSU. Eric "Cebell wrote: > Check your sys1.linklib for the program ADRDSUSU. > It is part of the basic system and it is used in the CBPDO Installs. > -- Eric Bielefeld Systems Programmer Washington University St Louis, Missouri 314-935-3418 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Scratching Expired Datasets
ADRDSSU, note original poster had it wrong -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Eric Bielefeld Sent: Tuesday, September 23, 2008 11:30 To: IBM-MAIN@BAMA.UA.EDU Subject: Re: Scratching Expired Datasets I searched my linklist and I don't have any ADRDSUSU programs. I also searched my 1.7 serverpack doc and didn't find ADRDSUSU. Eric "Cebell wrote: > Check your sys1.linklib for the program ADRDSUSU. > It is part of the basic system and it is used in the CBPDO Installs. > -- Eric Bielefeld Systems Programmer Washington University St Louis, Missouri 314-935-3418 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Scratching Expired Datasets
My typo ISB //COPY1 EXEC PGM=ADRDSSU,REGION=4M -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Eric Bielefeld Sent: Tuesday, September 23, 2008 11:30 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: Scratching Expired Datasets I searched my linklist and I don't have any ADRDSUSU programs. I also searched my 1.7 serverpack doc and didn't find ADRDSUSU. Eric "Cebell wrote: > Check your sys1.linklib for the program ADRDSUSU. > It is part of the basic system and it is used in the CBPDO Installs. > -- Eric Bielefeld Systems Programmer Washington University St Louis, Missouri 314-935-3418 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Scratching Expired Datasets
OK. But as I said in one of my posts, we don't license DFSMSDSS, which is ADRDSSU. I think the reason for IBM charging separately for DFSMSDSS is that long ago FDR came out with their backup product, so IBM had to charge for DFSMSDSS. The same thing happened with SYNCSORT and IBM Sort. Eric "Field wrote: > ADRDSSU, note original poster had it wrong > > -Original Message- > From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On > Behalf Of Eric Bielefeld > Sent: Tuesday, September 23, 2008 11:30 > To: IBM-MAIN@BAMA.UA.EDU > Subject: Re: Scratching Expired Datasets > > I searched my linklist and I don't have any ADRDSUSU programs. I also > searched my 1.7 serverpack doc and didn't find ADRDSUSU. > > Eric-- Eric Bielefeld Systems Programmer Washington University St Louis, Missouri 314-935-3418 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Scratching Expired Datasets
I would check your SYS1.PARMLIB(IGDDFPKG). This should indicate which level of SMS you are using. -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Eric Bielefeld Sent: Tuesday, September 23, 2008 11:44 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: Scratching Expired Datasets OK. But as I said in one of my posts, we don't license DFSMSDSS, which is ADRDSSU. I think the reason for IBM charging separately for DFSMSDSS is that long ago FDR came out with their backup product, so IBM had to charge for DFSMSDSS. The same thing happened with SYNCSORT and IBM Sort. Eric "Field wrote: > ADRDSSU, note original poster had it wrong > > -Original Message- > From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On > Behalf Of Eric Bielefeld > Sent: Tuesday, September 23, 2008 11:30 > To: IBM-MAIN@BAMA.UA.EDU > Subject: Re: Scratching Expired Datasets > > I searched my linklist and I don't have any ADRDSUSU programs. I also > searched my 1.7 serverpack doc and didn't find ADRDSUSU. > > Eric-- Eric Bielefeld Systems Programmer Washington University St Louis, Missouri 314-935-3418 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Scratching Expired Datasets
Cebell, David wrote: Check your sys1.linklib for the program ADRDSUSU. It is part of the basic system and it is used in the CBPDO Installs. That's ADRDSSU. ADRDSSU is the program name for DFSMSdss, included in one of the priced features of z/OS. While always installed, it is not always licensed. I'm not aware that it's used by CBPDO in any way. (CBPDO is processed using SMP/E's GIMSMP program, not DFSMSdfp's ADRDSSU.) -- John Eells z/OS Technical Marketing IBM Poughkeepsie [EMAIL PROTECTED] -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Scratching Expired Datasets
Yes, you will have the program, but unless of the site is licensed for DSS, it cannot be used. Wayne Driscoll Product Developer NOTE: All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Cebell, David Sent: Tuesday, September 23, 2008 11:34 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: Scratching Expired Datasets My typo ISB //COPY1 EXEC PGM=ADRDSSU,REGION=4M -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Eric Bielefeld Sent: Tuesday, September 23, 2008 11:30 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: Scratching Expired Datasets I searched my linklist and I don't have any ADRDSUSU programs. I also searched my 1.7 serverpack doc and didn't find ADRDSUSU. Eric "Cebell wrote: > Check your sys1.linklib for the program ADRDSUSU. > It is part of the basic system and it is used in the CBPDO Installs. > -- Eric Bielefeld Systems Programmer Washington University St Louis, Missouri 314-935-3418 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Scratching Expired Datasets
Actually, if they look in the IFAPRDxx parmlib member, it will indicate if DFSMS/dss is enabled, if disabled, which is what Eric states, then they cannot use it. Wayne Driscoll Product Developer NOTE: All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Cebell, David Sent: Tuesday, September 23, 2008 11:52 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: Scratching Expired Datasets I would check your SYS1.PARMLIB(IGDDFPKG). This should indicate which level of SMS you are using. -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Eric Bielefeld Sent: Tuesday, September 23, 2008 11:44 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: Scratching Expired Datasets OK. But as I said in one of my posts, we don't license DFSMSDSS, which is ADRDSSU. I think the reason for IBM charging separately for DFSMSDSS is that long ago FDR came out with their backup product, so IBM had to charge for DFSMSDSS. The same thing happened with SYNCSORT and IBM Sort. Eric "Field wrote: > ADRDSSU, note original poster had it wrong > > -Original Message- > From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On > Behalf Of Eric Bielefeld > Sent: Tuesday, September 23, 2008 11:30 > To: IBM-MAIN@BAMA.UA.EDU > Subject: Re: Scratching Expired Datasets > > I searched my linklist and I don't have any ADRDSUSU programs. I also > searched my 1.7 serverpack doc and didn't find ADRDSUSU. > > Eric-- Eric Bielefeld Systems Programmer Washington University St Louis, Missouri 314-935-3418 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Scratching Expired Datasets
On 2008-09-22 at 17:40, Eric Bielefeld <[EMAIL PROTECTED]> wrote to IBM-
Main:
> Is there a way to scratch expired datasets without DFHSM or some other
> storage manager? We create SMS datasets in DB2 that have an expiration
> date automatically set. When the datasets expire, we want to scratch
> them.
Eric: in another message, you alluded to Innovation. FDReport Punch
to IdcAms Delete?
We're an FDR shop and I :
- use DCOLLECT to unload the MgmtClas Expiry values,
- SAS to massage the data and create XSELECT MGMTCLAS.EQ.,{EXPDT.GT.
or ADAYS.GT.} statements,
- FDReport Punch either Delete NonVsam for IdcAms or Delete,DSN= for
FDRArch.
That way, I don't have to trust others to set RETPD= on individual
datasets. Additionally, the expiry dates can be changed on the
MgmtClas and it's automatically active for all those datasets
regardless of their RETPD= values.
It's been working well since I first implemented it this summer.
Happy to share the process with anyone that wishes.
--> signature = 6 lines follows <--
Neil Duffee, Joe SysProg, U d'Ottawa, Ottawa, Ont, Canada
telephone:1 613 562 5800 x4585 fax:1 613 562 5161
mailto:NDuffee of uOttawa.ca http:/ /aix1.uottawa.ca/ ~nduffee
"How *do* you plan for something like that?" Guardian Bob, Reboot
"For every action, there is an equal and opposite criticism."
"Systems Programming: Guilty, until proven innocent" John Norgauer
2004
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Scratching Expired Datasets
On Mon, 22 Sep 2008 16:39:52 -0500, Eric Bielefeld wrote: >Is there a way to scratch expired datasets without DFHSM or some other storage manager? We create SMS datasets in DB2 that have an expiration date automatically set. When the datasets expire, we want to scratch them. > >Eric >-- >Eric Bielefeld >Systems Programmer >Washington University >St Louis, Missouri >314-935-3418 > >-- Hey Eric, I was curious about your request because I've been asked the same thing by our DB2 guys on an lpar that does not have HSM installed on it. I tinkered around with DCOLLECT and SORT (syncsort in our case) and was able to come up with something that might be workable. Here is an example you could use to generate a list of dataset names. You could then use sort to INCLUDE or OMIT what you do or do not want. Although I did not go as far as formatting the output to generate IDCAMS delete spreadcards it can be done very easily. I just wanted you to see the output to determine what the results looked like. //STEP01 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //OUTDSDD DSN=DISK.DATASET.DCOLLECT(+1), // UNIT=DISK, // DSORG=PS, // RECFM=VB,LRECL=932, // SPACE=(1,(5,25000),RLSE),AVGREC=K, // DISP=(NEW,CATLG,DELETE) //BCDS DD DSN=YOUR.BCDS,DISP=SHR //MCDS DD DSN=YOUR.MCDS,DISP=SHR //SYSINDD * DCOLLECT - OFILE(OUTDS) - ERRORLIMIT(1000) - VOLUMES(*) // //STEP04 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SORTDIAG DD DUMMY //SORTIN DD DSN=DISK.DATASET.DCOLLECT(+0),DISP=SHR //SORTOUT DD DSN=WORK.DATASET.WITH.OMITTED.RECORDS, // UNIT=DISK, // DSORG=PS, // RECFM=VB,LRECL=932, // SPACE=(1,(5,25000),RLSE),AVGREC=K, // DISP=(NEW,PASS,DELETE) //SYSINDD * OPTION DYNALLOC=(3390,2),MAINSIZE=300K SORT FIELDS=COPY *EXCLUDE RECORDS THAT ARE NOT DATASET RECORDS *AND RECORDS THAT HAVE A DATE VALUE OF 1900/000 OMIT COND=(9,1,CH,NE,C'D', OR,113,4,CH,EQ,X'000F') RECORD TYPE=V END //** //STEP05 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SORTDIAG DD DUMMY //SORTIN DD DSN=WORK.DATASET.WITH.OMITTED.RECORDS, // UNIT=DISK, // DISP=(OLD,PASS,DELETE) //SORTOUT DD SYSOUT=J //SYSINDD * OPTION DYNALLOC=(3390,2),MAINSIZE=300K SORT FIELDS=(29,44,CH,A) RECORD TYPE=V OUTFIL FNAMES=SORTOUT,CONVERT, *COPY DATASET NAME FROM DCOLLECT RECORDS *AND REFORMAT EXPIRATION DATE TO /DDD OUTREC=(1:29,44,C' ',113,4,DT3,EDIT=(/TTT)) /* // HTH, Gil. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
