Inspecter la clause dans COBOL

La plupart du temps, vous avez besoin de concaténer, de fendre, de remplacer ou d'extraire les caractères de la chaîne. Dans COBOL, vous avez diverses fonctions qui peuvent être utilisées pour manipuler la chaîne selon vos besoins. Examinons l'instruction Inspect qui est principalement utilisée pour compter et remplacer le caractère sur le terrain. Nous discuterons de toutes ces clauses (comptabilisation, remplacement et convertissement) dans la discussion suivante:

Détails de la syntaxe:

• La clause Inspecter avec la clause de comptabilité est utilisée pour compter les caractères spécifiques.
• La clause Inspecter avec la clause de remplacement est utilisée pour remplacer les caractères spécifiques.
• La clause Inspecter avec les clauses de comptabilité et de remplacement est utilisée pour compter et remplacer les caractères.

L'aspect de la clause Inspecter

• Pour compter le nombre de caractères dans une chaîne spécifique, vous pouvez utiliser Inspecter avec l'option Tally.
• Pour remplacer le caractère spécifique d'une chaîne, vous pouvez utiliser Inspecter par la clause de remplacement.
• Vous pouvez utiliser des types de données alphabétiques, alphanumériques ou numériques, mais le type de données numérique doit être utile comme affichage. Il ne doit pas être affiché.
• Le dernier point est que vous pouvez utiliser la variable, inspecter la clause par le décompte et le remplacement de l'option pour compter et remplacer le caractère dans une chaîne spécifique.

Maintenant, nous verrons quelques exemples de programmation un par un.

Exemple de programmation 1: Inspecter par remplacer

Division d'identification.
Programme de programme. Ff.
Division des données.
Section de dossier.
Section de stockage de travail.
01 WS-DTE PIC X (10) Valeur "13-12-2022".
Division des procédures.
A000-section.
Inspectez WS-DTE Remplacement de tous "-" par "/".
Afficher WS-DTE
Stop run.

Sortir:

Papan @ Papan-VirtualBox: ~ / Desktop / PP $ COBC -XJF MP.cbl
13/12/2022
Papan @ Papan-VirtualBox: ~ / Desktop / PP $

Explication:
Ceci est un exemple de l'instruction COBOL INSPECT avec l'option Remplacer. Ce que nous avons fait, c'est que nous avons déclaré une variable appelée WS-DTE qui tient en fait votre date, qui est «13-12-2022». La section de procédure et la division des procédures ont un paragraphe appelé section principale. Là, vous utilisez simplement l'instruction Inspecter qui est «Inspecter WS-DTE Remplacement« - «par« / ». La sortie de cette déclaration particulière est par date qui a «/» malgré.

Exemple de programmation 2: Inspecter avec le décompte

Division d'identification.
Programme de programme. BASIQUE.
Division des données.
Section de dossier.
Section de stockage de travail.
01 WS-NME PIC X (15) Valeur "Somdeb Nath".
01 WS-CNT PIC 9 (03) Valeur Zéros.
Division des procédures.
A000-section.
Inspectez WS-NME Tallying WS-CNT pour tous les espaces.
Afficher ws-cnt.
Stop run.

Sortir:

Papan @ Ubuntu: ~ / Desktop / COBOL $ COBC -XJF 1.cbl
005

Explication:
Dans cet exemple, nous avons utilisé deux variables dans le travail de la section de stockage. La première variable est «WS-NME» qui détient en fait un nom intitulé «Somdeb Nath». La deuxième variable est «WS-CNT» qui stocke le nombre d'espaces dans cette chaîne particulière.

Maintenant, regardons la division des procédures et la section. Il dit insérer WS-NME compter WS-CNT pour tous les espaces. En tant que sortie, nous obtenons le nombre d'espaces de cette chaîne particulière.

Exemple de programmation 3: Inspecter par remplacer

Division d'identification.
Programme de programme. MM.
Division des données.
Section de dossier.
Section de stockage de travail.
01 WS-NME Pic X (15) Valeur "Dudley Dursley".
Division des procédures.
A000-section.
Inspectez WS-NME en remplaçant tous les "D" par "D" après initial "D".
Afficher WS-NME.
Stop run.

Explication:
Cet exemple de programmation est COBOL «Inspecter par Remplacer». Dans ce cas, nous utilisons une option de remplacement afin de remplacer la lettre «D» par sa petite lettre «D». Si vous voyez la variable «WS-NME», il a en fait un nom qui est «Dudley Dursley». Dans ce cas, nous avons trois lettres «D» dans le «Dudley Dursley». Donc, ce qu'il fait, c'est qu'il remplace la deuxième lettre car nous utilisons l'option de remplacement après le «D» initial. Ainsi, après le «D» initial, quelle que soit la lettre «D» qu'il rencontre est remplacé par «D».

Exemple de programmation 4: Inspecter avec converti

Division d'identification.
Programme de programme. Dd.
Division des données.
Section de dossier.
Section de stockage de travail.
01 WS-NME Pic X (15) Valeur "Dudley Dursley".
Division des procédures.
A000-section.
Inspecter la conversion WS-NME
"Abcdefghijklmnopqrstuvwxyz" à
"ABCDEFGHIJKLMNOPQRSTUVWXYZ".
Afficher WS-NME.
Stop run.

Sortir:

Papan @ Ubuntu: ~ / Desktop / COBOL $ COBC -XJF 1.cbl
Dudley Dursley

Explication:
Le dernier mais non le moindre exemple de programmation concerne la déclaration de COBOL «Inspecter avec converti». Nous convertissons le nom entier en petites lettres. Donc, ce que nous avons fait, c'est qu'à l'aide du nom de variable COBOL INSPECTER «WS-NME», nous donnons tous les alphabets du code qui est «A à Z». Ensuite, nous avons spécifié tous les petits alphabets correspondants de «A» à «Z». La sortie est «Dudley Dursley» avec le deuxième mot dans tous les basses.

Conclusion

Dans cet article particulier, nous avons couvert tous les aspects de la déclaration «inspecter» dans le langage de programmation COBOL, en particulier sur la discussion de la déclaration «Inspecter», ses détails de syntaxe et l'application de cette déclaration en ce qui concerne le programme.