Überprüfen Sie die Klausel in COBOL

Meistens haben Sie die Anforderung, die Zeichen aus der Zeichenfolge zu verkettet, zu teilen, zu ersetzen oder zu extrahieren. In COBOL haben Sie verschiedene Funktionen, mit denen Sie die Zeichenfolge gemäß Ihren Anforderungen manipulieren können. Schauen wir uns die Inspektionserklärung an, die hauptsächlich zum Zählen und Ersetzen des Zeichens im Feld verwendet wird. Wir werden all diese Klauseln (Tallying, Ersetzen und Konvertieren) in der folgenden Diskussion diskutieren:

Syntaxdetails:

• Die Überprüfung der Klausel mit der Tally -Klausel wird verwendet, um bestimmte Zeichen zu zählen.
• Die Überprüfung der Klausel mit der Ersatzklausel wird verwendet, um bestimmte Zeichen zu ersetzen.
• Die Überprüfung der Klausel mit Tallying und Ersetzen von Klauseln wird verwendet, um Zeichen zu zählen und zu ersetzen.

Der Aspekt der Überprüfung der Klausel

• Um die Anzahl der Zeichen in einer bestimmten Zeichenfolge zu zählen, können Sie mit der Option Tally inspizieren.
• Um das spezifische Zeichen einer Zeichenfolge zu ersetzen, können Sie mit der Ersatzklausel inspizieren.
• Sie können alphabetische, alphanumerische oder numerische Datentypen verwenden, aber der numerische Datentyp sollte mit der Verwendung als Anzeige erfolgen. Es sollte nicht angezeigt werden.
• Der letzte Punkt ist.

Jetzt werden wir einige Programmierbeispiele nacheinander sehen.

Programmierbeispiel 1: Inspizieren Sie mit Ersetzen

Identifikationsabteilung.
Programm-ID. Ff.
Datenabteilung.
Dateiabschnitt.
Abschnitt Working-Storage.
01 WS-DTE PIC X (10) Wert "13-12-2022".
Verfahrensabteilung.
A000-Main-Abschnitt.
Inspizieren Sie WS-DTE und ersetzen Sie alle "-" durch "/".
WS-DTE anzeigen
Stop Run.

Ausgang:

Papan@Papan -virtualBox: ~ /Desktop /pp $ cobc -xjf MP.CBL
13/12/2022
papan@papan-virtualbox: ~ /desktop /pp $

Erläuterung:
Dies ist ein Beispiel für die COBOL -Inspektion mit der Ersatzoption. Was wir damit gemacht haben, ist, dass wir eine Variable namens WS-DTE deklariert haben, die tatsächlich Ihr Datum hält, was „13-12-2022“ ist. Der Abschnitt "Verfahren" und in der Verfahrensabteilung haben einen Absatz, der als Hauptabschnitt bezeichnet wird. Dort verwenden Sie nur die Inspektionserklärung, bei der es sich. Die Ausgabe dieser speziellen Aussage ist zu Datum, der "/" trotzdem hat.

Programmierbeispiel 2: Mit Tallying inspizieren

Identifikationsabteilung.
Programm-ID. BASIC.
Datenabteilung.
Dateiabschnitt.
Abschnitt Working-Storage.
01 WS-NME PIC X (15) Wert "somdeb nath".
01 WS-CNT PIC 9 (03) Wert Zeroes.
Verfahrensabteilung.
A000-Main-Abschnitt.
Überprüfen Sie das WS-NME-Tallying WS-CNT auf alle Räume.
WS-CNT anzeigen.
Stop Run.

Ausgang:

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

Erläuterung:
In diesem Beispiel haben wir zwei Variablen für die Arbeit des Speicherbereichs verwendet. Die erste Variable ist "WS-NME", die tatsächlich einen Namen namens "somdeb nath" enthält. Die zweite Variable ist „WS-CNT“, die die Anzahl der Räume in dieser bestimmten Zeichenfolge speichert.

Schauen wir uns nun die Verfahrensabteilung und den Abschnitt an. Es heißt, ein WS-NME-Tallying WS-CNT für alle Räume einzufügen. Als Ausgabe erhalten wir die Anzahl der Räume dieser bestimmten Zeichenfolge.

Programmierbeispiel 3: Durchsuchen mit Ersetzen

Identifikationsabteilung.
Programm-ID. Mm.
Datenabteilung.
Dateiabschnitt.
Abschnitt Working-Storage.
01 WS-NME PIC X (15) Wert "Dudley Dursley".
Verfahrensabteilung.
A000-Main-Abschnitt.
Überprüfen Sie das WS-NME und ersetzen Sie alle "D" durch "D" nach anfänglicher "D".
WS-NME anzeigen.
Stop Run.

Erläuterung:
Dieses Programm für Programmierungen lautet COBOL "Mit Ersatz inspizieren" Anweisung. In diesem Fall verwenden wir eine Ersatzoption, um den Buchstaben „D“ durch den kleinen Buchstaben „D“ zu ersetzen. Wenn Sie die Variable "WS-NME" sehen, hat es tatsächlich einen Namen, der "Dudley Dursley" ist. In diesem Fall haben wir drei Buchstaben "D" in der "Dudley Dursley". Also, es ersetzt den zweiten Buchstaben, da wir die Option Ersatz nach dem anfänglichen „D“ verwenden. Nach dem anfänglichen "D" wird also der Buchstabe "D", dem es begegnet ist, durch "D" ersetzt.

Programmierbeispiel 4: Mit dem Konvertit inspizieren

Identifikationsabteilung.
Programm-ID. Dd.
Datenabteilung.
Dateiabschnitt.
Abschnitt Working-Storage.
01 WS-NME PIC X (15) Wert "Dudley Dursley".
Verfahrensabteilung.
A000-Main-Abschnitt.
Überprüfen Sie die WS-NME-Konvertierung
"Abcdefghijklmnopqrstuvwxyz" zu
"Abcdefghijklmnopqrstuvwxyz".
WS-NME anzeigen.
Stop Run.

Ausgang:

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

Erläuterung:
Das letzte But nicht das am wenigsten Programmierbeispiel handelt von COBOL „Mit konvertieren“ -Schürtung. Wir konvertieren den gesamten Namen in kleine Buchstaben. Wir haben also die Verwendung des Variablennamens „WS-NME“ mit dem COBOL-Inspektieren der Konvertierung alle Alphabete in dem Code an, der „A bis Z“ ist. Dann haben wir alle entsprechenden kleinen Alphabete von „A“ zu „Z“ angegeben. Die Ausgabe ist "Dudley Dursley" mit dem zweiten Wort in allen niedrigeren Fall.

Abschluss

In diesem speziellen Artikel haben wir alle Aspekte der Aussage „Inspect“ in der COBOL -Programmiersprache behandelt, insbesondere über die Diskussion der Aussage „Inspektion“, ihre Syntaxdetails und die Anwendung dieser Aussage in Bezug auf das Programm.