IBM Mainframe Forum

We have different match techniques using JoinKeys mentioned below:
Match, FB, keys in same place, no duplicates
Match, key in different places, no duplicates
No match, FB, key in different places, no duplicates
No match, VB, key in different places, no duplicates
Match and no match, FB, key in same place, no duplicates
Match, FB, keys in different places, duplicates
No match, FB, keys in different places, duplicates
No match, VB, key in different places, duplicates

I wanted to know if there is code to fetch the mated records for the VB files:

Match, VB, keys in same place, no duplicates

Regards,
Naveen N

You need to give more details. Please show an example of the records in each input file (relevant fields only) and what you expect for output. Explain the "rules" for getting from input to output. Give the starting position, length and format of each relevant field. Give the RECFM and LRECL of the input files. If file1 can have duplicates within it, show that in your example. If file2 can have duplicates within it, show that in your example.

Hi Frank,

Sorrty for the incomplete information.

Input file 1 is VB file with Key starting at 43 length 10 and Record length of 32756.
Input file 2 is VB file with Key starting at 03 length 10 and Record length of 32756

Input file 1 has duplicates on key 43 and lenth 10.

The output i need it in File 2 format for the matching records between file 1 and 2.

I executed the below JCL and output file had zero records.

//STEP01 EXEC PGM=SORT
//SORTJNF1 DD DSN=ZJ00.SXXXX.XXXXX.COPY, //File 1 VB block
// DISP=SHR
//SORTJNF2 DD DSN=ZJ00.XXXX.XXXXX.COPY1, //File 2 VB block
// DISP=SHR
//SORTOUT DD DSN=ZJ00.PMCD516S.SEP29.MATCH, Output in VB
// DISP=(NEW,CATLG,DELETE),
// DATACLAS=DCALNL,
// MGMTCLAS=MCTSO,
// DCB=(SYS1.MODEL,RECFM=VB,LRECL=32756,BLKSIZE=0,BUFNO=99)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
JOINKEYS FILE=F1,FIELDS=(47,10,A) //Key start at 43 (since it VB added plus 4)
JOINKEYS FILE=F2,FIELDS=(7,10,A) //Key start at 3 (since it VB added plus 4)
REFORMAT FIELDS=(F2:1,4,32756) // Need matching records from File 2
SORT FIELDS=COPY
/*

If I understand what you want, then an example of input and output would be:

Input file1 (VB)


Input file2 (VB)



Output file (VB)


If that's what you want, then you can use a DFSORT JOINKEYS job like the following:



If that's not what you want then you need to do a better job of explaining what you do want with input and output examples.

Thanks for the solution.

Regards,
Naveen N