CURRENT-DATE

Escrito por

CURRENT-DATE

A função CURRENT-DATE em COBOL é uma ferramenta poderosa para obter a data e hora atuais, além da diferença de fuso horário em relação ao Meridiano de Greenwich. Ela retorna um valor alfanumérico de 21 caracteres, estruturado da seguinte forma:

  • Posições 1-4: Ano com quatro dígitos (por exemplo, 2025)
  • Posições 5-6: Mês com dois dígitos (01 a 12)
  • Posições 7-8: Dia com dois dígitos (01 a 31)
  • Posições 9-10: Hora no formato 24 horas (00 a 23)
  • Posições 11-12: Minutos (00 a 59)
  • Posições 13-14: Segundos (00 a 59)
  • Posições 15-16: Centésimos de segundo (00 a 99)
  • Posições 17-21: Diferença horária em relação ao GMT, em minutos

Para utilizar essa função, você pode movê-la para uma área de trabalho definida no seu programa COBOL. Por exemplo:

01 WS-CURRENT-DATE-FIELDS.
   05 WS-CURRENT-DATE.
      10 WS-CURRENT-YEAR    PIC 9(4).
      10 WS-CURRENT-MONTH   PIC 9(2).
      10 WS-CURRENT-DAY     PIC 9(2).
   05 WS-CURRENT-TIME.
      10 WS-CURRENT-HOUR    PIC 9(2).
      10 WS-CURRENT-MINUTE  PIC 9(2).
      10 WS-CURRENT-SECOND  PIC 9(2).
      10 WS-CURRENT-MS      PIC 9(2).
   05 WS-DIFF-FROM-GMT       PIC S9(4).

...

MOVE FUNCTION CURRENT-DATE TO WS-CURRENT-DATE-FIELDS

Essa abordagem permite acessar facilmente cada componente da data e hora atuais, facilitando operações como cálculos de datas ou formatação personalizada.

Para mais detalhes e exemplos sobre a função CURRENT-DATE em COBOL, visite o site CADCOBOL.

Para uma explicação visual e mais aprofundada sobre a função CURRENT-DATE em COBOL, confira o vídeo a seguir:

 

Referências:

https://www.cadcobol.com.br/histor_1.htm

 

Veja também: