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).

argument-1

é 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 1:

      *-----------------------------------------------------------------
       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.

Exemplo 2:

       IDENTIFICATION DIVISION.
       PROGRAM-ID. UPER-CASE.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  WS-VAR1 PIC X(26) VALUE 'abcdefghijklmnopqrstuvxxyz'.
       01  WS-VAR2 PIC X(26).

       PROCEDURE DIVISION.

           MOVE FUNCTION UPPER-CASE (WS-VAR1) TO WS-VAR2
           DISPLAY 'WS-VAR1    : ' WS-VAR1. 
           DISPLAY 'WS-VAR2    : ' WS-VAR2. 

      * USANDO O INSPECT

           INSPECT WS-VAR1
                   CONVERTING 'abcdefghijklmnopqrstuvwxyz'
                           TO 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'

           DISPLAY 'WS-VAR1    : ' WS-VAR1. 

           STOP RUN.

Resultado:

       WS-VAR1    : abcdefghijklmnopqrstuvxxyz
       WS-VAR2    : ABCDEFGHIJKLMNOPQRSTUVXXYZ
       WS-VAR1    : ABCDEFGHIJKLMNOPQRSTUVXXYZ