Use the DELDUPES XEDIT macro from the DELMACS PACKAGE from the IBM download
site. It will require sorting the recs, but it will do the job for
you. Call it from within XEDIT or just XEDIT the file manually, set the
zone to whatever you want to delete on and enter DELDUPES.
Jim
At 09:08 PM 6/27/2006, you wrote:
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
------_=_NextPart_001_01C69A4F.5605EA80
Content-Type: text/plain
All:
Is there a "simple" method of finding (and possibly deleting)
records in a CMS fixed-length file whose first 20 characters are the same?
For example, if I have 5 records whose first 20 characters are the same, is
there a method of recognizing them and possibly dropping specific ones?
The only idea I came up with was to sort the file and manually
"read" through (with EXECIO) and check them. Is there an easier way that I
am missing?
This needs to be done from a Rexx EXEC.
David Wakser
InfoCrossing
Confidentiality Note: This e-mail, including any attachment to it, may
contain material that is confidential, proprietary, privileged and/or
"Protected Health Information," within the meaning of the regulations under
the Health Insurance Portability & Accountability Act of 1996. If it is not
clear that you are the intended recipient, you are hereby notified that you
have received this transmittal in error, and any review, dissemination,
distribution or copying of this e-mail, including any attachment to it, is
strictly prohibited. If you have received this e-mail in error, please
immediately return it to the sender and delete it from your system. Thank
you.
------_=_NextPart_001_01C69A4F.5605EA80
Content-Type: text/html
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
All:
Is there a = "simple" method of finding (and possibly deleting)
records in = a CMS fixed-length file whose first 20 characters are the
same? For = example, if I have 5 records whose first 20 characters are
the same, is = there a method of recognizing them and possibly dropping
specific = ones?
The only = idea I came up with was to sort the file and manually
"read" = through (with EXECIO) and check them. Is there an easier way
that I am = missing?
This needs = to be done from a Rexx EXEC.
David Wakser
InfoCrossing
Confidentiality Note: This e-mail, including any = attachment to it, may
contain material that is confidential, = proprietary, privileged and/or
"Protected Health = Information," within the meaning of the regulations
under the = Health Insurance Portability & Accountability Act of 1996. If
it is = not clear that you are the intended recipient, you are hereby
notified = that you have received this transmittal in error, and any
review, = dissemination, distribution or copying of this e-mail, including
any = attachment to it, is strictly prohibited. If you have received this
= e-mail in error, please immediately return it to the sender and delete =
it from your system. Thank you.
------_=_NextPart_001_01C69A4F.5605EA80--
Jim Bohnsack
Cornell Univ.
(607) 255-1760
