passing similar records of two files into third file.
Posted: Sun Oct 21, 2012 4:24 pm
I am a beginner in mainframes.I have started learning just a month back.I was asked to compare two files and pass the similar records into the third file.
I have sorted the files using jcl. The records in my file contain a single field. The field contains numbers.
HERE FILE-STAT11 AND FILE-STAT2 ARE FILE STATUS DATANAMES.
NUM1 ,NUM2,NUM3 ARE THE
I have sorted the files using jcl. The records in my file contain a single field. The field contains numbers.
HERE FILE-STAT11 AND FILE-STAT2 ARE FILE STATUS DATANAMES.
NUM1 ,NUM2,NUM3 ARE THE
PARA2.
PERFORM UNTILL FILE-STAT1 NOT =10 OR FILE-STAT2 NOT=10
IF NUM1=NUM2
MOVE NUM1 TO NUM3
WRITE NUM3
END IF.
IF NUM1>NUM2
PERFORM UNTIL FILE-STAT2 NOT = 10
READ FILE2
IF NUM1 = NUM2
WRITE NUM3 FROM NUM1
GOTO PARA2
END IF.
END PERFORM
END IF
IF NUM1<NUM2
PERFORM UNTIL FILE-STAT1 NOT =10
READ FILE1
IF NUM1 = NUM2
WRITE NUM3 FROM NUM1
GOTO PARA2
END IF.
END PERFORM.
END IF.
END PERFORM.
PERFORM UNTILL FILE-STAT1 NOT =10 OR FILE-STAT2 NOT=10
IF NUM1=NUM2
MOVE NUM1 TO NUM3
WRITE NUM3
END IF.
IF NUM1>NUM2
PERFORM UNTIL FILE-STAT2 NOT = 10
READ FILE2
IF NUM1 = NUM2
WRITE NUM3 FROM NUM1
GOTO PARA2
END IF.
END PERFORM
END IF
IF NUM1<NUM2
PERFORM UNTIL FILE-STAT1 NOT =10
READ FILE1
IF NUM1 = NUM2
WRITE NUM3 FROM NUM1
GOTO PARA2
END IF.
END PERFORM.
END IF.
END PERFORM.