SYNCSORT Query

CICS fan · Posted: Thu Jun 19, 2008 12:50 pm

I have two input files. fileA and File B.
Record length and layout are different for these two files.
Both Filea and File B contains carrier code and flight number

For file A, carrier code is at postion 1, length2
for fileB, its pos 120, length 2

for filea, flt number is pos3, length 4
for fileB, its pos 122, length 4
but for file B its in binary format and filea its displayable format

Requirement is whenver flight number AND carrier code of a rec in file B matches flt num AND carrier code of FileB, write fileB rec into fileC .If not matches write into FileD.

karthikr44 · Posted: Thu Jun 19, 2008 12:58 pm

Hi,

U can use joinkeys like below. Change the code with ur record position

THIS JCL WILL PRODUCE OUTPUT IF THE RECORD FROM F1 IS NOT FOUND IN F2.

//SORTTOOL EXEC PGM=SORT
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTJNF1 DD DSN=DEV2.RK.TEST(SSN),DISP=SHR
//SORTJNF2 DD DSN=DEV2.RK.TEST(SSNS17),DISP=SHR
//SORTOUT DD DSN=DEV2.RK.TEST(SSNCMP),DISP=SHR
//SYSIN DD *
SORT FIELDS=COPY
JOINKEYS FILES=F1,FIELDS=(1,9,A)
JOINKEYS FILES=F2,FIELDS=(1,9,A)
JOIN UNPAIRED,F1,ONLY
REFORMAT FIELDS=(F1:1,80)
/*
//*

Regards
R KARTHIK

CICS fan · Posted: Thu Jun 19, 2008 1:23 pm

But I need two output files,one for matched records and another for unmatched

Aaru · Posted: Thu Jun 19, 2008 3:36 pm

Hello CICS fan,

Please provide details of how your input and output looks like. ALso which sort product is installed in your site? DFSORT or SYNCSORT?

do search the forums for examples, try and then post the issues/errors that you face.

Alissa Margulies · Posted: Thu Jun 19, 2008 9:19 pm