Third Vs. Fourth GLs
COBOL
OPEN INPUT EMPLOYEE-FILE.
READ EMPLOYEE-FILE.
PERFORM WHILE NOT EOF
IF EMP-ID = SEARCH-KEY
DISPLAY EMP-ID " "
EMP-FIRST-NAME " "
EMP-LAST-NAME " "
EMP-YTD-PAY
END-IF
READ EMPLOYEE-FILE
END-PERFORM.
SQL
SELECT EMP-ID,
EMP-FIRST-NAME,
EMP-LAST-NAME,
EMP-YTD-PAY
FROM EMPLOYEE
WHERE EMP-ID=1234
Previous slide
Next slide
Back to first slide
View graphic version