COBOL - Funções intrínsecas


Volta a página anterior

Volta ao Menu Principal


Desenvolvido por DORNELLES Carlos Alberto - Analista de Sistemas - Brasília DF.

 WHEN-COMPILED
   
  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.  
   
   Formato geral: FUNCTION WHEN-COMPILED  
   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  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