|
View previous topic :: View next topic
|
| Author |
Message |
shreyashighosh
New User
Joined: 02 Dec 2005
Posts: 5
Location: India
|
|
|
|
I have two files.
I need to match the first 20 characters of file1 with that of file2 using SORT and write the records matching in both the files in one o/p file and the non-matching records in another file. |
|
| Back to top |
|
 |
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
It's not clear what exactly you want for the output records, so I'll take a guess. Here's a DFSORT/ICETOOL job that shows how to put ALL of the dups (from both files) in one output file and ALL of the nondups (from both files) in another output file. I've used some sample records for input and output to show what it does. If that's not what you want, then show sample records of your own for input and output to indicate what you do want.
| Code: |
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//CON DD *
33333333333333333333
88888888888888888888
44444444444444444444
11111111111111111111
55555555555555555555
/*
// DD *
55555555555555555555
22222222222222222222
33333333333333333333
99999999999999999999
/*
//DUPS DD SYSOUT=*
//NODUPS DD SYSOUT=*
//TOOLIN DD *
SELECT FROM(CON) TO(DUPS) ON(1,20,CH) ALLDUPS DISCARD(NODUPS)
/*
|
DUPS will have:
| Code: |
33333333333333333333 F1
33333333333333333333 F2
55555555555555555555 F1
55555555555555555555 F2
|
NODUPS will have:
| Code: |
11111111111111111111 F1
22222222222222222222 F2
44444444444444444444 F1
88888888888888888888 F1
99999999999999999999 F2
|
|
|
| Back to top |
|
|
shreyashighosh
New User
Joined: 02 Dec 2005
Posts: 5
Location: India
|
|
|
|
This is working. Thanks a lot  |
|
| Back to top |
|
|
annujp
New User
.jpg)
Joined: 31 Aug 2005
Posts: 39
Location: St Paul,MN
|
|
|
|
I have a similar issue.
I need to match the first 15 characters of first file with 15 characters of another file which is from position 20.
How can i specify this in the select function above?
Do i have to use SPLICE command? |
|
| Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
It depends on exactly what you need to do.
Please show an example of the records in each of your input files and what you expect for output. If input file1 can have duplicates within it, show that in your example. If input file2 can have duplicates within it, show that in your example. Also, tell me the RECFM and LRECL of each input file. |
|
| Back to top |
|
|
annujp
New User
Joined: 31 Aug 2005
Posts: 39
Location: St Paul,MN
|
|
|
|
My first file looks like this
12345123456789012345
----------------------------
11111000000030000001
11111000000030000003
11111000000030000005
11111000000030000005
11111000000030000005
11111000000030000007
11111000000030000008
11111000000030000008
11111000000030000008
11111000000030000009
11111000000030000010
and second file is like this
123456789012345
---------------------
000000030000001
000000030000002
000000030000003
000000030000004
000000030000005
000000030000006
000000030000007
000000030000008
000000030000009
000000030000010
My requirement is
1) Compare the 15 bytes of the first file (starting posn =5) with the 15 bytes of the second file (starting posn =1)
2)records of the first file that have a match in the second file has to be written into a match file. Even the duplicate records should be written into the match file.
3)records of the first file that dont have a match in the second file has to be written into an unmatch file. This includes the duplicate records also.
is this possible in ICETOOL? |
|
| Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
Here's a DFSORT/ICETOOL job that will do what you asked for:
| Code: |
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN=... input file1 (FB/20)
//IN2 DD DSN=... input file2 (FB/15)
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(MOD,PASS)
//MATCH DD DSN=... output file1 (FB/20)
//NOMATCH DD DSN=... output file2 (FB/20)
//TOOLIN DD *
COPY FROM(IN2) TO(T1) USING(CTL1)
COPY FROM(IN1) TO(T1) USING(CTL2)
SPLICE FROM(T1) TO(MATCH) ON(6,15,CH) -
KEEPBASE KEEPNODUPS WITHALL WITH(1,21) USING(CTL3)
/*
//CTL1CNTL DD *
OUTREC BUILD=(6:1,15,21:C'BB')
/*
//CTL2CNTL DD *
OUTREC OVERLAY=(21:C'VV')
/*
//CTL3CNTL DD *
OUTFIL FNAMES=MATCH,INCLUDE=(21,2,CH,EQ,C'VB'),
BUILD=(1,20)
OUTFIL FNAMES=NOMATCH,INCLUDE=(21,2,CH,EQ,C'VV'),
BUILD=(1,20)
/*
|
|
|
| Back to top |
|
|
rini
New User
Joined: 16 May 2006
Posts: 6
|
|
|
|
Frank,
can you explain me what function does this code actually do?
| Code: |
SPLICE FROM(T1) TO (MATCH) ON(6,15,CH) -
KEEPBASE KEEPNODUPS WITHALL WITH(1,21) USING(CTL3)
|
And can you explain me
| Code: |
| OUTREC BUILD=(6:1,15,21:C'BB') |
what is 'BB" mean? |
|
| Back to top |
|
|
rajesh_1183
Active User
Joined: 24 Nov 2005
Posts: 121
Location: Tadepalligudem
|
|
|
|
Infact u can do this using SAS also.....
here is the JCL to execute....
| Code: |
//JOBNAME# JOB (00126,'SAS TST'),'SASTST',
// CLASS=A,MSGCLASS=Z
//STEP001 EXEC SAS
//DD1 DD DSN=input1.dsn,DISP=SHR
//DD2 DD DSN=INPUT2.DSN,DISP=SHR
//DD3 DD DSN=OUTPUT.MATCH.DSN,DISP=SHR
//DD4 DD DSN=OUTPUT.MISMATCH.DSN,DISP=SHR
//SYSIN DD *
DATA EXAMPLE1;
INFILE DD1;
INPUT @1 CONT_NO $10.
@11 AGE $2.
;
RUN;
DATA EXAMPLE2;
INFILE DD2;
INPUT @1 CODE $4.
@5 CONT_NO $10.
@15 AGE $2.
;
RUN;
DATA EXAMPLE3
EXAMPLE4;
LENGTH RECORD $80.;
MERGE EXAMPLE1(IN=INA)
EXAMPLE2(IN=INE);
BY CONT_NO;
IF INA AND INE THEN DO;
RECORD=TRIM(CODE)||TRIM(CONT_NO)||TRIM(AGE);
OUTPUT EXAMPLE3;
END;
ELSE DO;
RECORD=TRIM(CODE)||TRIM(CONT_NO)||TRIM(AGE);
OUTPUT EXAMPLE4;
END;
RUN;
FILENAME DD3 'OUTPUT.MATCH.DSN';
DATA _NULL_;
SET EXAMPLE3;
FILE DD3;
PUT @1 RECORD $80.
;
RUN;
FILENAME DD4 'OUTPUT.MISMATCH.DSN';
DATA _NULL_;
SET EXAMPLE4;
FILE DD4;
PUT @1 RECORD $80.
;
RUN;
/*
//
|
Thanks,
Rajesh |
|
| Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
| Back to top |
|
|
|
|
