Also, DELDUPS from CBT.. - Vignesh Mainframe Infrastructure
-----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Sri h Kolusu Sent: Wednesday 06-Jun-2018 21:09 To: [email protected] Subject: [EXTERNAL] Re: compares Dean, You can use DFSORT to remove the duplicates and generate a single list of unique tape numbers. Example: //STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DISP=SHR,DSN=Your pds(member01) // DD DISP=SHR,DSN=Your pds(member02) // DD DISP=SHR,DSN=Your pds(member03) ... // DD DISP=SHR,DSN=Your pds(member10) //SORTOUT DD SYSOUT=* //SYSIN DD * SORT FIELDS=(P,M,F,A) SUM FIELDS=NONE /* //* P = Position of the tape number field //* M = Length of the tape number field //* F = Format of the tape number fields (CH, ZD, BI, PD...) //* A = Ascending sequence Thanks, Kolusu DFSORT Development IBM Corporation IBM Mainframe Discussion List <[email protected]> wrote on 06/06/2018 07:58:28 AM: > From: "Nai, Dean" <[email protected]> > To: [email protected] > Date: 06/06/2018 08:10 AM > Subject: compares > Sent by: IBM Mainframe Discussion List <[email protected]> > > > >Howdy, > > I have numerous lists of tape numbers that I need to compare so I > can remove any duplicate and only keep them in one list. Any ISPF or > other utilities for me to run the compares? I have 10 members with > over 100 tape numbers in each. Thanks in advance for any > suggestions.....Dean > > ---------------------------------------------------------------------- > 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 MARKSANDSPENCER.COM ________________________________ Unless otherwise stated above: Marks and Spencer plc Registered Office: Waterside House 35 North Wharf Road London W2 1NW Registered No. 214436 in England and Wales. Telephone (020) 7935 4422 Facsimile (020) 7487 2670 www.marksandspencer.com Please note that electronic mail may be monitored. This e-mail is confidential. If you received it by mistake, please let us know and then delete it from your system; you should not copy, disclose, or distribute its contents to anyone nor act in reliance on this e-mail, as this is prohibited and may be unlawful. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
