Re: Accessing a VSAM file

Here's something for mainframe COBOL that is untested.  Use either
dynam or seq.

START YR-FILE KEY >= '124789bbbb'
PERFORM UNTIL ( START-AGE <= 36 AND END-AGE >= 36)
OR  EMP-D > '124789'
OR  EOF-YR-FILE
READ YR-FILE NEXT AT END
SET EOF-YR-FILE TO TRUE
END-READ
END-PERFORM
IF EMP-D > '124789'
OR
OEF-YR-FILE
DISPLAY 'CONDITION NOT FOUND'
EXIT (or some such)
ELSE
DISPLAY 'EUREKA!!! IT'S >' RATE '<'
END-IF