IBM Mainframe Forum

I have a requirement in which I have to compare today's and previous day's file.

The file LRECL is 479

If the record is new in today's file then I need to write to a output file of the same LRECL with a CODE 'A' in the 470th position. If a record in previous day's file is not present in the current file, then I need to check the purge file which is of the same LRECL and write to the same output file with the CODE 'D' in the 470th position only if the record is not present in the history file. Also if the record in previous day's file of the same key doesn't match with the record in today's file then the output file should be written with the Code 'C' in 470th position.

There will be no duplicates in the file. Also the keys will be the first 38 bytes

Also I want to display in the sysout the number of records added, deleted and changed. I posted this in the DFSORT forum but the suggestion given by them using ICETOOL uses WHEN=GROUP which is not supported by SYNCSORT.

Can you please let me know if this is possible in SYNCSORT? Your help is greatly appreciated

Hello,

uses WHEN=GROUP which is not supported by SYNCSORT

WHEN=GROUP is supported by Syncsort. . .

More importantly, which sort product is in use on your system? If you post the informational messages generated by any sort execution, we can determine which product is in use.

I read in some previous message that sync sort will not support WHEN=GROUP. Below is the message which I get

SYNCSORT FOR Z/OS 1.3.0.2RI U.S. PATENTS: 4210961, 5117495 (C) 2007 SYNCS

SYNCSORT LICENSED FOR <X> LICE
CTL1CNTL :
INREC IFTHEN=(WHEN=GROUP,BEGIN=(1,3,CH,EQ,C'HDR'),PUSH=(480:ID=2)),
*
IFTHEN=(WHEN=(480,2,ZD,EQ,1),OVERLAY=(480:C'11',39,441)),
IFTHEN=(WHEN=(480,2,ZD,EQ,2),OVERLAY=(480:C'22'))

OUTFIL FNAMES=OUT,IFOUTLEN=479,OMIT=(480,2,ZD,EQ,12,AND,
(39,256,CH,EQ,482,256,CH,AND,296,184,CH,EQ,739,184,CH)),
IFTHEN=(WHEN=(480,2,ZD,EQ,11),OVERLAY=(470:C'D')),
IFTHEN=(WHEN=(480,2,ZD,EQ,12),OVERLAY=(470:C'C')),
IFTHEN=(WHEN=(480,2,ZD,EQ,22),OVERLAY=(470:C'A'))
WER428I CALLER-PROVIDED IDENTIFIER IS "0001"
WER268A INREC STATEMENT : SYNTAX ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000

Hello,

Your release of Syncsort (1.3.0) is not at the level that supports when=group. This was included in 1.3.2 if i remember correctly.

Possibly, your system support people can upgrade to the proper level.

Is there a way to write a sync sort for the same requirement?

Hello,

Yes - upgrade the software so it is current. . .

If your organization is unwilling to upgrade, some other alternative will be needed - possibly even writing code. . .

Hi Dick,

I think a SyncSort JOIN would be sufficient for the above problem. I am away from office now. Will try to post a solution tomorrow.

Hi Arun,

Thank you

d

gracemanoj,

This is untested. May be you can give this a try.