How to write a masked variable to a file using Easytrieve.

santhoshm · New User Joined: 13 Jun 2007 Posts: 32 Location: chennai

Hi,

I need to compare two files of same record layout, and write the difference to a third file.

We are using a field(var1) as key to compare (IF MATCHED).
Each record has a field(var2) which is eg. “$123.45” cobol declaration is $(9).9(2)

This field(var2) in both the files has to be compared and if different then written to an output file.

Second time when the kay (var1) matches again we compare the field(var2) and if different then written to an output file.

Every time we write record to output file the field(var2) has to be summed. i.e. var3 = var3 + var2

My question is how to convert the $123.45 to 00000012345, for computing ?

And how to write a masked variable to output file in easytrieve? E.g. 00000012345 to $123.45 and write to a file in easytrieve. It should display as $123.45 in the file.

Bill Woodger · Posted: Wed Oct 31, 2012 4:55 pm

Both of these things have been covered before if you look through/search the Easytrieve topics here.

The second part (as CA provide some code for the first part, I believe you'll discover, look for a posting by Jose) is more tricky for you. The easiest way is to write a Cobol file exit for a "dummy" PRINTER FILE. Otherwise, go without it edited (why does it need to be edited?) or do the editing "manually" with some code.

EDIT:

An example PRINTER EXIT is now here.