Matching records and rewriting in a file

ihatesugar · New User Joined: 22 Oct 2006 Posts: 43

Hi All,

i have a job at hand to incorporate the logic to fulfil the following requirement:

I have 2 Files. INPUT file and the Translation FILE

INPUT file is of 561 Byte length (FB). The value coming at Pos 551-552 (2Bytes) is to be checked at Pos 1 -2 (2Byte) in Translation File (80Byte-FB).If a match is found,then pick up corresponding value from POS 4-5
(2byte) in Translation file and overwrite it at Pos 551-552 in INPUT file.

i have a limitation of not coding a NEW COBOL program due to code movement issue.

Any ideas to do this would be highly appreciated.

ihatesugar · New User Joined: 22 Oct 2006 Posts: 43

I tried using ICETOOL,Splice command it doesnt seem to work. This being can urgent requirement can someone help me with this?

Frank Yaeger · Posted: Fri Jun 01, 2007 1:03 am

ihatesugar · New User Joined: 22 Oct 2006 Posts: 43

DATA in INPUT FILE POS 561-562(Key)

01
02
03
04
05
..
..
..

DATA in TRANSLATION FILE
POS 1-2 POS 3-4
01 AL
02 SE
05 TD

so my INPUT file must be modified at POS 561-562 with value from POS 3-4 of TRANSLATION file if a match is found in translation file

hope i was able to state my requirement clearly

ihatesugar · New User Joined: 22 Oct 2006 Posts: 43

The JOB runs fine but in the SPOOL it says DFSORT not Licensed on this System.

what needs to be done in this case. Is this utility Shop specific.

what could be the alternative.

thanks for your quick response.

Frank Yaeger · Posted: Fri Jun 01, 2007 2:03 am

ihatesugar · New User Joined: 22 Oct 2006 Posts: 43

Sorry for the late reply... i was able to achieve the same using SYNCTOOL, as my shop didnt support DFSORT but had SYNCSORT instead..

Thanks all for your valuable replies.