COBOL MAINFRAME QUEST

Квест на мэйнфрейме COBOL: ошибка 2000 года

Сохраните банковскую систему eLearner.app до полуночи 31 декабря 1999 года! Измените предложения изображений, реализуйте логику расширения века и выполните циклы PERFORM, чтобы устранить ошибку Y2K.

Time to Midnight

10:00.40

MISSION DIRECTIVE

В 1999 году годы хранились только двумя цифрами (например, PIC 99). Это приведет к сбоям в полночь! Обновите переменную «WS-YEAR» в разделе WORKING-STORAGE программы COBOL, чтобы она поддерживала 4 цифры года (используйте PIC 9(4) или 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.

Загрузка редактора…