Inspecione a cláusula em COBOL

Na maioria das vezes, você precisa de concatenar, dividir, substituir ou extrair os caracteres da string. Em COBOL, você tem várias funções que podem ser usadas para manipular a corda conforme sua necessidade. Vejamos a declaração inspecionada que é usada principalmente para contar e substituir o personagem no campo. Discutiremos todas essas cláusulas (somando, substituindo e convertendo) na seguinte discussão:

Detalhes da sintaxe:

• A cláusula de inspeção com a cláusula de contagem é usada para contar caracteres específicos.
• A cláusula de inspeção com a cláusula de substituição é usada para substituir caracteres específicos.
• A cláusula de inspeção com as cláusulas de contagem e substituição são usadas para contar e substituir caracteres.

O aspecto da cláusula de inspeção

• Para contar o número de caracteres em uma string específica, você pode usar o Inspect com a opção de contagem.
• Para substituir o caráter específico de uma string, você pode usar o Inspect com a cláusula de substituição.
• Você pode usar tipos de dados alfabéticos, alfanuméricos ou numéricos, mas o tipo de dados numérico deve estar com o uso como exibição. Não deve ser exibido.
• O último ponto é que você pode usar a variável, inspecionar a cláusula com a opção de contagem e substituição para contar e substituir o caractere em uma string específica.

Agora, veremos alguns exemplos de programação um por um.

Exemplo de programação 1: Inspecione com substituição

Divisão de Identificação.
Programa-ID. Ff.
Divisão de dados.
Seção de arquivo.
Seção de armazenamento de trabalho.
01 WS-DTE PIC X (10) Valor "13-12-2022".
Divisão de procedimentos.
A000-K-Seção.
Inspecione o WS-DTE substituindo tudo "-" por "/".
Exibir ws-dte
Pare de corrida.

Saída:

Papan@papan -virtualbox: ~ /desktop /pp $ cobc -xjf mp.cbl
13/12/2022
Papan@papan-virtualbox: ~ /desktop /pp $

Explicação:
Este é um exemplo de declaração de inspeção de COBOL com a opção Substituir. O que fizemos com isso é que declaramos uma variável chamada WS-DTE que está realmente segurando sua data, que é "13-12-2022". A seção de procedimentos e a divisão de procedimentos têm um parágrafo chamado seção principal. Lá, você apenas usa a declaração inspecionada que é “inspecionar o ws-dte substituindo“- “por“/”. A saída desta afirmação em particular é por data que tem "/", apesar de.

Exemplo de programação 2: Inspecione com o contagem

Divisão de Identificação.
Programa-ID. Básico.
Divisão de dados.
Seção de arquivo.
Seção de armazenamento de trabalho.
01 WS-NME Pic X (15) Valor "SOMDEB NATH".
01 WS-CNT PIC 9 (03) Valor zeroes.
Divisão de procedimentos.
A000-K-Seção.
Inspecione o WS-NME contribuindo WS-CNT para todos os espaços.
Exibir ws-cnt.
Pare de corrida.

Saída:

Papan@ubuntu: ~/desktop/cobol $ cobc -xjf 1.cbl
005

Explicação:
Neste exemplo, usamos duas variáveis ​​para trabalhar na seção de armazenamento. A primeira variável é "WS-NME", que realmente possui um nome chamado "Somdeb Nath". A segunda variável é "WS-CNT", que armazena o número de espaços nessa string específica.

Agora, vejamos a divisão de procedimentos e a seção. Diz que insira o ws-nme contatando ws-cnt para todos os espaços. Como saída, obtemos a contagem de espaços dessa string específica.

Exemplo de programação 3: Inspecione com substituição

Divisão de Identificação.
Programa-ID. MILÍMETROS.
Divisão de dados.
Seção de arquivo.
Seção de armazenamento de trabalho.
01 WS-NME Pic X (15) Valor "Dudley Dursley".
Divisão de procedimentos.
A000-K-Seção.
Inspecione o WS-NME substituindo todos "d" por "d" após "D" D ".
Exiba WS-NME.
Pare de corrida.

Explicação:
Este exemplo de programação é a instrução COBOL "Inspecione com substituição". Nesse caso, usamos uma opção de substituição para substituir a letra "D" por sua pequena letra "D". Se você vê a variável "WS-NME", ele tem um nome que é "Dudley Dursley". Nesse caso, temos três cartas "D" no "Dudley Dursley". Então, o que faz é substituir a segunda letra porque usamos a opção de substituição após o "D" inicial. Então, após o "D" inicial, qualquer letra "D" encontra -se é substituída por "D".

Exemplo de programação 4: inspecionar com convertido

Divisão de Identificação.
Programa-ID. Dd.
Divisão de dados.
Seção de arquivo.
Seção de armazenamento de trabalho.
01 WS-NME Pic X (15) Valor "Dudley Dursley".
Divisão de procedimentos.
A000-K-Seção.
Inspecione a conversão do WS-NME
"Abcdefghijklmnopqrstuvwxyz" para
"a B C D e F G H I J K L M N o p q R S T U V W x y Z".
Exiba WS-NME.
Pare de corrida.

Saída:

Papan@ubuntu: ~/desktop/cobol $ cobc -xjf 1.cbl
Dudley Dursley

Explicação:
O último exemplo de programação, mas não menos importante. Convertemos o nome inteiro em letras pequenas. Então, o que fizemos é que, usando o Nome da variável de inspeção de COBOL, “WS-NME” convertendo, damos todos os alfabetos no código que é “a a z”. Em seguida, especificamos todos os pequenos alfabetos correspondentes de "a" a "z". A saída é "Dudley Dursley" com a segunda palavra em todas as minúsculas.

Conclusão

Neste artigo em particular, abordamos todos os aspectos da declaração "inspecionar" na linguagem de programação COBOL, especialmente na discussão da declaração "inspecionar", seus detalhes de sintaxe e a aplicação desta declaração com relação ao programa.