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.

 FUNCTION REM
   
  A função "FUNCTION REM" retorna um valor numérico que é resto do primeiro argumento dividido pelo o segundo argumento.  
   
   Formato geral: FUNCTION REM (arg1 , arg2)
                             arg1 é um numérico ou um argumento inteiro
                             arg2 é um numérico ou um argumento inteiro cujo valor não pode ser igual a zero 		 
   Regras:  
                               1. O tipo desta função é um numérico - PIC 9(XXX)  
                               2. O valor retornado é o resto da divisão do primeiro argumento pelo segundo.  
   
   

 Exemplo
  
       
      *-----------------------------------------------------------------
       WORKING-STORAGE SECIOTN.
      *-----------------------------------------------------------------

       01  WS-AUXILIARES.  
           05  WS-RESULTADO              PIC 9(010) VALUE ZEROES.   
           05  WS-DIF-1                  PIC 9(010) VALUE ZEROES.
           05  WS-DIF-2                  PIC 9(010) VALUE ZEROES.       
		 
      *-----------------------------------------------------------------
       PROCEDURE DIVISION. 
      *-----------------------------------------------------------------

      * sintaxe do comando  

      * exemplo 01: 

           COMPUTE WSS-RESULTADO = FUNCTION REM (121 , 2)            
           DISPLAY 'FUNCTION REM ........ - ' WSS-RESULTADO     

      * Resultado: FUNCTION REM ........ - 0000000001 

      * exemplo 02: 
                                                                     
           MOVE 00010 TO WS-DIF-1                                    
           MOVE 00005 TO WS-DIF-2                                    
           COMPUTE WSS-RESULTADO = FUNCTION REM (WS-DIF-1 , WS-DIF-2)
           DISPLAY 'FUNCTION REM ........ - ' WSS-RESULTADO     

      * resultado: FUNCTION REM ........ - 0000000000
 

 Exemplo para achar o "day-of-week"
  
       
      *-----------------------------------------------------------------
       WORKING-STORAGE SECIOTN.
      *-----------------------------------------------------------------

      * Data no formato: AAAAMMDD

       01  WS-AUXILIARES.  
           05  WS-DIA                    PIC 9(001) VALUE ZEROES.   
           05  WS-DATA                   PIC 9(008) VALUE ZEROES. 
           05  WS-NOMEDIA                PIC X(007) VALUE SPACES. 
       
		 
      *-----------------------------------------------------------------
       PROCEDURE DIVISION. 
      *-----------------------------------------------------------------


      * sintaxe do comando 
  
           MOVE DATA-QUALQUER TO WS-DATA
           COMPUTE DIA = FUNCTION REM (FUNCTION INTEGER-OF-DATE(WS-DATA) , 7)

           EVALUATE  WS-DIA
               WHEN  0
                     MOVE "Domingo" TO WS-NOMEDIA
               WHEN  1
                     MOVE "Segunda" TO WS-NOMEDIA
               WHEN  2
                     MOVE "Terca  " TO WS-NOMEDIA
               WHEN  3
                     MOVE "Quarta " TO WS-NOMEDIA
               WHEN  4
                     MOVE "Quinta " TO WS-NOMEDIA
               WHEN  5
                     MOVE "Sexta  " TO WS-NOMEDIA
               WHEN  6
                     MOVE "Sabado " TO WS-NOMEDIA
           END-EVALUATE