IBM Mainframe Forum

Hi...

I need to compare a field of two consecutive records present in a seq file. My seq file looks like below :



I need to compare the current record element name with the previous record element name. i.e., ELENAME2 with ELENAME1, ELENAME3 with ELENAME2, ELENAME3 with ELENAME3 and so on.... when the two element names matches(as in case of ELENAME3) i need to process a subroutine, else the code flow will continue.

Please help me out, how to do this...??

read 1st records (EXECIO); until eof (DO WHILE); read next record (EXECIO); isolate the fields (PARSE); compare and process, or not (IF/THEN); repeat (END); finish program (EXIT)

(Fixed up to properly reflect the requirement as stated )

NicC wrote:read 2 records (EXECIO); until eof (DO WHILE); isolate the fields (PARSE); compare and process, or not (IF/THEN/ELSE); read 2 records (EXECIO); repeat (END); finish program (EXIT)

Then you'll miss out on comparing record 2 with record 3...

where are You facing problems ... the logic or the code ?

here is a hint for the logic ...



for the equal case add the proper flags to check for more than one duplicate

Ah - *******! First read through I thought he was comparing consecutive pairs not just a simple next v last. So all you need is Enrico's logic but I am not sure is < or > is relevant? The requirement just seems to be "IF equal values THEN process. Get next record"

implementing full sequence checking is one of my pet peeves ...