MVSFORUMS.com

Kolusu,

Sort for the above mentioned column is not working correctly and the output is as follows:

2004-02-23-12.11.57.000000
2004-02-18-08.33.28.000000
2004-03-03-08.03.35.000000
2004-02-20- ...

Kolusu,

In my case I have two files and I compare them record by record after sorting them.I have to write all the deleted,added modified records in one output file.
Now lets say first 10 records ...

Hi Kolusu,

You had given me link to the file comparison program in COBOL earlier which compares 2 files record by record. These files are first sorted and then are compared like 1st record from fil ...

Hi,

I want to sort a COBOL file based on the Siebel column which is of type UTC date/time.(date and time combined). This column contain values like this 2003-11-12-10.14.36.000000

Can I do it us ...

Hi,

I am sorting a file containing a column with the following type of data. It is a fixed block file and this is the first column in the file.

Data is as follows:

..0-A8CD
..1-108V
..1-109 ...

FD A-FILE
LABEL RECORDS STANDARD
BLOCK CONTAINS 0 RECORDS
RECORDING MODE IS F.
01 A-FILE-REC PIC X(500).

FD B-FILE
LABEL RECORDS STANDARD
BLOCK CONTAINS 0 RECORDS
RECORDING ...

Yes, they are getting populated through the file reads of old and new files(new file read code I have already posted). I am moving high-value to N-AID in the read block if the file has reched the end ...

Sorry, it was a typo. It should be N-AID at all the places.

Hi Kolusu,

Here is the perform part:

decleration:

WORKING-STORAGE SECTION.
01 S-IN-NEW-FILE PIC X(01) VALUE 'N'.
01 S-IN-OLD-FILE PIC X(01) ...

Vini,

Since we are in the context of the code probelem I am facing, so Kolusu will understand better as to what I want to ask.

Hi Kolusu,

Are you there to reply my code queries.

Since the code was causing error I tried using the EVALUATE clause before the EVALUATE in the PROCESS which actually compares the keys from two files.

Could you please let me know as to how can i ...

Hi Kolusu,

I have code similar to what you have in the example(link you have given in your earlier reply), but still it is failing with the same error. i.e. reading after the end of file has occure ...

Hi,

I guess you wanted the data from the file. This column is the first one in the file and has values as follows:

When I see the file attributes it is FB having a block size.

..0-R9NH
..1-9 ...

I am not using variable length records. What is RDW?
I have a sort card which has only one statement like this.

SORT FIELDS=(1,15,CH,A)

I am calling this sort card in my JCL to sort the file ...