COBOL MAINFRAME QUEST

COBOL Mainframe Quest: The Y2K Bug

Save the eLearner.app banking system before midnight on December 31, 1999! Modify picture clauses, implement century expansion logic, and execute PERFORM loops to defeat the Y2K bug.

Time to Midnight

10:00.48

MISSION DIRECTIVE

In 1999, years were stored with only two digits (e.g., PIC 99). This will cause crashes at midnight! Update the 'WS-YEAR' variable in the WORKING-STORAGE section of the COBOL program to support 4 digits for the year (use PIC 9(4) or PIC 9999).

Variable Spec

05  WS-YEAR    PIC 99.

--> PIC 9(4) o PIC 9999

Stuck?

Learn the fundamental concepts in the COBOL course to solve this challenge.

MAINFRAME COBOL EDITOR

Edit COBOL source divisions.

Loading editor…