COBOL - Funções intrínsecas - LOWER-CASE


Volta a página anterior

Volta ao Menu Principal


Desenvolvido por DORNELLES Carlos Alberto - Analista de Sistemas - Brasília DF. - cad_cobol@hotmail.com

COBOL - Funções intrínsecas - LOWER-CASE
Intrinsic functions - Enterprise COBOL for z/OS 6.3.0

A função LOWER-CASE retorna uma cadeia de caracteres que contém os caracteres no argumento, com cada letra maiúscula substituída pela letra minúscula correspondente.

O tipo de função depende do tipo do argumento, da seguinte maneira:

Tipo de argumento Tipo de função
Alphabetic Alphanumeric
Alphanumeric Alphanumeric
National National

argument-1
Deve ser de classe alfabética, alfanumérica ou nacional e deve ter pelo menos uma posição de caractere.

A mesma sequência de caracteres do argument-1 é retornada, exceto que cada letra maiúscula é substituída pela letra minúscula correspondente.

Se o argument-1 for da classe alfabética ou alfanumérica, as letras maiúsculas 'A' a 'Z' serão substituídas pelas letras minúsculas correspondentes 'a' a 'z', onde o intervalo de 'A' a 'Z' e o intervalo de 'a' a 'z' são mostrados na EBCDIC collating sequence, independentemente da página de códigos em vigor.

Se o argument-1 for da classe nacional, cada letra maiúscula será substituída por sua letra minúscula correspondente, com base na especificação fornecida no banco de dados Unicode UnicodeData.txt, disponível no Unicode Consortium em www.unicode.org.

A cadeia de caracteres retornada tem o mesmo comprimento que o argument-1.

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 LOWER-CASE (WS-ENTRADA) TO WS-RESULTADO             
           DISPLAY 'FUNCTION LOWER-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 LOWER-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. LOWER-CASE.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  WS-VAR1 PIC X(26) VALUE 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'.
       01  WS-VAR2 PIC X(26).

       PROCEDURE DIVISION.

           MOVE FUNCTION LOWER-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    : ABCDEFGHIJKLMNOPQRSTUVWXYZ
       WS-VAR2    : abcdefghijklmnopqrstuvwxyz
       WS-VAR1    : abcdefghijklmnopqrstuvwxyz

© Copyright IBM Corp.