Ispeziona la clausola a Cobol

Il più delle volte, hai l'obbligo di concaterare, dividere, sostituire o estrarre i caratteri dalla stringa. In COBOL, hai varie funzioni che possono essere utilizzate per manipolare la stringa secondo il tuo requisito. Diamo un'occhiata all'istruzione di ispezione che viene utilizzata principalmente per contare e sostituire il carattere nel campo. Discuteremo tutte queste clausole (calcolare, sostituire e convertire) nella discussione seguente:

Dettagli della sintassi:

• La clausola di ispezione con la clausola di conteggio viene utilizzata per contare caratteri specifici.
• La clausola di ispezione con la clausola di sostituzione viene utilizzata per sostituire caratteri specifici.
• La clausola di ispezione con le clausole di conteggio e sostituzione viene utilizzata per contare e sostituire i caratteri.

L'aspetto della clausola di ispezione

• Per contare il numero di caratteri in una stringa specifica, è possibile utilizzare Ispect con l'opzione Tally.
• Per sostituire il carattere specifico di una stringa, è possibile utilizzare l'ispezione con la clausola di sostituzione.
• È possibile utilizzare tipi di dati alfabetici, alfanumerici o numerici, ma il tipo di dati numerici dovrebbe essere con l'uso come display. Non dovrebbe essere visualizzato.
• L'ultimo punto è che è possibile utilizzare la variabile, ispezionare la clausola con il conteggio e la sostituzione dell'opzione per contare e sostituire il carattere in una stringa specifica.

Ora vedremo alcuni esempi di programmazione uno per uno.

Esempio di programmazione 1: ispezionare con sostituzione

Divisione di identificazione.
Programma-id. Ff.
Divisione dati.
Sezione file.
Sezione di lavoro di lavoro.
01 WS-DTE Pic X (10) Valore "13-12-2022".
Divisione procedura.
A000-main sezione.
Ispeziona WS-Dte che sostituisce tutto "-" di "/".
Visualizza ws-dte
Smettere di correre.

Produzione:

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

Spiegazione:
Questo è un esempio di istruzione di ispezione Cobol con l'opzione Sostituisci. Quello che abbiamo fatto è che abbiamo dichiarato una variabile chiamata WS-DTE che in realtà tiene la tua data, che è "13-12-2022". La sezione della procedura e la divisione delle procedure hanno un paragrafo chiamato sezione principale. Lì, usi semplicemente l'istruzione Ispect che è "Ispezionare WS-Dte che sostituisce"- "di"/". L'output di questa particolare affermazione è per data che ha "/" nonostante.

Esempio di programmazione 2: ispezionare con conteggio

Divisione di identificazione.
Programma-id. DI BASE.
Divisione dati.
Sezione file.
Sezione di lavoro di lavoro.
01 WS-NME Pic X (15) Valore "Somdeb Nath".
01 WS-CNT Pic 9 (03) Value Zeroes.
Divisione procedura.
A000-main sezione.
Ispeziona WS-NME Tallying WS-CNT per tutti gli spazi.
Visualizza WS-CNT.
Smettere di correre.

Produzione:

papan@ubuntu: ~/desktop/cobol $ cobc -xjf 1.CBL
005

Spiegazione:
In questo esempio, abbiamo usato due variabili nel funzionamento della sezione di archiviazione. La prima variabile è "WS-NME" che contiene effettivamente un nome chiamato "Somdeb Nath". La seconda variabile è "WS-CNT" che memorizza il numero di spazi in quella particolare stringa.

Ora, diamo un'occhiata alla divisione delle procedure e alla sezione. Dice inserire WS-NME Tallying WS-CNT per tutti gli spazi. Come output, otteniamo il conteggio degli spazi di quella particolare stringa.

Esempio di programmazione 3: ispezionare con sostituzione

Divisione di identificazione.
Programma-id. MM.
Divisione dati.
Sezione file.
Sezione di lavoro di lavoro.
01 WS-NME Pic X (15) Valore "Dudley Dursley".
Divisione procedura.
A000-main sezione.
Ispeziona WS-NME che sostituisce tutti "d" di "d" dopo iniziale "d".
Visualizza WS-NME.
Smettere di correre.

Spiegazione:
Questo esempio di programmazione è COBOL "Ispeziona con sostituzione". In questo caso, utilizziamo un'opzione di sostituzione per sostituire la lettera "D" con la sua piccola lettera "D". Se vedi la variabile "WS-NME", in realtà ha un nome che è "Dudley Dursley". In questo caso, abbiamo tre lettere "D" nel "Dudley Dursley". Quindi, quello che fa è che sostituisce la seconda lettera perché utilizziamo l'opzione Sostituisci dopo la "D" iniziale. Quindi, dopo la "d" iniziale, qualunque lettera "D" incontra viene sostituita con "D".

Esempio di programmazione 4: ispezionare con converti

Divisione di identificazione.
Programma-id. Dd.
Divisione dati.
Sezione file.
Sezione di lavoro di lavoro.
01 WS-NME Pic X (15) Valore "Dudley Dursley".
Divisione procedura.
A000-main sezione.
Ispezionare la conversione di WS-NME
"Abcdefghijklmnopqrstuvwxyz" a
"Abcdefghijklmnopqrstuvwxyz".
Visualizza WS-NME.
Smettere di correre.

Produzione:

papan@ubuntu: ~/desktop/cobol $ cobc -xjf 1.CBL
Dudley Dursley

Spiegazione:
L'ultimo ma non ultimo l'esempio di programmazione riguarda l'affermazione di cobol "ispezionare con converti. Convertiamo l'intero nome in piccole lettere. Quindi, quello che abbiamo fatto è che usando il nome della variabile di ispezione Cobol "WS-NME" convertindo, diamo tutti gli alfabeti nel codice che è "da a a z". Quindi, abbiamo specificato tutti i piccoli alfabeti corrispondenti da "A" a "Z". L'output è "Dudley Dursley" con la seconda parola in tutto il minuscolo.

Conclusione

In questo particolare articolo, abbiamo trattato tutti gli aspetti della dichiarazione di "ispezione" nel linguaggio di programmazione Cobol, in particolare sulla discussione della dichiarazione "ispeziona", i suoi dettagli di sintassi e l'applicazione di questa affermazione per quanto riguarda il programma.