COBOL MAINFRAME QUEST

Missão do mainframe COBOL: o bug do ano 2000

Salve o sistema bancário eLearner.app antes da meia-noite de 31 de dezembro de 1999! Modifique cláusulas de imagem, implemente lógica de expansão de século e execute loops PERFORM para derrotar o bug do ano 2000.

Time to Midnight

10:00.86

MISSION DIRECTIVE

Em 1999, os anos eram armazenados com apenas dois dígitos (por exemplo, PIC 99). Isso causará travamentos à meia-noite! Atualize a variável 'WS-YEAR' na seção WORKING-STORAGE do programa COBOL para suportar 4 dígitos para o ano (use PIC 9(4) ou 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.

Carregando editor…