Cobol - Re: Accessing a VSAM file

You are viewing an archived Text-only version of the thread. To view this thread in it's original format and/or if you want to reply to this thread please [click here]

Author

Re: Accessing a VSAM file

slade2

2005-11-27, 6:55 pm

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

Sponsored Links