IDENTIFICATION DIVISION.
PROGRAM-ID.  ACCEPT.
AUTHOR.      CARLOS ALBERTO DORNELLES.

* Este exemplo mostra como o ACCEPT pode ser usado para obter a 
* data e hora do sistema.

* O YYYYMMDD em "ACCEPT  DATA-ATUAL FROM DATE YYYYMMDD." 
* é um comando de formatação que garante que a data contenha um 
* ano de 4 dígitos.
* Se não for usado, o ano fornecido pelo sistema será
* de apenas dois dígitos que podem causar problemas no ano 2000.

DATA DIVISION.
WORKING-STORAGE SECTION.

* YYYYMMDD

01  DATA-ATUAL.
    05  ANO-ATUAL      PIC 9(004).
    05  MES-ATUAL      PIC 9(002).
    05  DIA-ATUAL      PIC 9(002).

* YYYYDDD

01  DIA-ANO.
    05  FILLER         PIC 9(004).
    05  DIA-DO-ANO     PIC 9(003).

* HHMMSSss   s = S/100

01  TEMPO-ATUAL.
    05  HORA-ATUAL     PIC 9(002).
    05  MINUTO-ATUAL   PIC 9(002).
    05  FILLER         PIC 9(004).

PROCEDURE DIVISION.

001-INICIO.

    ACCEPT  DATA-ATUAL  FROM DATE YYYYMMDD.
    ACCEPT  DIA-ANO     FROM DAY YYYYDDD.
    ACCEPT  TEMPO-ATUAL FROM TIME.

    DISPLAY "Data é " DIA-ATUAL "/" MES-ATUAL "/" ANO-ATUAL.
    DISPLAY "Hoje é o dia " DIA-DO-ANO " do ano ".
    DISPLAY "A hora é " HORA-ATUAL ":" MINUTO-ATUAL.

    STOP RUN.

Resultado do teste: dados de 22/10/2020

Data é 22/10/2020
Hoje é o dia 295 do ano 
A hora é 10:38

IDENTIFICATION DIVISION.
PROGRAM-ID.  ACCEPT.
AUTHOR.      CARLOS ALBERTO DORNELLES.

DATA DIVISION.
WORKING-STORAGE SECTION.

01  WSS-CAMPOS-AUXILIARES.
    05 WS-YYYYMMDD           PIC  X(008)            VALUE SPACES. 
    05 WS-YYMMDD             PIC  X(006)            VALUE SPACES. 
    05 WS-HHMMSS             PIC  X(006)            VALUE SPACES. 
    05 WS-HHMMSSCC           PIC  X(008)            VALUE SPACES. 
    05 WS-DIA-SEMANA         PIC  9(001)            VALUE ZEROES. 
    05 WS-ANO-DIA            PIC  9(005)            VALUE ZEROES. 

PROCEDURE DIVISION.
   
001-INICIO.

    ACCEPT WS-YYYYMMDD   FROM DATE YYYYMMDD                      
    ACCEPT WS-YYMMDD     FROM DATE                               
    ACCEPT WS-HHMMSS     FROM TIME                               
    ACCEPT WS-HHMMSSCC   FROM TIME                               
    ACCEPT WS-DIA-SEMANA FROM DAY-OF-WEEK                        
    ACCEPT WS-ANO-DIA    FROM DAY                                

    DISPLAY "Data de hoje     " WS-YYYYMMDD                         
    DISPLAY "Data de hoje     " WS-YYMMDD                                    
    DISPLAY "Horas do dia     " WS-HHMMSS                                    
    DISPLAY "Horas do dia     " WS-HHMMSSCC                                  
    DISPLAY "Dia da Semana    " WS-DIA-SEMANA                         
    DISPLAY "Ano e dia do ano " WS-ANO-DIA                                    

    STOP RUN.

Resultado do teste: dados de 22/10/2020

Data de hoje     20201022
Data de hoje     201022
Horas do dia     103617
Horas do dia     10361779
Dia da Semana    4
Ano e dia do ano 20295