COBOL - Funções intrínsecas - WHEN-COMPILED

COBOL - Funções intrínsecas - WHEN-COMPILED

Intrinsic functions - Enterprise COBOL for z/OS 6.3.0

A função "FUNCTION WHEN-COMPILED" retorna 21 caracteres alfanuméricos cujo o valor representa a data e a hora da compilação do programa.

Regras:

O tipo desta função é alfanumérica - PIC X(021)
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	ois 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  WS-VARIAVEIS.                                  
           03  WS-DATA-COMP       PIC X(021) VALUE SPACES.
           03  WS-DATA-COMP-EDIT  PIC X(022) VALUE SPACES.

      *-----------------------------------------------------------------
       PROCEDURE DIVISION. 
      *-----------------------------------------------------------------
      * sintaxe do comando   

           MOVE FUNCTION WHEN-COMPILED TO WS-DATA-COMP  
 
           DISPLAY 'DATA COMPILACAO - ' WS-DATA-COMP     
           STRING                                        
                 WS-DATA-COMP(07:02) DELIMITED BY SIZE   
                                 '/' DELIMITED BY SIZE   
                 WS-DATA-COMP(05:02) DELIMITED BY SIZE   
                                 '/' DELIMITED BY SIZE   
                 WS-DATA-COMP(01:04) DELIMITED BY SIZE   
                              ' AS ' DELIMITED BY SIZE   
                 WS-DATA-COMP(09:02) DELIMITED BY SIZE   
                                 ':' DELIMITED BY SIZE   
                 WS-DATA-COMP(11:02) DELIMITED BY SIZE   
                                 ':' DELIMITED BY SIZE   
                 WS-DATA-COMP(13:02) DELIMITED BY SIZE   
             INTO                                        
                 WS-DATA-COMP-EDIT                       
           END-STRING                                    
           DISPLAY 'DATA COMPILACAO - ' WS-DATA-COMP-EDIT
           GOBACK.                                       


      * Resultado: WSS-DATA-COMP          : 2008021813343601-0301
      *            DATA COMPILACAO        : 18/02/2008 AS 13:34:36