Inspiser klausulen i Cobol

Det meste av tiden har du et krav om å sammenkoble, dele, erstatte eller trekke ut tegnene fra strengen. I COBOL har du forskjellige funksjoner som kan brukes til å manipulere strengen i henhold til ditt krav. La oss se på inspektøren som først og fremst brukes til å telle og erstatte tegnet i feltet. Vi vil diskutere alle disse klausulene (tallying, erstatte og konvertere) i følgende diskusjon:

Syntaksdetaljer:

• Inspection Clause med Tallying Clause brukes til å telle spesifikke tegn.
• Inspektør -leddet med erstatningsklausulen brukes til å erstatte spesifikke tegn.
• Inspection Clause med Tallying og erstatning av klausuler brukes til å telle og erstatte tegn.

Aspektet av inspeksjonsbestemmelsen

• For å telle antall tegn i en spesifikk streng, kan du bruke inspektør med Tally -alternativet.
• For å erstatte den spesifikke karakteren til en streng, kan du bruke inspektør med erstatningsklausulen.
• Du kan bruke alfabetiske, alfanumeriske eller numeriske datatyper, men den numeriske datatypen skal være med bruk som skjerm. Det skal ikke vises.
• Det siste punktet er at du kan bruke variabelen, inspisere leddet med tallying og erstatte alternativ for å telle og erstatte tegnet i en spesifikk streng.

Nå vil vi se noen programmeringseksempler en etter en.

Programmering Eksempel 1: Inspiser med erstatning

Identifikasjonsavdeling.
Program-ID. Ff.
Dataavdeling.
Fildelen.
Arbeidshageseksjon.
01 WS-DTE PIC X (10) Verdi "13-12-2022".
Prosedyreavdeling.
A000-main-seksjon.
Inspiser ws-dte erstatte alle "-" med "/".
Vis WS-DTE
Stopp løp.

Produksjon:

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

Forklaring:
Dette er et eksempel på COBOL Inspect -uttalelsen med alternativet for erstatning. Det vi gjorde med det er at vi erklærte en variabel kalt WS-DTE som faktisk holder datoen din, som er "13-12-2022". Prosedyreseksjonen og prosedyredivisjonen har et avsnitt som heter hoveddelen. Der bruker du bare inspektøren som er "inspiser ws-dte erstatning"- "med"/". Utgangen til denne spesielle uttalelsen er etter dato som har "/" til tross for av.

Programmering Eksempel 2: Inspiser med tallying

Identifikasjonsavdeling.
Program-ID. Grunnleggende.
Dataavdeling.
Fildelen.
Arbeidshageseksjon.
01 WS-NME PIC X (15) Verdi "Somdeb Nath".
01 WS-CNT PIC 9 (03) Verdi nuller.
Prosedyreavdeling.
A000-main-seksjon.
Inspiser WS-nme Tallying WS-CNT for alle rom.
Vis WS-CNT.
Stopp løp.

Produksjon:

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

Forklaring:
I dette eksemplet brukte vi to variabler i å jobbe lagringsdelen. Den første variabelen er “WS-NME” som faktisk har et navn som heter “Somdeb Nath”. Den andre variabelen er "WS-CNT" som lagrer antall mellomrom i den aktuelle strengen.

La oss nå se på prosedyredivisjonen og seksjonen. Det står Sett inn WS-NME Tallying WS-CNT for alle mellomrom. Som en utgang får vi antallet av rom for den aktuelle strengen.

Programmering Eksempel 3: Inspiser med erstatning

Identifikasjonsavdeling.
Program-ID. Mm.
Dataavdeling.
Fildelen.
Arbeidshageseksjon.
01 WS-NME Pic X (15) Verdi "Dudley Dursley".
Prosedyreavdeling.
A000-main-seksjon.
Inspiser WS-NME erstatte alle "D" med "D" etter innledende "D".
Vis WS-NME.
Stopp løp.

Forklaring:
Dette programmeringseksemplet er COBOL "Inspiser med erstatning" -uttalelse. I dette tilfellet bruker vi et erstatningsalternativ for å erstatte bokstaven “D” med den lille bokstaven “D”. Hvis du ser "WS-NME" -variabelen, har den faktisk et navn som er "Dudley Dursley". I dette tilfellet har vi tre bokstaver "D" i "Dudley Dursley". Så hva det gjør er at den erstatter den andre bokstaven fordi vi bruker alternativet for erstatning etter den første “D”. Så etter den første "d", blir det brevet "d" den møter erstattet med "d".

Programmering Eksempel 4: Inspiser med konvertering

Identifikasjonsavdeling.
Program-ID. Dd.
Dataavdeling.
Fildelen.
Arbeidshageseksjon.
01 WS-NME Pic X (15) Verdi "Dudley Dursley".
Prosedyreavdeling.
A000-main-seksjon.
Inspiser WS-NME-konvertering
"Abcdefghijklmnopqrstuvwxyz" til
"abcdefghijklmnopqrstuvwxyz".
Vis WS-NME.
Stopp løp.

Produksjon:

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

Forklaring:
Det siste, men ikke det minste programmeringseksemplet handler om COBOL "inspiser med konvertering" -uttalelsen ". Vi konverterer hele navnet til små bokstaver. Så det vi gjorde er at ved bruk av COBOL-inspiserer variabelnavnet “WS-NME” konvertering, gir vi alle alfabetene i koden som er “A til Z”. Deretter spesifiserte vi alle de tilsvarende små alfabeter fra “A” til “Z”. Utgangen er "Dudley Dursley" med det andre ordet i alle små bokstaver.

Konklusjon

I denne artikkelen dekket vi alle aspektene ved "inspiser" -uttalelsen i COBOL -programmeringsspråket, spesielt etter diskusjonen om "Inspektør" -uttalelsen, syntaksdetaljene og anvendelsen av denne uttalelsen med hensyn til programmet.