|
View previous topic :: View next topic
|
| Author |
Message |
justjpr
New User
Joined: 03 Nov 2022
Posts: 36
Location: INDIA
|
|
|
|
Merge 2 files with a key and insert a blank line if key changes.
Both files have same layout and PS, LRECL=80.
Key length is 9, STARTPOS= 12.
Key is repeatable in both files. Both input files are already sorted by the key. It is not necessary that key in INPUT-FILE1 file always has matching records in INPUT-FILE2 and vice versa.
| Code: |
----+----1----+----2----+----3----+----4----+----5
INPUT-FILE1 :
FILE1-L1W1 F1K1 FILE1-L1W2FILE1-L1W3
FILE1-L2W1 F1K1 FILE1-L2W2FILE1-L2W3
FILE1-L3W1 F1K2 FILE1-L3W2FILE1-L3W3
FILE1-L4W1 F1K3 FILE1-L4W2FILE1-L4W3
FILE1-L5W1 F1K3 FILE1-L5W2FILE1-L5W3
FILE1-L6W1 F1K3 FILE1-L6W2FILE1-L6W3
----+----1----+----2----+----3----+----4----+----5
INPUT-FILE2 :
FILE2-L1W1 F1K1 FILE2-L1W2FILE2-L1W3
FILE2-L2WA F1K1 FILE2-L2WBFILE2-L2WC
FILE2-L3W1 F1K3 FILE2-L3W2FILE2-L3W3
FILE2-L4W1 F1K3 FILE2-L4W2FILE2-L4W3
FILE2-L5W1 F1K4 FILE2-L5W2FILE2-L5W3
FILE2-L6W1 F1K4 FILE2-L6W2FILE2-L6W3
FILE2-L7W1 F1K5 FILE2-L7W2FILE2-L7W3
----+----1----+----2----+----3----+----4----+----5
OUTPUT-FILE :
FILE1-L1W1 F1K1 FILE1-L1W2FILE1-L1W3
FILE1-L2W1 F1K1 FILE1-L2W2FILE1-L2W3
FILE2-L1W1 F1K1 FILE2-L1W2FILE2-L1W3
FILE2-L2WA F1K1 FILE2-L2WBFILE2-L2WC
FILE1-L3W1 F1K2 FILE1-L3W2FILE1-L3W3
FILE1-L4W1 F1K3 FILE1-L4W2FILE1-L4W3
FILE1-L5W1 F1K3 FILE1-L5W2FILE1-L5W3
FILE1-L6W1 F1K3 FILE1-L6W2FILE1-L6W3
FILE2-L3W1 F1K3 FILE2-L3W2FILE2-L3W3
FILE2-L4W1 F1K3 FILE2-L4W2FILE2-L4W3
FILE2-L5W1 F1K4 FILE2-L5W2FILE2-L5W3
FILE2-L6W1 F1K4 FILE2-L6W2FILE2-L6W3
FILE2-L7W1 F1K5 FILE2-L7W2FILE2-L7W3
|
I know this can be done using SORT-JOINKEYS. But I don't know how to write it. When refering few topics here, some code like below will do; but I dont know what to write in JNF1& JNF2 control cards and how to insert blank lines.
| Code: |
//JOINSTEP EXEC PGM=SORT
//IN1 DD DISP=SHR,DSN=<INPUT-FILE1>
//IN2 DD DISP=SHR,DSN=<INPUT-FILE2>
//SORTOUT DD DISP=SHR,DSN=<OUTPUT-FILE>
//SYSIN DD *
JOINKEYS F1=IN1,FIELDS=(12,9,A),SORTED,NOSEQCK
JOINKEYS F2=IN2,FIELDS=(12,9,A),SORTED,NOSEQCK
JOIN UNPAIRED,F1,F2,ONLY
OPTION COPY
OUTREC BUILD=(1,80)
//JNF1CNTL DD *
INREC OVERLAY=?
//JNF2CNTL DD *
INREC OVERLAY=?
/*
|
|
|
| Back to top |
|
 |
sergeyken
Senior Member
Joined: 29 Apr 2008
Posts: 2272
Location: USA
|
|
|
|
Those statements are not needed for your task:
| Code: |
| JOIN UNPAIRED,F1,F2,ONLY |
| Code: |
//JNF1CNTL DD *
INREC OVERLAY=?
//JNF2CNTL DD *
INREC OVERLAY=? |
This statement must be added, to format a combined line properly:
| Code: |
| REFORMAT FIELDS=(F1:...,F2:...) |
In order to insert empty lines, read about
| Code: |
| OUTFIL ...,SECTIONS=(...,HEADER3=,...TRAILER3=...) |
That's it. |
|
| Back to top |
|
|
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015
Posts: 1431
Location: Bamberg, Germany
|
|
|
|
Better approach would be to use MERGE instead of JOINKEYS. Your input is already sorted, so only the OUTFIL SECTIONS is required after the merge. The result from my test:
| Code: |
****** **************************** Datenanfang *******
000001 FILE1-L1W1 F1K1 FILE1-L1W2FILE1-L1W3
000002 FILE1-L2W1 F1K1 FILE1-L2W2FILE1-L2W3
000003 FILE2-L1W1 F1K1 FILE2-L1W2FILE2-L1W3
000004 FILE2-L2WA F1K1 FILE2-L2WBFILE2-L2WC
000005
000006 FILE1-L3W1 F1K2 FILE1-L3W2FILE1-L3W3
000007
000008 FILE1-L4W1 F1K3 FILE1-L4W2FILE1-L4W3
000009 FILE1-L5W1 F1K3 FILE1-L5W2FILE1-L5W3
000010 FILE1-L6W1 F1K3 FILE1-L6W2FILE1-L6W3
000011 FILE2-L3W1 F1K3 FILE2-L3W2FILE2-L3W3
000012 FILE2-L4W1 F1K3 FILE2-L4W2FILE2-L4W3
000013
000014 FILE2-L5W1 F1K4 FILE2-L5W2FILE2-L5W3
000015 FILE2-L6W1 F1K4 FILE2-L6W2FILE2-L6W3
000016
000017 FILE2-L7W1 F1K5 FILE2-L7W2FILE2-L7W3
****** **************************** Datenende ********* |
|
|
| Back to top |
|
|
justjpr
New User
Joined: 03 Nov 2022
Posts: 36
Location: INDIA
|
|
|
|
Thank you Joerg.Findeisen for working on my request. BTW you posted the result (looks good), but not the SORTCARD that you have used. Please post SORTCARD also, that is very useful to me.
FYI. I started learning JOINKEYS, SECTIONS, SPLICE etc. |
|
| Back to top |
|
|
Rohit Umarjikar
Global Moderator
Joined: 21 Sep 2010
Posts: 3109
Location: NYC,USA
|
|
|
|
Always search before posting and try with closest solution you find and then post if it still not working.
Joerg may have not given ready solution purposely to let you try.
See here is the link to how it’s done. Trailer will add spaces once key changes in sections and now you can get it to work.
ibmmainframes.com/about60093.html |
|
| Back to top |
|
|
sergeyken
Senior Member
Joined: 29 Apr 2008
Posts: 2272
Location: USA
|
|
|
|
| justjpr wrote: |
Thank you Joerg.Findeisen for working on my request. BTW you posted the result (looks good), but not the SORTCARD that you have used. Please post SORTCARD also, that is very useful to me.
FYI. I started learning JOINKEYS, SECTIONS, SPLICE etc. |
Much more useful for you would be: learning how to do your own job, not only how to use the result of others work as if it was done by yourself. |
|
| Back to top |
|
|
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015
Posts: 1431
Location: Bamberg, Germany
|
|
|
|
Assign DD:SORTIN01 and DD:SORTIN02 accordingly, then this minimalistic snippet should work.
| Code: |
MERGE FIELDS=(12,9,CH,A,1,11,CH,A)
OUTFIL SECTIONS=(12,9,SKIP=L) |
|
|
| Back to top |
|
|
|
|
  |
All times are GMT + 6 Hours |
|
