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.