MVSFORUMS.com

[patnekar]

Hi,
I have 2 files say A and B

Both have LERCL=80 and RECFM=FB. I have to strip matching records from FILE-B based on records in FILE-A.

[kolusu]

Puru,

What is the maximum records in FILE-A? Also what is the length of the key ?

Kolusu

[patnekar]

Kolusu,
I have around 100,000 records in FILE-A. FILE-B has around a million records.
The length of the sort key(for the above example) is 4. In practice this will be 13 bytes in char format.

Thanks,
Puru

[kolusu]

Puru,

100,000 records are too much for generating the include/omit cards. I can't think of any way to do it using syncsort built-in features. I Don't know INSYNC, so I cannot speak about that.

I guess you are better off coding a cobol program. You can use the logic in this topic

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

Hope this helps...

cheers

kolusu

[patnekar]

Kolusu,
Thank you. I think I'll go in for the COBOL pgm itself.

Thanks,
Puru

[patnekar]

Kolusu,
Incase FILE-A has around 100 records and FILE-B has a million records and the sort length is still 13 bytes, how do I generate INCLUDE/OMIT cards??

Thanks

Puru

[kolusu]

Puru,
The following JCL will give you the desired results. I assumed that the key in both the files starts in position 1 for a length of 13. The first copy will generate the include condition keys.The second copy will extract the keys in the include condition from file-b.

[patnekar]

Kolusu,
Thanks a ton. Alternatively I used INSYNC to generate a sort card, and then used that sort card to strip FILE-B

This is what I used

[kolusu]

Puru,

Did you job actually run without any syntax error? you cannot have 2 include cond parms in your JCL. Your trailer file should only have

[patnekar]

Kolusu,
I fell again to copy/paste . Actualy the TLR contains only

1,13,CH,EQ,C'TRAILERDUMMY1')

Thanks for your time and detailed explanation.

Thanks,
Puru

[Mukunda]

Kolusu
This is absolute genius You are wonderful

[lal]

Hi Kolusu,
I tried to use your JCL..but

//STEP0100 EXEC PGM=SYNCTOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN=YOUR INPUT FILE-A,
// DISP=SHR
//IN2 DD DSN=YOUR INPUT FILE-B,
// DISP=SHR
//T1 DD DSN=&T1,DISP=(,PASS),SPACE=(CYL,(X,Y),RLSE)
//OUT DD DSN=YOUR OUTPUT FILE,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(X,Y),RLSE)
//TOOLIN DD *
COPY FROM(IN1) USING(CTL1)
COPY FROM(IN2) TO(OUT) USING(CTL2)
//CTL1CNTL DD *
OUTFIL FNAMES=T1,
OUTREC=(C' 1,13,CH,EQ,C''',1,13,C''',OR,',80:X)
//CTL2CNTL DD *
INCLUDE COND=(1,13,CH,EQ,C'TRUE COND ',OR,
// DD DSN=&T1,DISP=OLD,VOL=REF=*.T1
// DD *
1,13,CH,EQ,C'FALSE COND ')
//*

But I am getting an error like

WER428I CALLER-PROVIDED IDENTIFIER IS "0002"
WER002A EXCESS CARDS

The problem is the FILEA is having large number of records like 20000. So is there any way of solving this.
Please let me know..

Thanks,
Lal

[kolusu]

Lal,

If you have 20,000 include conditions, you CANNOT use synctool. Go with easytrieve or Cobol solution

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