IDENTIFICATION DIVISION. PROGRAM-ID. PROGCOB03. **
* AREA DE COMENTÁRIOS - REMARKS
* AUTHOR = LUCAS CAVALHERI
* OBJETIVO: RECEBER A DATA DO SISTEMA
* UTILIZAR AS VARIÁVEIS COM NÍVEL 01.02... (VARIÁVEL ESTRUTURADA)
* DATA = 11\03\2022
**********************************
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WRK-DATA.
02 WRK-ANO PIC 9(04) VALUE ZEROS.
02 WRK-MES PIC 9(04) VALUE ZEROS.
02 WRK-DIA PIC 9(04) VALUE ZEROS.
PROCEDURE DIVISION.
ACCEPT
DISPLAY
STOP RUN.
ESTÁ DANDO UM ERRO: PICTURE CLAUSE REQUIRED FOR 'WRK-ANO'
COMO RESOLVER?
OBRIGADO!