MVSFORUMS.com

[sateesh_gontla]

Hi

We have 2 files with length 80 bytes each and we need to compare the first 10 bytes of each record in the file and and write the entire record into output if they are equal(first 10 bytes).

Please advise on this ......

Regards,
Sateesh

[kolusu]

sateesh_gontla,

please search before posting. check these links

http://www.mvsforums.com/helpboards/viewtopic.php?t=11&highlight=match

http://www.mvsforums.com/helpboards/viewtopic.php?t=4690&highlight=joinkeys

Hope this helps...

Cheers

kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

[sateesh_gontla]

Hi Kolusu,

Sorry ....Our question was not clear.

We have

File 1

12345 xxxxxxxxxxxxxxxxxxxxxxxxxx
23456 xxxxxxxxxxxxxxxxxxxxxxxxxx

File 2

12345 yyyyyyyyyyyyyyyyyyyyyyyyyy
99999 xxxxxxxxxxxxxxxxxxxxxxxxxx


Output we need like this :

Out file :

12345 xxxxxxxxxxxxxxxxxxxxxxxxxxx
12345 yyyyyyyyyyyyyyyyyyyyyyyyyy


Please help on this.

[kolusu]

sateesh_gontla,

Just concatenate the 2 files to IN dd name in the jcl shown in this topic.

http://www.mvsforums.com/helpboards/viewtopic.php?t=9&highlight=alldups

Hope this helps...

Cheers

kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

[shekar123]

Kolusu,

I have a requirement in which i want to compare two input files both of same format and length of only the first 5 bytes ,if they are equal i want to write those particluar records into a separate file without duplicates.

Code:

TECH022.DATA.ICE1 ********************************* Top of Data ********************************** 12345 RAM                                                                        33333 SENTHIL                                                                    78888 VENU                                                                      ******************************** Bottom of Data ******************************** TECH022.DATA.ICE2 ********************************* Top of Data ********************************** 12345 RAM                                                                        21156 MAHESH                                                                    33333 SENTHIL                                                                    78900 PRAKASH                                                                    ******************************** Bottom of Data ********************************

So i tried your JCL like below but i am not getting the desired output which i am expecting ,moreover i am getting records in duplicate.

Code:

//TECH022R JOB (TEST),'SORTJCLK',CLASS=A,MSGLEVEL=(1,), //             MSGCLASS=W,NOTIFY=&SYSUID                    //STEP0001 EXEC PGM=ICETOOL                                //TOOLMSG  DD SYSOUT=*                                      //DFSMSG   DD SYSOUT=*                                      //IN       DD DSN=TECH022.DATA.ICE1,DISP=SHR                //         DD DSN=TECH022.DATA.ICE2,DISP=SHR                //OUT      DD DSN=TECH022.DATA.ICEOUT,DISP=SHR              //TOOLIN   DD *                                              SELECT FROM(IN) TO(OUT) ON(1,5,CH) ALLDUPS                /*                                                          //

OUTPUT
---------

Code:

********************************* Top of Data ********************************** 12345 RAM                                                                        12345 RAM                                                                        33333 SENTHIL                                                                    33333 SENTHIL                                                                    ******************************** Bottom of Data ********************************

DESIRED OUTPUT
--------------------

Code:

********************************* Top of Data ********************************** 12345 RAM                                                                        33333 SENTHIL                                                                    ******************************** Bottom of Data ********************************

My understanding is that if we are using keyword ALLDUPS,the duplicate records are being printed in the output file.But if i am using keyword NODUPS i am getting the output below with non matching records,that means the records not matching are printed in the output file.Please guide me how do i get my desired output.

Code:

//TECH022R JOB (TEST),'SORTJCLK',CLASS=A,MSGLEVEL=(1,), //             MSGCLASS=W,NOTIFY=&SYSUID                    //STEP0001 EXEC PGM=ICETOOL                                //TOOLMSG  DD SYSOUT=*                                      //DFSMSG   DD SYSOUT=*                                      //IN       DD DSN=TECH022.DATA.ICE1,DISP=SHR                //         DD DSN=TECH022.DATA.ICE2,DISP=SHR                //OUT      DD DSN=TECH022.DATA.ICEOUT,DISP=SHR              //TOOLIN   DD *                                              SELECT FROM(IN) TO(OUT) ON(1,5,CH) NODUPS              /*                                                          //

OUTPUT
----------

Code:

********************************* Top of Data ********************************** 21156 MAHESH                                                                    78888 VENU                                                                      78900 PRAKASH                                                                    ******************************** Bottom of Data ********************************

_________________
Shekar
Grow Technically

[Ravi]

[kolusu]

Ravi,

You don't need 2 passes to get the desired data.

shekhar123,

Try this jcl.

[Ravi]

The earlier was a solution/post. Here is the correct version.

[Ravi]

Thank God!! Its not the same solution. I was thinking its a stupid solution but later came up with a better one.

My # of posts is just 5 and am a Beginner

[Frank Yaeger]

Shekar123 wrote

[Ravi]

[Ravi]

Kolusu.. (Asking him as hez the site moderator) Plz give me edit access for my posts.


>>>Think I have told you Frank, I love your signature and wish I could have something like that.. You are one of the persons who I know (thru this site) and has given solutions continously. I remember you just like my Math teacher.

(a+b)²= a ²+ b ² + 2 ab

The documentation of DFSORT is really good and its with lot of examples. We have SYNCSORT in our shop and I cannot make use of SPLICE operator. But felt that thru SORT utility we can avoid a lot of simple PL1/COBOL coding. Due to your helpful hints and solutions I now know a bit in using SORT utility.

[Frank Yaeger]

Ravi wrote

[shekar123]

Hi Frank Yaeger,

I really did not mean to address my query to Kolusu only(specific),actually if you see to what i have questioned,it is a continuation of Kolusu's replies to Sateesh_gontla.I just wanted to try out for my learning purpose.I have no intention in higlighting only one person in our forum and all our moderators are well experienced in the technologies and i have a gained a lot in improving my skills after i have joined this website.The answers to queries posted by members is answered in no time and this is the best site as of my knowledge.And for a beginer like me i cannot think of anything else / training to improve skills other than this website.

Frank,I was really surprised to see the links provided by and yourself being the part of DFSORT team .The content and the examples in the mini tutorial will defintely help me a lot and i have started reading through basic chapters.It is nice to have a experienced person like you as one of our moderator in specific area who can share wide experince with the members.

Well regarding Kolusu,i guess and i see that he answers to questions well early in the morning before 5:AM USA time as he gets up and i cannot say any more words for the work he does for our website.He for sure refreshes the helpboards screen surely once every ten minutes.Moderators please do keep up the good work you people are doing.
_________________
Shekar
Grow Technically

[kolusu]