Funções intrínsecas - CURRENT-DATE

FUNCTION CURRENT-DATE

A função "FUNCTION CURRENT-DATE" retorna 21 caracteres alfanuméricos cujo o valor representa a data e a hora do dia corrente.

Formato geral: FUNCTION CURRENT-DATE

Regras:

1. O tipo desta função é alfanumérica - PIC X(021)

2. O lay-out desta função, enumeradas da esquerda para a direita, são as seguintes:

Posição

Conteúdo

01-04

quatro dígitos numéricos do ano do calendário gregoriano

05-06

dois dígitos numéricos do mes de um ano, na faixa de 01 até 12

07-08

dois dígitos numéricos do dia de um mes, na faixa de 01 até 31

09-10

dois dígitos numéricos das horas pós a meia-noite, na faixa de 00 até 23

11-12

dois dígitos numéricos dos minutos pós a hora, na faixa de 00 até 59

13-14

dois dígitos numéricos dos segundos pós o minuto, na faixa de 00 até 59

15-16

dois dígitos numéricos dos miléssimo de segundos pós o segundo, na faixa de 00 até 99

17-21

o valor -0000. Reservado para uso futuro

Exemplo

  
 *-----------------------------------------------------------------
  WORKING-STORAGE SECIOTN.
 *-----------------------------------------------------------------
  01  SYS-CORRENTE-DATA.  
      05  SYS-COR-SECULO-ANO   PIC 9(004) VALUE ZEROES.  
      05  SYS-CORRENTE-MES     PIC 9(002) VALUE ZEROES.  
      05  SYS-CORRENTE-DIA     PIC 9(002) VALUE ZEROES.  
      05  SYS-CORRENTE-HORA    PIC 9(002) VALUE ZEROES.  
      05  SYS-CORRENTE-MINUTOS PIC 9(002) VALUE ZEROES.  
      05  SYS-CORRENTE-SEGUNDO PIC 9(002) VALUE ZEROES.  
      05  SYS-CORRENTE-MILSEG  PIC 9(002) VALUE ZEROES.   
      05  SYSTEM-CURRENT-GMT   PIC X(005) VALUE SPACES.  
  
		 
 *-----------------------------------------------------------------
  PROCEDURE DIVISION. 
 *-----------------------------------------------------------------

 * sintaxe do comando   
 MOVE FUNCTION CURRENT-DATE TO SYS-CORRENTE-DATA

 * Resultado: SYS-CORRENTE-DATA    : 2006012010253699-0000