[ 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