Tested with 24108 record length:
REMDUP .a .b 2 200 NXDUP ; del .a .b NX all; res Before .A X111111111111111111111111111111111111111111111111111111 000200 X111111111111111111111111111111111111111111111111111111 000300 X111111111111111111111111111111111111111111111111111111 000400 X111111111111111111111111111111111111111111111111111111 000500 X111111111111111111111111111111111111111111111111111111 000600 X111111111111111111111111111111111111111111111111111111 000700 X111111111111111111111111111111111111111111111111111111 000800 X111111111111111111111111111111111111111111111111111111 000900 X111111111111111111111111111111111111111111111111111111 001000 X111111111111111111111111111111111111111111111111111111 001100 X111111111111111111111111111111111111111111111111111111 001200 X111111111111111111111111111111111111111111111111111111 001300 X111111111111111111111111111111111111111111111111111111 001400 X111111111111111111111111111111111111111111111111111111 001500 X111111111111111111111111111111111111111111111111111111 001600 X111111111111111111111111111111111111111111111111111111 001700 X111111111111111111111111111111111111111111111111111111 001800 X111111111111111111111111111111111111111111111111111111 001900 X111111111111111111111111111111111111111111111111111111 002000 X111111111111111111111111111111111111111111111111111111 002100 X111111111111111111111111111111111111111111111111111111 002200 Y111111111111111111111111111111111111111111111111111111 002300 Y111111111111111111111111111111111111111111111111111111 002400 X222222222222222222222222222222222222222222222222222222 002410 Y222222222222222222222222222222222222222222222222222222 002500 Y333333333333333333333333333333333333333333333333333333 002600 X3333333333333333333333333333333333333333333333333333333 002700 Y3333333333333333333333333333333333333333333333333333333 002800 Y3333333333333333333333333333333333333333333333333333333 .B Y3333333333333333333333333333333333333333333333333333333 After 002500 Y333333333333333333333333333333333333333333333333333333 I sent the REXX to your email address Paolo. HTH, Wayne On Tue, Aug 3, 2010 at 9:46 AM, Paulo Roberto Leonardo Pereira <[email protected]> wrote: > I'd like to try to use a REXX. My record file has (LRECL) = 24108 and > I need to compare almost entire record (just not for 26 bytes of > extract timestamp). > > > 2010/8/2 Wayne Bickerdike <[email protected]>: >> The REXX I referred to was written by David McRitchie. >> >> So to use this REXX you would append a '1' to dataset 1 say in cc 1 >> and a '2' to dataset 2. >> >> Merge the two datasets and sort on cc 2,n and 1,1. >> >> The command REMDUP .a .b 2 81 NXDUP ; del all nx ;res >> >> Will leave just the unique entries behind (assume LRECL 80 of original >> dataset). >> >> I can post the source here if necessary. >> >> >> >> On Tue, Aug 3, 2010 at 7:44 AM, Natarajan Mohan <[email protected]> wrote: >>> Do you have a key to compare with or the whole record? You could look in >>> to sort/splice. >>> >>> ftp://ftp.software.ibm.com/storage/dfsort/mvs/sorttool.pdf >>> >>> Natarajan >>> >>> On 08/02/2010 01:43 PM, Paulo Roberto Leonardo Pereira wrote: >>>> >>>> Exactly what I need. I have 2 input files that I need to compare them >>>> and generate a delta file. >>>> >>>> >>>> >>>> 2010/8/2 J R<[email protected]>: >>>> >>>>> My interpretation of the OP is that he wants the delta file to be in the >>>>> same format as the original files, ie. the ones that he *input* to the >>>>> compare process. >>>>> >>>>> >>>>> >>>>> >>>>>> Date: Mon, 2 Aug 2010 12:42:38 -0500 >>>>>> From: [email protected] >>>>>> Subject: Re: SuperCE >>>>>> To: [email protected] >>>>>> >>>>>> >>>>>>> -----Original Message----- >>>>>>> From: IBM Mainframe Discussion List >>>>>>> [mailto:[email protected]] On Behalf Of Paulo Roberto >>>>>>> Leonardo Pereira >>>>>>> Sent: Monday, August 02, 2010 12:29 PM >>>>>>> To: [email protected] >>>>>>> Subject: SuperCE >>>>>>> >>>>>>> Hi everyone >>>>>>> >>>>>>> I need to compare 2 data-sets in MVS and generate a delta file like >>>>>>> input format. Can SuperCE do it ? >>>>>>> >>>>>>> Paulo >>>>>>> >>>>>> Input to what? IEBUPDTE? I am not a SuperCE expert, but I think that the >>>>>> UPDMVS8 (sequence numbers in 73-80) might do what you want. >>>>>> >>>>>> -- >>>>>> John McKown >>>>>> Systems Engineer IV >>>>>> IT >>>>>> >>>>>> Administrative Services Group >>>>>> >>>>>> HealthMarkets(r) >>>>>> >>>>>> 9151 Boulevard 26 * N. Richland Hills * TX 76010 >>>>>> (817) 255-3225 phone * (817)-961-6183 cell >>>>>> [email protected] * www.HealthMarkets.com >>>>>> >>>>>> Confidentiality Notice: This e-mail message may contain confidential or >>>>>> proprietary information. If you are not the intended recipient, please >>>>>> contact the sender by reply e-mail and destroy all copies of the original >>>>>> message. HealthMarkets(r) is the brand name for products underwritten and >>>>>> issued by the insurance subsidiaries of HealthMarkets, Inc. -The >>>>>> Chesapeake >>>>>> Life Insurance Company(r), Mid-West National Life Insurance Company of >>>>>> TennesseeSM and The MEGA Life and Health Insurance Company.SM >>>>>> >>>>>> >>>>>> >>>>>> ---------------------------------------------------------------------- >>>>>> 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 >>>> . >>>> >>>> >>> >>> NOTICE OF CONFIDENTIALITY >>> >>> The information contained in this communication, including but not limited >>> to any accompanying document(s) and/or attachment(s), is privileged and >>> confidential and is intended solely for the above-named individual(s). If >>> you are not the intended recipient, please be advised that any distribution, >>> copying, disclosure, and/or use of the information contained herein is >>> strictly prohibited. If you received this communication in error, please >>> destroy all copies of the communication, whether in electronic or hard copy >>> format, and immediately contact the Security Office at EdFund at (916) >>> 526-7539 or [email protected]. Thank you. >>> >>> ---------------------------------------------------------------------- >>> 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 >>> >> >> >> >> -- >> Wayne V. Bickerdike >> >> ---------------------------------------------------------------------- >> 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 > -- Wayne V. Bickerdike ---------------------------------------------------------------------- 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
