|
View previous topic :: View next topic
|
| Author |
Message |
Saini19
New User
Joined: 12 Apr 2012
Posts: 23
Location: Singapore
|
|
|
|
Hi,
I need to compare two files of different lengths and key fields are at same positions. Please find the details as below:
INPUT FILES:
FILE-1, LRECL=35 & FB, Key field position - 7 to 14 (X(8)).
FILE-1, LRECL=38 & FB, Key field position - 7 to 14 (x(8)).
OUTPUT FILES:
OUTPUT, Same layout as of File-1.
Sample data:
File-1:
| Code: |
ABCDEF11111111WWW
ADGSHF22222222DGH
HGHDJK33333333DJD
JHDIII44444444UUO
HIHRIO55555555FHI
KHSFKL66666666RIU
UOWIWW77777777WPW |
File-2:
| Code: |
RURUIO11111111EYE
OTUEYE44444444TYR
IOUIRU66666666ROE
|
OUTPUT:
| Code: |
ABCDEF11111111WWW
JHDIII44444444UUO
KHSFKL66666666RIU |
I want the solution using ICETOOL only, i know it with SORT.
Also i am new to ICETOOL. |
|
| Back to top |
|
 |
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
|
|
|
|
Show us what you have with SORT please.
Can you explain this insistence on ICETOOL? Is it just for learning? |
|
| Back to top |
|
|
Skolusu
Senior Member
Joined: 07 Dec 2007
Posts: 2205
Location: San Jose
|
|
|
|
Saini19,
Use the following DFSORT/ICETOOL JCL which will give you the desired results
| Code: |
//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//SYMNOUT DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD *
ABCDEF11111111WWW
ADGSHF22222222DGH
HGHDJK33333333DJD
JHDIII44444444UUO
HIHRIO55555555FHI
KHSFKL66666666RIU
UOWIWW77777777WPW
//IN2 DD *
RURUIO11111111EYE
OTUEYE44444444TYR
IOUIRU66666666ROE
//OUT DD SYSOUT=*
//TOOLIN DD *
COPY JKFROM TO(OUT) USING(CTL1)
//*
//CTL1CNTL DD *
JOINKEYS F1=IN1,FIELDS=(7,8,A)
JOINKEYS F2=IN2,FIELDS=(7,8,A)
REFORMAT FIELDS=(F1:1,35)
//* |
|
|
| Back to top |
|
|
|
|
