[ Replying to myself ]
> >
> > -----Original Message-----
> > From: Ron Wells [mailto:snip]
> >
> > Looking for a rexx/clist that may do the following...
> >
> > have (2) members... each one in a seperate pds..
> > each member is a list of names..
> > wanting to compare each member and see what is missing from the
> > other..
> > problem..
> > name in oone member is (7) char's. vs the other member is (8) char..
> > the member with (7) char's is missing first character the
> other member
> > has.....
> >
> > so--pds member - 1 (7)char's c123456 ...... member -2 (8)
> char's ...
> > bc123456...
It occurred to me after I sent this that your member2 list might also
need de-duping in positions 2 - 7. Revisions indicated with <** to the
right.
>
> ICETOOL can do this easily (assumes LRECL=80):
>
> //SPLICE01 EXEC PGM=ICETOOL
> //TOOLMSG DD SYSOUT=*
> //DFSMSG DD SYSOUT=*
> //PRINT DD SYSOUT=*
> //IND1 DD DISP=SHR,DSN=my.input.file(member1)
> //IND2 DD DISP=SHR,DSN=my.input.file(member2)
> //OUTD DD DISP=(,CATLG),DSN=my.output.file,
> // UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE)
> //TEMP DD DISP=(MOD,PASS),DSN=&&TEMP,
> // UNIT=WORKDA,SPACE=(CYL,(2,1),RLSE)
> //CTL1CNTL DD *
> OUTREC FIELDS=(X,1,80)
> /*
> //CTL2CNTL DD *
> OUTREC FIELDS=(1,80,X)
> /*
> //TOOLIN DD *
> COPY FROM(IND1) TO(TEMP) USING(CTL1)
> SELECT FROM(IND2) TO(TEMP) - <**
> ON(2,7,CH) - <**
> FIRST - <** (or LAST; your choice)
> USING(CTL2) <**
> SELECT FROM(TEMP) TO(OUTD) -
> ON(2,7,CH) -
> NODUPS
> /*
Also, if the last byte of member1's records is not needed, you can
change the OUTREC in CTL1 to:
//CTL1CNTL DD *
OUTREC FIELDS=(X,1,79)
and omit the USING(CTL2) from the first SELECT statement (and omit the
CTL2CNTL statement entirely).
-jc-
----------------------------------------------------------------------
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
