Funções intrínsecas - UPPER-CASE

	FUNCTION UPPER-CASE

	A função "FUNCTION UPPER-CASE" retorna uma STRING de caracteres cujo o tamanho é igual ao do argumento fornecido, só substituindo todos os caracteres em caixa baixa (minúsculas) para caixa alta (maiúsculas).

	Formato geral: FUNCTION UPPER-CASE (string) string é um argumento alfabético ou alfanumérco com pelo menos um caracter informado
	Regras:
	1. O tipo desta função é um alfanumérico - PIC X(XXX)
	2. O valor retornado é o mesmo número de caracteres que o argumento fornecido.

Exemplo

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

       01  WS-AUXILIARES.  
           05  WS-ENTRADA                PIC X(006) VALUE 'carlos'. 
           05  WS-RESULTADO              PIC X(006) VALUE spaces.   
       
		 
      *-----------------------------------------------------------------
       PROCEDURE DIVISION. 
      *-----------------------------------------------------------------

      * sintaxe do comando   

           MOVE FUNCTION UPPER-CASE (WS-ENTRADA) TO WS-RESULTADO             
           DISPLAY 'FUNCTION UPPER-CASE  - ' WSS-RESULTADO  
   
        1. Se a STRING WS-ENTRADA (um item de dados alfanumérico com seis caracteres de 
           comprimento) conter o valor 'carlos' o seu retorno e armazenamento em WS-RESULTADO 
           (tambem um item de dados alfanumérico com seis caracteres de comprimento) será 
           'CARLOS'.  

      * Resultado: FUNCTION UPPER-CASE   - CARLOS 

        2. Se a STRING WS-ENTRADA conter o valor 'CARLOS' o retorno em WS-RESULTADO não será 
           alterado.